Class TfrmColorIndexEditor (unit ColorIndexEditor)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure pbColorsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure pbColorsPaint(Sender: TObject);


function GetPalette: HPALETTE;


Properties

Events

Variables

Label1 : TLabel;


panelIndex : TPanel;


pbCancel : TBitBtn;


pbColors : TPaintBox;


pbOK : TBitBtn;


shapeCursor : TShape;


nIndex : integer;


pal : TColorPalette;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure pbColorsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure pbColorsPaint(Sender: TObject);


function GetPalette: HPALETTE;


Properties


Events


Variables


Label1 : TLabel;


panelIndex : TPanel;


pbCancel : TBitBtn;


pbColors : TPaintBox;


pbOK : TBitBtn;


shapeCursor : TShape;


nIndex : integer;


pal : TColorPalette;