|
|
|
| |
Определяет развернутый список для выбора цвета.
Создание объекта
clbObj=new TColorListBox(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| Count
| Number
| количество строк в списке
|
| DefaultColorColor
| TColor
| цвет по умолчанию (свойство Style должно включать флаги cbSystemColors и cbIncludeDefault)
|
| ItemHeight
| Number
| высота строки списка
|
| Items
| TStrings
| список названий цветов
|
| ItemIndex
| Number
| индекс выбранной строки списка
|
| NoneColorColor
| TColor
| цвет "без цвета" (свойство Style должно включать флаги cbSystemColors и cbIncludeNone)
|
| ScrollWidth
| Number
| ширина списка, превышение которой приводит к появлению полосы горизонтальной прокрутки
|
| Selected
| TColor
| выбранный цвет
|
| Style
| Enumset
| набор цветов списка (см. ниже)
|
| TopIndex
| Number
| индекс первой видимой строки в списке
|
| Только чтение
| [TYPE]
| [DESC]
|
| Canvas
| TCanvas
| дескриптор графической канвы
|
| ColorNames[]
| String
| индексированный список имен цветов
|
| Colors[]
| TColor
| индексированный список цветов
|
|
| Свойство Style
|
| Значение
| Описание
|
| cbStandardColors
| стандартный набор цветов (16 основных цветов)
|
| cbExtendedColors
| дополнительный набор цветов
|
| cbSystemColors
| системный набор цветов
|
| cbIncludeNone
| включить в набор цветов пункт "clNone"
|
| cbIncludeDefault
| включить в набор цветов пункт "clDefault"
|
| cbCustomColor
| включить в набор цветов пункт "Custom...", открывающий стандартный диалог выбора цвета
|
| cbPrettyNames
| отображать названия цветов без префикса "cl"
|
| cbCustomColors
| пользовательский набор цветов
|
|
Стандартные свойства
| Собственные методы
|
| Метод
| Описание
|
| ItemAtPos
| возвращает индекс строки в указанной позиции
|
| ItemRect
| возвращает расположение строки с указанным индексом
|
|
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
| OnGetColors
| список будет заполнен названиями цветов
|
|
Стандартные события
var tab=10;
// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TColorListBox";
frm.Width =600;
frm.Height=450;
// Строка состояния
stb=new TStatusBar(frm);
// ColorListBox
clb=new TColorListBox(frm);
clb.Style=cbStandardColors+cbExtendedColors;
clb.SetBounds(tab,tab,200,stb.Top-tab*2);
clb.OnClick=clb_Click;
clb.OnMouseWheel=clb_MouseWheel;
// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Left=clb.Left+clb.Width+tab;
pnl.Top =clb.Top;
pnl.Width =frm.ClientWidth-pnl.Left-tab;
pnl.Height=clb.Height;
pnl.Color=clb.Selected=clWhite;
clb_Click(clb);
clb.SetFocus();
frm.ShowModal();
// Обработчик события OnClick
function clb_Click(clb)
{
pnl.Color=clb.Selected;
stb.SimpleText=" Выбран цвет: "+
clb.ColorNames[clb.ItemIndex]+" ("+pnl.Color.toHColor()+")";
}
// Обработчик события OnMouseWheel
function clb_MouseWheel(clb,sft,dlt,pos,handled)
{
if (dlt>0) {
if (clb.ItemIndex>0)
--clb.ItemIndex;
}
else
if (dlt<0) {
if ((clb.ItemIndex+1)<clb.Count)
++clb.ItemIndex;
}
else
return;
clb_Click(clb);
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
