topic-33493

Board index FiveWin for Harbour/xHarbour Animated gif from resources

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Animated gif from resources
Posted: Fri Jan 13, 2017 10:32 PM

Good night,

is it possible to use animated gifs from resources ?

Thanks in advance.

Best regards,

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Animated gif from resources
Posted: Mon Jan 16, 2017 02:34 PM

Maybe with \samples\TESTCF2.PRG

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Re: Animated gif from resources
Posted: Tue Jan 17, 2017 07:09 AM

Thanks Joao !

Thanks to Manuel Alvarez (mastintin) !!!

Code (fw): Select all Collapse

FUNCTION About()


LOCAL oDlgAbout

define dialog oDlgAbout title "Acerca de ..." size 529,225
activate dialog oDlgAbout CENTERED on init crearGif( oDlgAbout ) // nowait

RETURN NIL

FUNCTION CrearGif( oDlgAbout )
local cfile := "temp.gif"

  RCDATATOFILE( 0,"ACERCADE", cfile )

@ 1, 1 GIF oGif FILE cfile OF oDlgAbout SIZE 529, 225 ADJUST

ferase( cfile )


RETURN NIL

RCDATATOFILE( 0,"ACERCADE", cfile ) is the solution.

Again thanks to mastintin !

Best regards

FiveTech Support Forums

Continue the discussion