| Class TColorArrayEditor (unit ColorAEd) |
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);
procedure FormShow(Sender: TObject);
destructor Destroy;
procedure DrawSquare(X, Y: integer; AColor: TColor; IsFocused: boolean);
procedure FrameCurrentSquare;
function GetCurrentSquare: TPoint;
procedure SetColors(Val: TColorArrayClass);
function ValidColorIndex(X, Y: integer): boolean;| 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;