Animated gif from resources

[Baxajaun]

Good night,

is it possible to use animated gifs from resources ?

Thanks in advance.

Best regards,

[karinha]

Maybe with \samples\TESTCF2.PRG

[Baxajaun]

Thanks Joao !

Thanks to Manuel Alvarez (mastintin) !!!

Code: Select all  Expand view

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