Class TGIFHeader (unit GIFImage) |
Inherits from
TGIFItem
actual ratio = (AspectRatio + 15) / 64
constructor Create(GIFImage: TGIFImage);
- ******************************************************************************
**
** TGIFHeader
**
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
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
FColorMap : TGIFColorMap;
FLogicalScreenDescriptor : TLogicalScreenDescriptor;
constructor Create(GIFImage: TGIFImage);
******************************************************************************
**
** TGIFHeader
**
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
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
FColorMap : TGIFColorMap;
FLogicalScreenDescriptor : TLogicalScreenDescriptor;