| Class TPaletteForm (unit GIFPal) |
TForm
| Constructors |
| Functions |
procedure ColorGridDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
procedure SetPalette(Palette: HPALETTE);
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;| 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