|
|
|
| |
Определяет стандартный диалог выбора шрифта.
Создание объекта
dlgObj=new TFontDialog(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| Font
| TFont
|
|
| Device
| Enum
| шрифты для устройства (см. ниже)
|
| MinFontSize
| Number
| минимально допустимый размер шрифта (при активной опции fdLimitSize)
|
| MaxFontSize
| Number
| максимально допустимый размер шрифта (при активной опции fdLimitSize)
|
| Options
| Enumset
| (см. ниже)
|
| Title
| String
| заголовок диалога
|
| Только чтение
| [TYPE]
| [DESC]
|
| Handle
| Number
| дескриптор окна диалога
|
|
| Свойство Device
|
| Значение
| Описание
|
| fdScreen
| экран
|
| fdPrinter
| принтер
|
| fdBoth
| экран+принтер
|
|
| Свойство Options
|
| Значение
| Описание
|
| fdAnsiOnly
| только шрифты, содержащие стандартный набор символов Windows
|
| fdApplyButton
| добавить в диалог кнопку "Применить"
|
| fdEffects
| добавить в диалог выбор зачеркивания/подчеркивания и цвета шрифта
|
| fdFixedPitchOnly
| только моноширинные шрифты
|
| fdForceFontExist
| предупреждать о выборе несуществующего шрифта
|
| fdLimitSize
| ограничить размер выбираемого шрифта диапазоном [MinFontSize ... MaxFontSize]
|
| fdNoFaceSel
| не устанавливать начальное имя шрифта
|
| fdNoOEMFonts
| кроме DOS-шрифтов
|
| fdNoSimulations
| кроме имитируемых шрифтов
|
| fdNoSizeSel
| не устанавливать начальный размер шрифта
|
| fdNoStyleSel
| не устанавливать начальный стиль шрифта
|
| fdNoVectorFonts
| кроме векторных шрифтов (для плоттеров)
|
| fdScalableOnly
| только масштабируемые шрифты
|
| fdShowHelp
| добавить в диалог кнопку "Помощь"
|
| fdTrueTypeOnly
| только шрифты TrueType
|
| fdWysiwyg
| только шрифты, поддерживаемые и дисплеем, и принтером
|
|
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
| OnApply
| нажата кнопка "Применить"
|
|
Стандартные события
// Главная форма
frm=new TForm();
frm.Caption="JS+ - диалоговый компонент TFontDialog";
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;
pnl.Caption="Образец";
frm.ShowModal();
// Обработчик события OnClick
function btn_Click(btn)
{
var dlg,dlg_fnt,pnl_fnt=pnl.Font;
// Диалог
with (dlg=new TFontDialog(frm)) {
Title="Выбор шрифта ...";
Device=fdScreen;
Options=fdEffects+fdAnsiOnly+fdNoOEMFonts+fdNoVectorFonts;
OnApply=dlg_Apply;
OnClose=dlg_Close;
}
(dlg_fnt=dlg.Font).Assign(pnl_fnt);
if (dlg.Execute()) {
stb.SimpleText=
" Выбран шрифт: "+dlg_fnt.Name+", "+dlg_fnt.Size;
pnl_fnt.Assign(dlg_fnt);
}
dlg.Delete();
}
// Обработчик события OnApply
function dlg_Apply(dlg)
{
pnl.Font.Assign(dlg.Font);
alert('Нажата кнопка "Применить"');
}
// Обработчик события OnClose
function dlg_Close(dlg)
{
stb.SimpleText=' Диалог "'+dlg.Title+'" закрыт';
}
|
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
