| Class TGifFile (unit GifUnit) |
TObject
TGifSubImage
| Constructors |
constructor Create;| Functions |
procedure AddBitmap(Bitmap: TBitmap);
function AsBitmap: TBitmap;
destructor Destroy;
function GetSubImage(Index: Integer): TGifSubImage;
procedure LoadFromFile(filename: String);
procedure LoadFromStream(Stream: TStream);
procedure SaveToFile(filename: String);
procedure SaveToStream(Stream: TStream);
procedure DecodeStatusByte;
procedure EncodeGifFile;
procedure EncodeStatusByte;
procedure ReadExtensionBlocks(Stream: TStream;
var SeparatorChar: Char;
var Extensions: TExtensionList);
procedure ReadGlobalColorMap(Stream: TStream);
procedure ReadScreenDescriptor(Stream: TStream);
procedure ReadSignature(Stream: TStream);
procedure WriteGlobalColorMap(Stream: TStream);
procedure WriteScreenDescriptor(Stream: TStream);
procedure WriteSignature(Stream: TStream);| 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;