Class TGIFImage (unit MPGifImg)

Inherits from

TGraphic

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


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