Class TGIFColorMap (unit GIFImage)

Inherits from

TPersistent

Constructors


constructor Create;

Delphi 2.


Functions

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);


Properties

property BitsPerPixel : integer


property Colors : TColor


property Count : integer


property Data : PColorMap


property Optimized : boolean


Events

Variables

FCapacity : integer;


FColorMap : PColorMap;


FCount : integer;


FOptimized : boolean;



Constructors


constructor Create;

Delphi 2.x stuff (******************************************************************************* ** ** TGIFColorMap **


Functions


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);


Properties


property BitsPerPixel : integer


property Colors : TColor


property Count : integer


property Data : PColorMap


property Optimized : boolean


Events


Variables


FCapacity : integer;


FColorMap : PColorMap;


FCount : integer;


FOptimized : boolean;