Gif Animados

[caducca]

Hola Foro:
Quisiera usar gif animados en xHarbour, por ejemplo como usa el Verce cuando esta generando la aplicacion. Que clase debo usar ? Y si es posible algun ejemplo. Gracias

[Antonio Linares]

De momento no tenemos soporte para GIFs animados. Una alternativa es usar AVIs. Puedes revisar samples\copyfile.prg

[karinha]

http://vikthor.com.mx/fivewin/files/sources/tgif89.zip

[karinha]

http://www.fivewin.com.br/Dicas/602BORSHADE.ZIP

[Armando Picon]

http://www.fivewin.com.br/Dicas/602BORSHADE.ZIP

Karinha

Dentro del Zip falta el archivo "Animabmp.ch". ¿Puedes conseguirmelo? Te agradecería Mucho.

Armando
email: apic1002002@yahoo.es

[karinha]

Code: Select all  Expand view  RUN

//--------------------------------------------------------------------------//
// ANIMABMP.CH - Comandos para a classe TAnimaBmpmp
//--------------------------------------------------------------------------//

#ifndef TAnimaBmpMP_CH
#define TAnimaBmpMP_CH


#xcommand @ <nRow>, <nCol> ANIMABMP [ <oAni> ] ;
             [ <bmp: NAME, RESOURCE, FILENAME> <cBitmap> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ GLIPS <nGlips> ] ;
             [ SPEED <nSpeed> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
       => ;
          [ <oAni> := ] TAnimaBmp():New( <nRow>, <nCol>, <nWidth>, <nHeight>,;
                        <cBitmap>, <nGlips>, <nSpeed>, <oWnd> )


#xcommand REDEFINE ANIMABMP [ <oAni> ] ;
             [ <bmp: NAME, RESOURCE, FILENAME> <cBitmap> ] ;
             [ ID <nId> ] ;
             [ GLIPS <nGlips> ] ;
             [ SPEED <nSpeed> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <lTransparent: TRANSPARENT> ]     ;  //Modifiquei 31/08/2007
             => ;
          [ <oAni> := ] TAnimaBmp():ReDefine( <oWnd>, <nId>, <cBitmap>,;
                        <nGlips>, <nSpeed> )

#endif


Regards, saludos

[Armando Picon]

Gracias Karinha... Muito obrigado !!!