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

Основные свойства FontDialog

Свойство Font типа TFont определяет параметры шрифта. Управление параметрами шрифта осуществляется через его подсвойства, наиболее важными из которых являются Name, Style, Size, Color.

Свойство MaxFontSize типа Integer ограничивает доступный в диалоговом окне максимальный размер шрифта. Активно, если включен параметр fdLimitsize.

Свойство MinFontSize типа Integer ограничивает доступный в диалоговом окне минимальный размер шрифта. Активно, если включен параметр fdLimitsize.

Свойство Device типа TFontDialogDevice указывает тип устройства, для которого устанавливается шрифт, и может принимать одно из трех значений:

• fdScreen (вывод на экран);
• fdPrinter (вывод на принтер);
• fdBoth (вывод на экран и принтер).

Свойство Options типа TFontDialogOptions служит для настройки отдельных параметров диалога и включает свыше полутора десятков параметров; важнейшие из них (по умолчанию включен параметр fdEffects):

• fdEffects (отображение флажков атрибутов Подчеркнутый и Зачеркнутый, а также списка Цвет);
• fdLimitsize (активизация свойств MaxFontSize и MinFontSize, устанавливающих допустимый диапазон размеров шрифта);
• fdTrueTypeOnly (отображение в списке только шрифто в TrueType);
• fdWysiwyg (отображение в списке шрифтов, одновременно доступных и для экрана, и для принтера).

Так, в приведенной ниже строке кода задается шрифт надписи Label1 с помощью диалога выбора шрифтов.

Задаем шрифт надписи Label1

if FontDialog1.Execute then
begin
Label1.Font := FontDialog1.Font;
end;