Class TColorArrayEditor (unit ColorAEd)

Inherits from

TForm

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure FormClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);

Compare first selected to all other selected color sets

procedure FormShow(Sender: TObject);


destructor Destroy;


procedure DrawSquare(X, Y: integer; AColor: TColor; IsFocused: boolean);

Draw seperator line

procedure FrameCurrentSquare;

Paint the color

function GetCurrentSquare: TPoint;


procedure SetColors(Val: TColorArrayClass);


function ValidColorIndex(X, Y: integer): boolean;

Unframe the last one

Properties

property Colors : TColorArrayClass


Events

Variables

btnCancel : TButton;


btnOK : TButton;


ColorDlg : TColorDialog;


FColors : TColorArrayClass;


FLastFrame : TPoint;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure FormClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);

Compare first selected to all other selected color sets


procedure FormShow(Sender: TObject);


destructor Destroy;


procedure DrawSquare(X, Y: integer; AColor: TColor; IsFocused: boolean);

Draw seperator line


procedure FrameCurrentSquare;

Paint the color


function GetCurrentSquare: TPoint;


procedure SetColors(Val: TColorArrayClass);


function ValidColorIndex(X, Y: integer): boolean;

Unframe the last one


Properties


property Colors : TColorArrayClass


Events


Variables


btnCancel : TButton;


btnOK : TButton;


ColorDlg : TColorDialog;


FColors : TColorArrayClass;


FLastFrame : TPoint;