| Class TDFSColorButtonPalette (unit CBtnForm) |
TForm
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure btnOtherClick(Sender: TObject);
destructor Destroy;
procedure FormClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
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);
procedure FormPaint(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure AppDeactivate(Sender: TObject);
procedure DrawSquare(X, Y: integer; AColor: TColor; IsFocused: boolean);
procedure FrameCurrentSquare(NewFrame: TPoint);
function GetCurrentSquare: TPoint;
procedure SetCustomColors(Value: TCustomColors);
procedure SetPaletteColors(Value: TPaletteColors);
procedure SetStartColor(Value: TColor);
function ValidColorIndex(X, Y: integer): boolean;| Properties |
property CustomColors : TCustomColors
property OtherColor : TColor
property PaletteClosed : TNotifyEvent
property PaletteColors : TPaletteColors
property SetParentColor : TSetParentColorEvent
property StartColor : TColor| Events |
| Variables |
btnOther : TButton;
FCustomColors : TCustomColors;
FLastFrame : TPoint;
FOldAppDeactivate : TNotifyEvent;
FOtherColor : TColor;
FPaletteClosed : TNotifyEvent;
FPaletteColors : TPaletteColors;
FPreventClose : boolean;
FSetParentColor : TSetParentColorEvent;
FStartColor : TColor;| Constructors |
constructor Create(AOwner: TComponent);all colors matched
| Functions |
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;| Properties |
property CustomColors : TCustomColors
property OtherColor : TColor
property PaletteClosed : TNotifyEvent
property PaletteColors : TPaletteColors
property SetParentColor : TSetParentColorEvent
property StartColor : TColor| Events |
| Variables |
btnOther : TButton;
FCustomColors : TCustomColors;
FLastFrame : TPoint;
FOldAppDeactivate : TNotifyEvent;
FOtherColor : TColor;
FPaletteClosed : TNotifyEvent;
FPaletteColors : TPaletteColors;
FPreventClose : boolean;
FSetParentColor : TSetParentColorEvent;
FStartColor : TColor;