Class TGifFile (unit GifUnit) |
Inherits from
TObject
TGifSubImage
constructor Create;
- TGifSubImage.
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.
BitsPerPixel : Byte;
GlobalColorMap : TColorTable;
HasGlobalColorMap : Boolean;
Header : TGifHeader;
ScreenDescriptor : TLogicalScreenDescriptor;
SubImages : TList;
constructor Create;
TGifSubImage.SaveToStream } (***** end of TGifSubImage *****) (***** TGifFile
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
BitsPerPixel : Byte;
GlobalColorMap : TColorTable;
HasGlobalColorMap : Boolean;
Header : TGifHeader;
ScreenDescriptor : TLogicalScreenDescriptor;
SubImages : TList;