Class TDFSColorButtonPalette (unit CBtnForm)

Inherits from

TForm

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;



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;