Animated GIF with transparency

[rdonnay]

Thanks for that contribution Jimmy.

It works good.

I am going to rewrite the sample program using eXpress++ code and post it here.

[rdonnay]

Here is eXpress++ code:

Code: Select all

#INCLUDE "dcdialog.CH"

#PRAGMA LIBRARY( "ASCOM10.LIB" )
#Pragma Library( "DCLIPX.LIB")

FUNCTION Main()

LOCAL GetList[0], GetOptions, oGif

@ 0,0 DCACTIVEXCONTROL oGif ;
      SIZE 150,170 PIXEL ;
      CLSID "Gif89.Gif89.1" ;

@ 250,0 DCPUSHBUTTON CAPTION 'Load GIF' SIZE 140,20 PIXEL ;
        ACTION {|c|c := DC_PopFile('*.Gif'), ;
                   IIF(!Empty(c),(oGif:stop(), oGif:fileName := c,oGif:play()),nil)}

DCGETOPTIONS RESIZE
DCREAD GUI FIT TITLE 'Gif89 Demo' OPTIONS GetOptions

RETURN Nil

* ---------

PROCEDURE AppSys() ; RETURN