| Class TfrmColorPaletteEditor (unit ColorPaletteEditor) |
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;