|
|
|
| |
Определяет стандартный диалог выбора цвета.
Создание объекта
dlgObj=new TColorDialog(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| CustomColors
| TStrings
| Список дополнительных цветов из строк вида:
"ColorX=BBGGRR", где X=[A : P]
Например:
"ColorA=0000F0" (красный)
"ColorB=00F000" (зеленый)
"ColorC=F00000" (синий)
...
"ColorP=FFFFFF" (белый)
|
| Options
| Enumset
| параметры отображения диалога (см. ниже)
|
| Title
| String
| заголовок диалога
|
| Только чтение
| [TYPE]
| [DESC]
|
| Handle
| Number
| дескриптор окна диалога
|
|
| Свойство Options
|
| Значение
| Описание
|
| cdAnyColor
| позволяет выбирать дополнительные цвета, включая полутона
|
| cdFullOpen
| диалог открывается с блоком выбора дополнительных цветов
|
| cdPreventFullOpen
| запрещает выбор дополнительных цветов
|
| cdShowHelp
| добавляет в окно диалога кнопку "Справка"
|
| cdSolidColor
| возвращает ближайший к выбранному цвет основной палитры
|
|
Стандартные методы
Стандартные события
// Главная форма
frm=new TForm();
frm.Caption="JS+ - диалоговый компонент TColorDialog";
frm.Width =450;
frm.Height=300;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Цвет"';
// Кнопка
btn=new TButton(frm);
btn.Caption="Цвет";
btn.Left=frm.ClientWidth-btn.Width-10;
btn.Top =stb.Top-btn.Height-10;
btn.OnClick=btn_Click;
// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.SetBounds(10,10,frm.ClientWidth-20,btn.Top-20);
pnl.Color=clWhite;
frm.ShowModal();
// Обработчик события OnClick
function btn_Click(btn)
{
var dlg;
// Диалог
with (dlg=new TColorDialog(frm)) {
Title="Выбор цвета ...";
Color=pnl.Color;
CustomColors.Add("ColorA=0000F0");// Красный
CustomColors.Add("ColorB=00F000");// Зеленый
CustomColors.Add("ColorC=F00000");// Синий
OnShow =dlg_Show;
OnClose=dlg_Close;
}
if (dlg.Execute())
stb.SimpleText=" Выбран цвет: "+(pnl.Color=dlg.Color).toHColor();
dlg.Delete();
}
// Обработчик события OnShow
function dlg_Show(dlg)
{
stb.SimpleText=' Диалог "'+dlg.Title+'" показан';
}
// Обработчик события OnClose
function dlg_Close(dlg)
{
stb.SimpleText=' Диалог "'+dlg.Title+'" закрыт';
}
|
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
