Class TfrmColorPaletteEditor (unit ColorPaletteEditor)

Inherits from

TForm

Constructors



Functions

procedure dfRedChange(Sender: TObject);


procedure dfRedKeyPress(Sender: TObject; var Key: Char);


procedure dfRedKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormShow(Sender: TObject);


procedure pbLoadClick(Sender: TObject);


procedure pbModifyClick(Sender: TObject);


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


procedure pbPalPaint(Sender: TObject);


procedure pbSaveClick(Sender: TObject);


function GetPalette: HPalette;


procedure ModifyEntry;


Properties

Events

Variables

ColorDialog1 : TColorDialog;


ColorPalette1 : TColorPalette;


dfBlue : TEdit;


dfGreen : TEdit;


dfIndex : TPanel;


dfRed : TEdit;


dlgOpen : TOpenDialog;


dlgSave : TSaveDialog;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


pbCancel : TButton;


pbLoad : TButton;


pbModify : TButton;


pbOK : TButton;


pbPal : TPaintBox;


pbSave : TButton;


shapeCursor : TShape;


bCreated : boolean;


nIndex : integer;



Constructors


Functions


procedure dfRedChange(Sender: TObject);


procedure dfRedKeyPress(Sender: TObject; var Key: Char);


procedure dfRedKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormShow(Sender: TObject);


procedure pbLoadClick(Sender: TObject);


procedure pbModifyClick(Sender: TObject);


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


procedure pbPalPaint(Sender: TObject);


procedure pbSaveClick(Sender: TObject);


function GetPalette: HPalette;


procedure ModifyEntry;


Properties


Events


Variables


ColorDialog1 : TColorDialog;


ColorPalette1 : TColorPalette;


dfBlue : TEdit;


dfGreen : TEdit;


dfIndex : TPanel;


dfRed : TEdit;


dlgOpen : TOpenDialog;


dlgSave : TSaveDialog;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


pbCancel : TButton;


pbLoad : TButton;


pbModify : TButton;


pbOK : TButton;


pbPal : TPaintBox;


pbSave : TButton;


shapeCursor : TShape;


bCreated : boolean;


nIndex : integer;