На этом шаге мы рассмотрим компонент TColorBox.

Компонент TColorBox представляет собой комбинированный список, опциями которого являются цвета. Таким образом компонент TColorBox предназначен для отображения и выбора цвета. В отличие от компонентов TColorGrid (страница Samples) и TColorDialog (страница Dialogs) состав отображаемых им цветов может меняться.

Многие свойства, методы и события компонента совпадают с одноименными свойствами, методами и событиями компонента TComboBox.

Специфичные свойства компонента:

Таблица 1. Свойства компонента TColorBox
Свойство Описание

Property Color: TColor; Определяет цвет фона списка.

Property ColorNames[Index: Integer]: String; Возвращает имя цвета по его индексу в списке выбора.

Property Colors[Index: Integer]: TColor; Позволяет выбрать необходимый цвет по индексу.

Property DefaultColorColor: TColor; Содержит цвет, заданный по умолчанию. Свойство Style должно включать флаги cbSystemColors и cbIncludeDefault.

Property NoneColorColor: TColor; Определяет пункт без цвета. Свойство Style должно включать флаги cbSystemColors и cbIncludeNone.

Property Selected: TColor; Указывает текущий выбранный цвет.

type TColorBoxStyles = (cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames);
TColorBoxStyle = set of TColor BoxStyles;
Property Style: TColorBoxStyle; Определяет отображаемые компонентом цвета:

cbStandardColors - список содержит 16 основных цветов;
cbExtendedColors - список содержит дополнительные цвета, определенные в модуле Graghics;
cbSystemColors - в списке отображаются цвета cIMoneyGreen, cISkyBlue, cICream и cIMedGray;
cbIncludeNone - список содержит опцию cINone;
cbIncludeDefault - список содержит опцию cIDefault;
cbCustomColor - первая опция списка открывает стандартный диалог TColorDialog;
cbPrettyNames - имена цветов отображаются без префикса cl.

Таблица 1. **Свойства компонента TColorBox**
Свойство	Описание
Property Color: TColor;	Определяет цвет фона списка.
Property ColorNames[Index: Integer]: String;	Возвращает имя цвета по его индексу в списке выбора.
Property Colors[Index: Integer]: TColor;	Позволяет выбрать необходимый цвет по индексу.
Property DefaultColorColor: TColor;	Содержит цвет, заданный по умолчанию. Свойство Style должно включать флаги cbSystemColors и cbIncludeDefault.
Property NoneColorColor: TColor;	Определяет пункт без цвета. Свойство Style должно включать флаги cbSystemColors и cbIncludeNone.
Property Selected: TColor;	Указывает текущий выбранный цвет.
type TColorBoxStyles = (cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames); TColorBoxStyle = set of TColor BoxStyles; Property Style: TColorBoxStyle;	Определяет отображаемые компонентом цвета: cbStandardColors - список содержит 16 основных цветов; cbExtendedColors - список содержит дополнительные цвета, определенные в модуле Graghics; cbSystemColors - в списке отображаются цвета cIMoneyGreen, cISkyBlue, cICream и cIMedGray; cbIncludeNone - список содержит опцию cINone; cbIncludeDefault - список содержит опцию cIDefault; cbCustomColor - первая опция списка открывает стандартный диалог TColorDialog; cbPrettyNames - имена цветов отображаются без префикса cl.

Приведем пример: создадим приложение, которое позволит просматривать цвета принятые в Windows, и их названия.

Поместим на форму компоненты: TLabel и TColorBox.

Рис.1.Windows-окно примера при проектировании

Для компонента ColorBox1 напишем обработчик события OnSelected:

procedure TForm1.ColorBox1Select(Sender: TObject);
begin
 Label1.Color:= ColorBox1.Selected;
 Label2.Caption:= ColorBox1.Items[ColorBox1.ItemIndex];
end;

Текст этого примера можно взять здесь.

Работа программы показана на рис.2.

Рис.2.Окно приложения при запуске

Компонент TColorBox был введен в версии 6.

На следующем шаге мы рассмотрим компонент TChart.

Предыдущий шаг Содержание Следующий шаг