Class TStandardColorForm (unit StdForm) |
Inherits from
TForm
Display a table of the 20 standard Windows colors. Copyright © 1998 Tempest Software, Inc.
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.
EditCopy : TMenuItem;
Grid : TStringGrid;
PopupMenu : TPopupMenu;
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.
EditCopy : TMenuItem;
Grid : TStringGrid;
PopupMenu : TPopupMenu;