Unit RxGIF

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1997 Master-Bank } { } {

Classes

TGIFData - TGIFData
TGIFFrame - TGIFFrame
TGIFImage - TGIFImage
TGIFItem - TGIFItem
TSharedImage - TSharedImage

Functions

Types

TDisposalMethod
TGIFBits
TGIFColorItem
TGIFColorTable
TGIFVersion
TProgressEvent
TProgressStage

Constants

Variables

CF_GIF


Functions


Types


TDisposalMethod = (dmUndefined, dmLeave, dmRestoreBackground,
    dmRestorePrevious, dmReserved4, dmReserved5, dmReserved6, dmReserved7);

TGIFBits = 1..8

TGIFColorItem = record
Red : Byte;
Green : Byte;
Blue : Byte;
end;

TGIFColorTable = record
Count : Integer;
Colors : packed array[Byte] of TGIFColorItem;
end;

TGIFVersion = (gvUnknown, gv87a, gv89a);

TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage;
    PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
    const Msg: string) of object

TProgressStage = (psStarting, psRunning, psEnding);

Constants


Variables

CF_GIF : Word