Animated GIF with transparency

This forum is for general support of Xbase++
Message
Author
User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Animated GIF with transparency

#11 Post by rdonnay »

Thanks for that contribution Jimmy.

It works good.

I am going to rewrite the sample program using eXpress++ code and post it here.
The eXpress train is coming - and it has more cars.

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Animated GIF with transparency

#12 Post by 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
The eXpress train is coming - and it has more cars.

Post Reply