Class TStandardColorForm (unit StdForm)

Inherits from

TForm

Display a table of the 20 standard Windows colors. Copyright © 1998 Tempest Software, Inc.

Constructors



Functions

procedure EditCopyClick(Sender: TObject);

Copy the text of the table to the clipboard, separating columns with tabs, and rows with CR-LF line endings.

procedure FormCreate(Sender: TObject);


procedure GridDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

Draw the left-most column of the grid by filling the cell with the actual color.

procedure DefineColor(Row: Integer; Name: string);

Get the definition of a standard Windows color.

Properties

Events

Variables

EditCopy : TMenuItem;


Grid : TStringGrid;


PopupMenu : TPopupMenu;



Constructors


Functions


procedure EditCopyClick(Sender: TObject);

Copy the text of the table to the clipboard, separating columns with tabs, and rows with CR-LF line endings.


procedure FormCreate(Sender: TObject);


procedure GridDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

Draw the left-most column of the grid by filling the cell with the actual color.


procedure DefineColor(Row: Integer; Name: string);

Get the definition of a standard Windows color. The Row argument is the row number in the grid. The palette index is Row-1.


Properties


Events


Variables


EditCopy : TMenuItem;


Grid : TStringGrid;


PopupMenu : TPopupMenu;