| Class TStandardColorForm (unit StdForm) |
TForm
Display a table of the 20 standard Windows colors. Copyright © 1998 Tempest Software, Inc.
| Constructors |
| Functions |
procedure EditCopyClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GridDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect;
State: TGridDrawState);
procedure DefineColor(Row: Integer; Name: string);| 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;