Tgif

[Otto]

Hello Antonio,

I would like to have a animated gif during the program is executing a task.
I tried the following. I see the gif but not animated.
Do I have to pass a oTGif:start() ?.

Thanks in advance
Otto

DEFINE BUTTON RESOURCE "Printer" OF oBar GROUP ;
MESSAGE TXT_PRINT_CURRENT_PAGE ;
ACTION IIF(MsgYesNo ("R e c h n u n g abschließen?"),;
( TGif():New( oWnd, ".\gifs\halo.gif", 200, 200 ),;
oBtnExit:hide(),;
oRechnung:Save(),;
PrintPage(cArt:="Rechnung",oRechnung),;
oZahlung := TZahlung():New(oRechnung),;
oZahlung:offen() ,;
oZahlung:end() ,;
oRechnung:CheckOut(cArt) ,;
oDlgRg:End(),;
oWndRGx:SetFocus(),;
oWnd:End()), ) ;
prompt "Rechnung" TOOLTIP StrTran( TXT_PRINT, "&", "" )

[Antonio Linares]

Otto,

The gif should start animating automatically.

Please test fwh\samples\TestGif.prg

[fraxzi]

Mr. Antonio,

I need to mouse click the gif to make it start running...



regards,

[anserkk]

Mr. Antonio,
I need to mouse click the gif to make it start running...

1) Is it possible to start the GIF animation automatically without the need to click on the window/dialog
2) Do TGIF support transparency of Animated GIF's

Regards

Anser

[anserkk]

Hi,

My application is getting struck and halted when I tried to test an Animated GIF with Transparency.




In \fwh\samples\TestGif.prg, I changed only the Gif filename and path. I understand that Tranparency in Animated GIF is not yet supported in FWH

Regards

Anser