Hi,
Is it possible to make a transparent window with animated .gif ? The higher the transparency of the window (oDlg:nOpacity), the paler the gif image becomes
Natter wrote:Hi,
Is it possible to make a transparent window with animated .gif ? The higher the transparency of the window (oDlg:nOpacity), the paler the gif image becomes
#include "fivewin.ch"
#include "gif.ch"
function Main()
local oWnd, oGif
DEFINE WINDOW oWnd STYLE WS_POPUP
@ 0,140 GIF oGif SIZE 240,260 FILE "..\gifs\forgif.gif" OF oWnd ;
ADJUST ACTION oWnd:End()
oWnd:nSeeThroClr := CLR_WHITE
ACTIVATE WINDOW oWnd CENTERED
return nil
#include "fivewin.ch"
#include "gif.ch"
function Main()
local oDlg, oGif
DEFINE DIALOG oDlg SIZE 400, 300 PIXEL ;
STYLE WS_POPUP COLOR CLR_BLACK,CLR_WHITE
oDlg:nSeeThroClr := CLR_WHITE
oDlg:bInit := <||
@ 0,140 GIF oGif SIZE 240,260 FILE "..\gifs\forgif.gif" OF oDlg ;
ADJUST ACTION oDlg:End()
return nil
>
ACTIVATE DIALOG oDlg CENTERED ;
return nil
#include "fivewin.ch"
#include "gif.ch"
function Main()
local oDlg, oGif
DEFINE DIALOG oDlg SIZE 400, 300 PIXEL ;
STYLE WS_POPUP COLOR CLR_BLACK,RGB(255,254,254)
oDlg:nSeeThroClr := RGB(255,254,254)
oDlg:bInit := <||
@ 0,140 GIF oGif SIZE 240,260 FILE "..\gifs\halo.gif" OF oDlg ;
ADJUST ACTION oDlg:End()
return nil
>
ACTIVATE DIALOG oDlg CENTERED ;
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 46 guests