Animated GIFs

[Rimantas]

Hi !

Maybe you know how to display Animated GIF ? With FreeImg lib ? Or can you direct to freeware OCX for that ?

Many thanks in advance !

[Silvio]

use gif98 class
you can found it on this forum ( Utilities)

[Rimantas]

use gif98 class
you can found it on this forum ( Utilities)

Silvio , reviewed Utiities , but didn't found GIF assiocated or similar post . Maybe you have this class ? Can you send me directly ?

With best regards !

[Rimantas]

use gif98 class
you can found it on this forum ( Utilities)

Silvio , reviewed Utiities , but didn't found GIF assiocated or similar post . Maybe you have this class ? Can you send me directly ?

With best regards !

I found it - Lozada-LLinas, Class TGif89 - . Something was with my eyes ) .

Regards !

[Rimantas]

use gif98 class
you can found it on this forum ( Utilities)

Silvio , in this class exist acronim "BYNAME" . And harbour compiler don't recognize this . Can you advice with which I can change this ?

Regards !

[Antonio Linares]

Rimantas,

Code: Select all  Expand view  RUN

#xtranslate BYNAME <V> [, <VN> ]     => ::<V> := <V> [; ::<VN> := <VN> ]
#xtranslate BYNAME <V> DEFAULT <Val> => ::<V> := BYDEFAULT <V>, <Val>
#xtranslate BYNAME <V> IFNONIL       => ;
                            if <V> != NIL ;;
                                ::<V> := <V> ;;
                            end
#xtranslate BYDEFAULT <V>, <Val>     => if( <V> == NIL, <Val>, <V> )


[Rimantas]

Rimantas,

Code: Select all  Expand view  RUN

#xtranslate BYNAME <V> [, <VN> ]     => ::<V> := <V> [; ::<VN> := <VN> ]
#xtranslate BYNAME <V> DEFAULT <Val> => ::<V> := BYDEFAULT <V>, <Val>
#xtranslate BYNAME <V> IFNONIL       => ;
                            if <V> != NIL ;;
                                ::<V> := <V> ;;
                            end
#xtranslate BYDEFAULT <V>, <Val>     => if( <V> == NIL, <Val>, <V> )


Found this ClipX site , but was not ensured that this will be good ... ) . Thanks , Antonio !

[Rimantas]

Rimantas,

Code: Select all  Expand view  RUN

#xtranslate BYNAME <V> [, <VN> ]     => ::<V> := <V> [; ::<VN> := <VN> ]
#xtranslate BYNAME <V> DEFAULT <Val> => ::<V> := BYDEFAULT <V>, <Val>
#xtranslate BYNAME <V> IFNONIL       => ;
                            if <V> != NIL ;;
                                ::<V> := <V> ;;
                            end
#xtranslate BYDEFAULT <V>, <Val>     => if( <V> == NIL, <Val>, <V> )


Antonio ,

This old TGif89 class is adopted to Clipper+FW . And now when I created applic. from samples of this class on runtime I get an error :

Code: Select all  Expand view  RUN

   Error description: Error BASE/1004  Class: 'NIL' has no exported method: ACONTROLS
   Args:
   Called from ACONTROLS(0)
   Called from STARTGIFS(78)


Can you help in this situation ?

Regards !