Class TGIFImage (unit MPGifImg) |
Inherits from
TGraphic
constructor Create;
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);
property Animating : boolean
property Bitmap : TBitmap
property Frame : integer
property FrameCount : integer
property Interval : Cardinal
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
constructor Create;
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);
property Animating : boolean
property Bitmap : TBitmap
property Frame : integer
property FrameCount : integer
property Interval : Cardinal
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