FiveTech Software tech support forums

Posted: **Wed Oct 11, 2006 7:58 am**

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 !

Posted: **Wed Oct 11, 2006 9:33 am**

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

Posted: **Wed Oct 11, 2006 10:23 am**

Silvio wrote: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 !

Posted: **Wed Oct 11, 2006 10:26 am**

Rimantas wrote:
Silvio wrote: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 !

Posted: **Wed Oct 11, 2006 10:36 am**

Silvio wrote: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 !

Posted: **Wed Oct 11, 2006 10:46 am**

Rimantas,

Code: Select all

#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> )

Posted: **Wed Oct 11, 2006 10:57 am**

Antonio Linares wrote:Rimantas,

Code: Select all

#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 !

Posted: **Wed Oct 11, 2006 12:38 pm**

Antonio Linares wrote:Rimantas,

Code: Select all

#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

   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 !

FiveTech Software tech support forums

Animated GIFs

Animated GIFs