Class TDFSColorButtonPalette (unit CBtnForm) |
Inherits from
TForm
constructor Create(AOwner: TComponent);
- all colors matched
procedure btnOtherClick(Sender: TObject);
destructor Destroy;
Inherited is going to fire FormCreate which needs the colors, so create our
stuff before calling inherited.
procedure FormClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
get custom colors here
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Unframe the last one
procedure FormPaint(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure AppDeactivate(Sender: TObject);
didn't find it
procedure DrawSquare(X, Y: integer; AColor: TColor; IsFocused: boolean);
Draw the current selection
procedure FrameCurrentSquare(NewFrame: TPoint);
function GetCurrentSquare: TPoint;
procedure SetCustomColors(Value: TCustomColors);
procedure SetPaletteColors(Value: TPaletteColors);
procedure SetStartColor(Value: TColor);
Oh, how I do hate large fonts.
function ValidColorIndex(X, Y: integer): boolean;
property CustomColors : TCustomColors
property OtherColor : TColor
property PaletteClosed : TNotifyEvent
property PaletteColors : TPaletteColors
property SetParentColor : TSetParentColorEvent
property StartColor : TColor
btnOther : TButton;
FCustomColors : TCustomColors;
FLastFrame : TPoint;
FOldAppDeactivate : TNotifyEvent;
FOtherColor : TColor;
FPaletteClosed : TNotifyEvent;
FPaletteColors : TPaletteColors;
FPreventClose : boolean;
FSetParentColor : TSetParentColorEvent;
FStartColor : TColor;
constructor Create(AOwner: TComponent);
all colors matched
procedure btnOtherClick(Sender: TObject);
destructor Destroy;
Inherited is going to fire FormCreate which needs the colors, so create our
stuff before calling inherited.
procedure FormClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
get custom colors here
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Unframe the last one
procedure FormPaint(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure AppDeactivate(Sender: TObject);
didn't find it
procedure DrawSquare(X, Y: integer; AColor: TColor; IsFocused: boolean);
Draw the current selection
procedure FrameCurrentSquare(NewFrame: TPoint);
function GetCurrentSquare: TPoint;
procedure SetCustomColors(Value: TCustomColors);
procedure SetPaletteColors(Value: TPaletteColors);
procedure SetStartColor(Value: TColor);
Oh, how I do hate large fonts.
function ValidColorIndex(X, Y: integer): boolean;
property CustomColors : TCustomColors
property OtherColor : TColor
property PaletteClosed : TNotifyEvent
property PaletteColors : TPaletteColors
property SetParentColor : TSetParentColorEvent
property StartColor : TColor
btnOther : TButton;
FCustomColors : TCustomColors;
FLastFrame : TPoint;
FOldAppDeactivate : TNotifyEvent;
FOtherColor : TColor;
FPaletteClosed : TNotifyEvent;
FPaletteColors : TPaletteColors;
FPreventClose : boolean;
FSetParentColor : TSetParentColorEvent;
FStartColor : TColor;