Class TGIFHeader (unit GIFImage)

Inherits from

TGIFItem

actual ratio = (AspectRatio + 15) / 64

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;



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;