ColorBox

  

Компонент Delphi ColorBox является выпадающим списком цветов. Используется как простой и удобный выбор цвета пользователем. Как правило стандартных цветов нахватает и нам хочется большего, но в этом компоненте и это предусмотрено для этого нам нужно в свойстве Style найти подсвойство cbCustomColors и сделать его значение равным True. Это свойство подставит в первую строку надпись «Custom». При выборе которой пользователю откроется стандартное диалоговое окно Windows «выбор цвета», в котором пользователю предлагается определить заказной цвет. Если вы желаете в первый момент показывать пользователю строку «clDefault» то вам необходимо вписать следующий код

1
2
3
4
procedure TForm10.FormCreate(Sender: TObject);
begin
ColorBox1.Itemindex := ColorBox1.Items.IndexOf('clDefault');
end;

Узнать какой цвет, выбран пользователем в ColorBox, позволяет свойство Selected. Для примера зададим нашей форме цвет выбранный в ColorBox

1
2
3
4
procedure TForm10.ColorBox1Change(Sender: TObject);
begin
form10.Color:=ColorBox1.Selected;
end;

Большинство свойств, методов и событий подобны компоненту ComboBox. Поэтому рассмотрим только некоторые свойства.

свойства компонента ColorBox

 Color  Определяет цвет фона списка.
 ColorNames  Возвращает имя цвета по индексу в списке выбора.
DefaultColorColor  Цвет, заданный по умолчанию. Если в Свойстве Style значения cbSystemColors и cbIncludeDefault равны True
NoneColorColor  Определяет пункт без цвета. Если в свойстве Style значения cbSystemColors и cbIncludeNone равны True
 Selected  Указывает текущий выбранный цвет.
 Styles  Определяет цвета цвета отображаемые в компоненте
• cbStandardColors — 16 основных цветов;
• cbExtendedColors — дополнительные цвета, определенные в Graghics;
• cbSystemColors — в списке отображаются цвета c IMoneyGreen, cISkyBlue, cICream и cIMedGray;
• cbIncludeNone — содержит опцию cINone;
• cbIncludeDefault — содержит опцию cIDefault;
• cbCustomColor — первая опция открывает стандартный диалог TColorDialog;
• cbPrettyNames — цвета отображаются без префикса cl.
 DropDownCount  максимальное число строк, отображаемое в раскрывающемся списке.