topic-33492

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Gif animado desde recursos
Posted: Fri Jan 13, 2017 10:30 PM

Buenas noches,

es posible usar gif animados desde recursos.

Muchas gracias.

Saludos

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Re: Gif animado desde recursos
Posted: Tue Jan 17, 2017 07:12 AM

Gracias a 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

La solución en la función RCDATATOFILE().

Nuevamente, muchas gracias Manuel !!!

Saludos

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Gif animado desde recursos
Posted: Tue Jan 17, 2017 11:24 AM

¡Interesante!

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Gif animado desde recursos
Posted: Tue Jan 17, 2017 05:38 PM

Acá, no muestra nada y el temp.gif, esta con 0 bytes. No falta nada?

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "gif.ch"

FUNCTION About()

   LOCAL oDlgAbout

   define dialog oDlgAbout title "Acerca de ..." size 529,225

   activate dialog oDlgAbout CENTERED   ;
            ON INIT CrearGif( oDlgAbout )

RETURN NIL

FUNCTION CrearGif( oDlgAbout )

   LOCAL oGif
   local cfile := "temp.gif"

   RCDATATOFILE( 0,"ACERCADE", cfile )

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

   ferase( cfile )

RETURN NIL

Gracias, saludos.

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

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Re: Gif animado desde recursos
Posted: Tue Jan 17, 2017 06:19 PM

Hola Joao,

crea un fichero .res con un recurso RCDATA (10) Y llámalo ACERCADE.

Añade el fichero de recurso a la compilación.

Saludos

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Gif animado desde recursos
Posted: Tue Jan 17, 2017 06:33 PM

Baxajaun wrote:Hola Joao,

crea un fichero .res con un recurso RCDATA (10) Y llámalo ACERCADE.

Añade el fichero de recurso a la compilación.

Saludos

Muchas gracias - Many thanks.

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

FiveTech Support Forums

Continue the discussion