Компонент 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 | максимальное число строк, отображаемое в раскрывающемся списке. |