FontDialog

  

Компонент Delphi FontDialog выводит на экран стандартное диалоговое окно выбора шрифта (Рисунок 1). Диалог позволяет выбирать один из установленных в операционной системе шрифтов и настроить его ключевые параметры.

Пример формы компонент FontDialog

Рис.1

Внешний вид и возможности окна выбора шрифта в первую очередь зависят от выбранных программистов опций.

Опции FontDialog

Значение Описание
fdAnsiOnly Отображать только шрифты в кодировке ANSI
fdApplyButton Выводить в окно диалога кнопку «Пременить». Наличие этой кнопки предоставит возможность событием диалога onApply
fdEffects Выводить в окно диалога флажки зачеркнутый и Подчеркнутый и список выбора цвета шрифта
fdFixedPitchOnly Включать в набор шрифтов только шрифты, у которых ширина всех символов одинакова
fdForceFontExist Допускает ввод имени гарнитуры шрифта в строке ввода. Если пользователь наберет имя, отсутствующее в списке, будет выведено сообщение об ошибке
fdLimitSize Работает совместно со свойствами диалога MaxFontSize и MinFontSize, накладывает ограничение на диапазон размеров шрифтов
fdNoFaceSel При вызове диалога в списке выбора не задается шрифт по умолчанию
fdNoOEMFonts Из списка отображаемых шрифтов исключается шрифты с набором символов OEM
fdNoSimulations Показывает только шрифты и начертания шрифта, которые непосредственно обеспечиваются файлом формирования рисунка шрифта. В список доступных шрифтов не вклбчаются стили, синтезированные GDI Windows
fdNoSizeSel При выборе диалога не задается размер шрифта по умолчанию
fdNoStyleSel При вызове диалога не задается стиль начертания шрифта
fdNoVectorFonts Изымает из списка выбора все векторные шрифты
fdScalableOnly Показывает только масштабируемые шрифты, растровые шрифты удаляются из списка
fdShowHelp Выводит кнопку помощи
fdTrueTypeOnly Выводит только TrueType-шрифты
fdWysiwyg Выводит только шрифты, доступные принтеру и экрану

Пример использования компонента. На форму расположим компонент FontDialog, кнопку Button и компонент Label для демонстрации выбора шрифта

Пример использования компонента

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then
Label1.Font:=FontDialog1.Font;
end;
end.