Компонент Delphi ColorDialog формирует диалоговое окно выбора цвета пользователем, изображенного на рисунке 1. В котором можно выбрать цвет из базовой палитры, а также можно раскрыть дополнительную панель, для выбора цвета не входящего в базовую. Выбранный вами цвет можно добавить в дополнительные цвета кнопкой «Добавить в набор» для его сохранения и использования в дальнейшем.
Рис. 1
Свойства ColorDialog
таблица. 1 | |
Свойство | Описание |
property Color: TColor; | Содержит выбранный вами цвет |
property CustomColors: TStrings; | Содержит цвета выбранные пользователем(до 16 цветов). Формат каждой строки имеет следующий <имя цвета>=< шестнадцатеричное значение цвета RGB >, где имя цвета задается от ColorA (это первый цвет) до ColorP (последний, шестнадцатый цвет). Пример ColorP=985345 |
TColorDialogOption = (cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor, cdAnyColor); TColorDialogOptions = set of TColorDialogOption; property Options: TColorDialogOptions; |
Определяет вид окна:
|
Для примера использования компонента возьмем компонент Label, Button и ColorDialog
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | procedure TForm5.Button1Click(Sender: TObject); begin if ColorDialog5.Execute then Label5.Color:=ColorDialog1.Color; end; procedure TForm5.Button2Click(Sender: TObject); begin If ColorDialog5.Execute then Label5.Font.Color := ColorDialog1.Color; end; end. |