Class TPaletteForm (unit GIFPal)

Inherits from

TForm

Constructors



Functions

procedure ColorGridDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure FormCreate(Sender: TObject);


procedure SetPalette(Palette: HPALETTE);

Public declarations

function GetPalette: HPALETTE;


function CellColor(Row, Col: Longint): TColor;


procedure ColorToCell(AColor: TColor; var Col, Row: Longint);


procedure DrawSquare(Row, Col: Longint; CellRect: TRect; ShowSelector: Boolean);


Properties

Events

Variables

CancelBtn : TButton;


ColorGrid : TRxDrawGrid;


GridPanel : TPanel;


OkBtn : TButton;


RightPanel : TPanel;


FCount : Integer;


FPalette : HPALETTE;


FPaletteEntries : array[0..NumPaletteEntries - 1] of TPaletteEntry;

Private declarations


Constructors


Functions


procedure ColorGridDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure FormCreate(Sender: TObject);


procedure SetPalette(Palette: HPALETTE);

Public declarations


function GetPalette: HPALETTE;


function CellColor(Row, Col: Longint): TColor;


procedure ColorToCell(AColor: TColor; var Col, Row: Longint);


procedure DrawSquare(Row, Col: Longint; CellRect: TRect; ShowSelector: Boolean);


Properties


Events


Variables


CancelBtn : TButton;


ColorGrid : TRxDrawGrid;


GridPanel : TPanel;


OkBtn : TButton;


RightPanel : TPanel;


FCount : Integer;


FPalette : HPALETTE;


FPaletteEntries : array[0..NumPaletteEntries - 1] of TPaletteEntry;

Private declarations