Компонент Delphi ColorBox (Выбор цвета) расположен на странице Additional Палитры компонентов. Он представляет собой раскрывающийся список в котором мы можем задать необходимый нам цвет (слева расположен квадратик с образцом цвета, а справа название цвета по английски плюс приставка cl).
Если нам не будет хватать цветов, то можно будет создать свой. Для этого в свойстве Style выбрать подствойство cbCustomColor и установить его в TRUE.
Определить какой сейчас задан цвет мы можем с помощью свойства Selected.
Основные свойства и методы, событий такие же как у компонента ComboBox. В свойстве Items типа TStrings содержится список всех строк. Если нам при создании формы необходимо сделать видимым выбор определенного цвета, например красный цвет, то это можно сделать задав такой обработчик формы OnCreate:
procedure TForm1.FormCreate(Sender: TObject); begin ColorBox1.ItemIndex := ColorBox1.Items.IndexOf('clRed'); end;
Для закрепления материала создадим такое приложение. На форму разместим сам компонент ColorBox, простую кнопку компонент Button и компонент Panel. Кнопка "Выбор цвета будет" задавать цвет панели и содержать такой обработчик:
procedure TForm1.Button1Click(Sender: TObject); begin Panel1.Color:= ColorBox1.Selected; end;
Итог: мы рассмотрели компонент ColorBox его применение в приложении.
Подскажите как цвет COLORBOX применить на цвет текста в MEMO. С цветом фона MEMO все получилось, а вот с текстом проблема.
Данный код установит цвет шрифта написанного в memo1:
Для более точной настройки шрифта существует компонент FontDialog на странице Dialogs Палитры компонентов. Поместите его на форму и сделайте обработчик кнопки, которая будет менять цвет шрифта: