ColorDialog

  

Компонент Delphi ColorDialog формирует диалоговое окно выбора цвета пользователем, изображенного на рисунке 1. В котором можно выбрать цвет из базовой палитры, а также можно раскрыть дополнительную панель, для выбора цвета не входящего в базовую. Выбранный вами цвет можно добавить в дополнительные цвета кнопкой «Добавить в набор» для его сохранения и использования в дальнейшем.

Выбрать цвет в компоненте ColorDialog

Рис. 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;		 Определяет вид окна:

  • cdPreventFullOpen – Запрещает выбор дополнительных цветов, отключая кнопку выбор цвета
  • cdFullOpen – При вызове диалога сразу предоставляет возможность выбора дополнитнльных цветов;
  • cdShowHelp – Дополняет диалог кнопкой помощи;
  • cdAnyColor – Допускает выбор не только так называемых чистых цветов, но и полутонов;
  • cdSolidColor –При работе с цветовыми палитрами требует найти в палитре цвет, наиболее похожий на цвет, выбранный пользователем;

 

Для примера использования компонента возьмем компонент Label, Button и ColorDialog

Демонстрация работы 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.