Class TGIFColorMap (unit GIFImage) |
Inherits from
TPersistent
constructor Create;
- Delphi 2.
function Add(Color: TColor): integer;
procedure Assign(Source: TPersistent);
procedure Changed;
procedure Clear;
class function Color2RGB(Color: TColor): TGIFColor;
procedure Delete(Index: integer);
Look up color before add (same as IndexOf
destructor Destroy;
function ExportPalette: HPalette;
procedure ImportColorTable(Pal: pointer; Count: integer);
procedure ImportDIBColors(Handle: HDC);
From Delphi 3 graphics.
procedure ImportPalette(Palette: HPalette);
function IndexOf(Color: TColor): integer;
procedure LoadFromStream(Stream: TStream; Count: integer);
function Optimize: boolean;
class function RGB2Color(Color: TGIFColor): TColor;
procedure SaveToStream(Stream: TStream);
function DoOptimize(Image: TGIFSubImage; CleanUp: boolean): boolean;
function GetBitsPerPixel: integer;
Find last used color index
function GetColor(Index: integer): TColor;
procedure SetCapacity(Size: integer);
Reverse search to (hopefully) check latest colors first
procedure SetColor(Index: integer; Value: TColor);
procedure Warning(Severity: TGIFSeverity; Message: string);
property BitsPerPixel : integer
property Colors : TColor
property Count : integer
property Data : PColorMap
property Optimized : boolean
FCapacity : integer;
FColorMap : PColorMap;
FCount : integer;
FOptimized : boolean;
constructor Create;
Delphi 2.x stuff (*******************************************************************************
**
** TGIFColorMap
**
function Add(Color: TColor): integer;
procedure Assign(Source: TPersistent);
procedure Changed;
procedure Clear;
class function Color2RGB(Color: TColor): TGIFColor;
procedure Delete(Index: integer);
Look up color before add (same as IndexOf
destructor Destroy;
function ExportPalette: HPalette;
procedure ImportColorTable(Pal: pointer; Count: integer);
procedure ImportDIBColors(Handle: HDC);
From Delphi 3 graphics.pas
procedure ImportPalette(Palette: HPalette);
function IndexOf(Color: TColor): integer;
procedure LoadFromStream(Stream: TStream; Count: integer);
function Optimize: boolean;
class function RGB2Color(Color: TGIFColor): TColor;
procedure SaveToStream(Stream: TStream);
function DoOptimize(Image: TGIFSubImage; CleanUp: boolean): boolean;
function GetBitsPerPixel: integer;
Find last used color index
function GetColor(Index: integer): TColor;
procedure SetCapacity(Size: integer);
Reverse search to (hopefully) check latest colors first
procedure SetColor(Index: integer; Value: TColor);
procedure Warning(Severity: TGIFSeverity; Message: string);
property BitsPerPixel : integer
property Colors : TColor
property Count : integer
property Data : PColorMap
property Optimized : boolean
FCapacity : integer;
FColorMap : PColorMap;
FCount : integer;
FOptimized : boolean;