Page 2 of 2
Re: Animated GIF with transparency
Posted: Mon Feb 13, 2017 6:52 am
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.
Re: Animated GIF with transparency
Posted: Mon Feb 13, 2017 7:34 am
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