| Class TGIFHeader (unit GIFImage) |
actual ratio = (AspectRatio + 15) / 64
| Constructors |
constructor Create(GIFImage: TGIFImage);| Functions |
procedure AssignTo(Dest: TPersistent);
destructor Destroy;
procedure LoadFromStream(Stream: TStream);
procedure SaveToStream(Stream: TStream);
function GetBackgroundColor: TColor;
function GetBitsPerPixel: integer;
function GetColorResolution: integer;
function GetVersion: TGIFVersion;
procedure SetBackgroundColor(Color: TColor);
procedure SetBackgroundColorIndex(Index: BYTE);
procedure Prepare;| Properties |
property AspectRatio : BYTE
property BackgroundColor : TColor
property BackgroundColorIndex : BYTE
property BitsPerPixel : integer
property ColorMap : TGIFColorMap
property ColorResolution : integer
property Height : WORD
property Version : TGIFVersion
property Width : WORD| Events |
| Variables |
FColorMap : TGIFColorMap;
FLogicalScreenDescriptor : TLogicalScreenDescriptor;| Constructors |
constructor Create(GIFImage: TGIFImage);****************************************************************************** ** ** TGIFHeader **
| Functions |
procedure AssignTo(Dest: TPersistent);
destructor Destroy;
procedure LoadFromStream(Stream: TStream);
procedure SaveToStream(Stream: TStream);Note: The SHL below was SHL 5 in the original source, but that looks wrong
function GetBackgroundColor: TColor;
function GetBitsPerPixel: integer;
function GetColorResolution: integer;
function GetVersion: TGIFVersion;
procedure SetBackgroundColor(Color: TColor);
procedure SetBackgroundColorIndex(Index: BYTE);
procedure Prepare;size of global color table - 3 bits } { Actual size = 2^value+1 - value is 3 bits
| Properties |
property AspectRatio : BYTE
property BackgroundColor : TColor
property BackgroundColorIndex : BYTE
property BitsPerPixel : integer
property ColorMap : TGIFColorMap
property ColorResolution : integer
property Height : WORD
property Version : TGIFVersion
property Width : WORD| Events |
| Variables |
FColorMap : TGIFColorMap;
FLogicalScreenDescriptor : TLogicalScreenDescriptor;