bb.donnay-software.com

Posted: **Mon Feb 13, 2017 6:52 am**

Thanks for that contribution Jimmy.

It works good.

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

Posted: **Mon Feb 13, 2017 7:34 am**

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

bb.donnay-software.com

Animated GIF with transparency

Re: Animated GIF with transparency

Re: Animated GIF with transparency