Class TGifFile (unit GifUnit)

Inherits from

TObject

TGifSubImage

Constructors


constructor Create;

TGifSubImage.


Functions

procedure AddBitmap(Bitmap: TBitmap);

TGifFile.

function AsBitmap: TBitmap;

TGifFile.

destructor Destroy;

TGifFile.

function GetSubImage(Index: Integer): TGifSubImage;

TGifFile.

procedure LoadFromFile(filename: String);

TGifFile.

procedure LoadFromStream(Stream: TStream);

TGifFile.

procedure SaveToFile(filename: String);

TGifFile.

procedure SaveToStream(Stream: TStream);

TGifFile.

procedure DecodeStatusByte;

TGifFile.

procedure EncodeGifFile;

TGifFile.

procedure EncodeStatusByte;

TGifFile.

procedure ReadExtensionBlocks(Stream: TStream; var SeparatorChar: Char; var Extensions: TExtensionList);

TGifFile.

procedure ReadGlobalColorMap(Stream: TStream);

TGifFile.

procedure ReadScreenDescriptor(Stream: TStream);

TGifFile.

procedure ReadSignature(Stream: TStream);

TGifFile.

procedure WriteGlobalColorMap(Stream: TStream);

TGifFile.

procedure WriteScreenDescriptor(Stream: TStream);

TGifFile.

procedure WriteSignature(Stream: TStream);

TGifFile.

Properties

Events

Variables

BitsPerPixel : Byte;


GlobalColorMap : TColorTable;


HasGlobalColorMap : Boolean;


Header : TGifHeader;


ScreenDescriptor : TLogicalScreenDescriptor;


SubImages : TList;



Constructors


constructor Create;

TGifSubImage.SaveToStream } (***** end of TGifSubImage *****) (***** TGifFile


Functions


procedure AddBitmap(Bitmap: TBitmap);

TGifFile.Destroy } (***** end of constructor and destructor *****) (***** property access methods *****) (*function TGifFile.GetBGColor: TColor; var BGCI: Byte; begin { TGifFile.GetBGColor } BGCI := ScreenDescriptor.BackGroundColorIndex; Result := GlobalColorMap.GetColor(BGCI); end; { TGifFile.GetBGColor }*) (***** end of property access methods


function AsBitmap: TBitmap;

TGifFile.AddBitmap } (*function TGifFile.AnimateInterval: Word; var SubImage: TGifSubImage; SubImageNo: Integer; Interval: Word; begin { TGifFile.AnimateInterval } if SubImages.Count < 2 then Result := 0 else begin Result := 0; for SubImageNo := 1 to SubImages.Count do begin SubImage := SubImages[SubImageNo-1]; Interval := SubImage.AnimateInterval; {$ifdef debug} if Interval = 0 then WarningMessage('Multiple subimages; no animation time interval found'); if (Result <> 0) and (Result <> Interval) then WarningMessage('Multiple subimages; animation time intervals not equal');; {$endif debug} if Interval <> 0 then Result := Interval end; end; end; { TGifFile.AnimateInterval


destructor Destroy;

TGifFile.Create


function GetSubImage(Index: Integer): TGifSubImage;

TGifFile.AsBitmap


procedure LoadFromFile(filename: String);

TGifFile.ReadExtensionBlocks


procedure LoadFromStream(Stream: TStream);

TGifFile.LoadFromFile


procedure SaveToFile(filename: String);

TGifFile.WriteGlobalColorMap


procedure SaveToStream(Stream: TStream);

TGifFile.SaveToFile


procedure DecodeStatusByte;

TGifFile.ReadSignature


procedure EncodeGifFile;

TGifFile.LoadFromStream } (***** write routines


procedure EncodeStatusByte;

TGifFile.EncodeGifFile


procedure ReadExtensionBlocks(Stream: TStream; var SeparatorChar: Char; var Extensions: TExtensionList);

TGifFile.ReadGlobalColorMap


procedure ReadGlobalColorMap(Stream: TStream);

TGifFile.ReadScreenDescriptor


procedure ReadScreenDescriptor(Stream: TStream);

TGifFile.DecodeStatusByte


procedure ReadSignature(Stream: TStream);

TGifFile.GetSubImage } (***** Read routines


procedure WriteGlobalColorMap(Stream: TStream);

TGifFile.WriteScreenDescriptor


procedure WriteScreenDescriptor(Stream: TStream);

TGifFile.WriteSignature


procedure WriteSignature(Stream: TStream);

TGifFile.EncodeStatusByte


Properties


Events


Variables


BitsPerPixel : Byte;


GlobalColorMap : TColorTable;


HasGlobalColorMap : Boolean;


Header : TGifHeader;


ScreenDescriptor : TLogicalScreenDescriptor;


SubImages : TList;