| Class TGIFImage (unit MPGifImg) |
TGraphic
| Constructors |
constructor Create;| Functions |
procedure AnimateOnce;
procedure Assign(Source: TPersistent);
procedure DecrementFrame;
destructor Destroy;
procedure IncrementFrame;
procedure LoadFromClipboardFormat(aFormat: word; aData: THandle; aPalette: HPalette);
procedure LoadFromStream(Stream: TStream);
procedure SaveToClipboardFormat(var aFormat: word; var aData: THandle; var aPalette: hPalette);
procedure SaveToStream(Stream: TStream);
procedure Draw(ACanvas: TCanvas; const Rect: TRect);
function GetEmpty: boolean;
function GetHeight: integer;
function GetWidth: integer;
procedure NewImage;
procedure ReadData(Stream: TStream);
procedure ReadStream(Size: longint; Stream: TStream);
procedure SetHeight(Value: integer);
procedure SetWidth(Value: integer);
procedure WriteData(Stream: TStream);
function GetAnimating: boolean;
function GetBitmap: TBitmap;
function GetFrameCount: integer;
procedure NextImageEvent(Sender: TObject; Handle: integer; IntervalTicks, ElapsedTicks: longint);
procedure SetAnimating(Value: Boolean);
procedure SetFrame(Value: integer);
procedure SetInterval(Value: Cardinal);| Properties |
property Animating : boolean
property Bitmap : TBitmap
property Frame : integer
property FrameCount : integer
property Interval : Cardinal| Events |
| Variables |
FFrame : integer;
FHeight : integer;
FImage : TGIFData;
FTimerHandle : integer;
FWidth : integer;| Constructors |
constructor Create;| Functions |
procedure AnimateOnce;sets the interval of all images
procedure Assign(Source: TPersistent);if
procedure DecrementFrame;
destructor Destroy;if
procedure IncrementFrame;if
procedure LoadFromClipboardFormat(aFormat: word; aData: THandle; aPalette: HPalette);
procedure LoadFromStream(Stream: TStream);
procedure SaveToClipboardFormat(var aFormat: word; var aData: THandle; var aPalette: hPalette);will call Changed and Decode
procedure SaveToStream(Stream: TStream);
procedure Draw(ACanvas: TCanvas; const Rect: TRect);
function GetEmpty: boolean;
function GetHeight: integer;
function GetWidth: integer;
procedure NewImage;
procedure ReadData(Stream: TStream);
procedure ReadStream(Size: longint; Stream: TStream);
procedure SetHeight(Value: integer);
procedure SetWidth(Value: integer);if
procedure WriteData(Stream: TStream);if
function GetAnimating: boolean;
function GetBitmap: TBitmap;timer handle in timer pool
function GetFrameCount: integer;
procedure NextImageEvent(Sender: TObject; Handle: integer; IntervalTicks, ElapsedTicks: longint);if
procedure SetAnimating(Value: Boolean);
procedure SetFrame(Value: integer);
procedure SetInterval(Value: Cardinal);| Properties |
property Animating : boolean
property Bitmap : TBitmap
property Frame : integer
property FrameCount : integer
property Interval : Cardinal| Events |
| Variables |
FFrame : integer;raw GIF stream data
FHeight : integer;width wanted - not what is actually in GIF data
FImage : TGIFData;
FTimerHandle : integer;height wanted - not what is actually in GIF data
FWidth : integer;current frame