M Y D E L P H I 7 . R U Самоучитель программирования  
 
  • Главная
    •  

     

    Класс TFont

    Класс инкапсулирует шрифт Windows. В Delphi допускаются только горизонтально расположенные шрифты. В конструкторе объекта по умолчанию принимается шрифт System, цвета ciwindowText и размером 10 пунктов.

    Свойства класса приведены в табл. 10.1.

    Таблица 10.1. Свойства класса TFont

    Свойство

    Описание

    property Handle: HFont;

    Содержит дескриптор шрифта

    property Name: TFontName;

    Содержит имя (начертание) шрифта, например, Arial

    property Style: TFontStyles; TFontStyle = (fsBold, fsltalic, fsUnderline, fsStrikeOut) ; TFontStyles = set of TFontStyle;

    Содержит стиль (особенности начертания) шрифта: соответственно жирный, курсив, подчеркнутый и перечеркнутый

    property Color: TColor; TColor = - (COLOR ENDCOLORS + 1} . . $2FFFFFF;

    Определяет цвет шрифта

    property Charset: TFontCharset TFontCharset = 0..255;

    Содержит номер набора символов шрифта. По умолчанию равно 1 (DEFAULT CHARSET). Для вывода символов кириллицы требуется RUSSIAN CHARSET

    property Pitch: TFontPitch;

    TFontPitch = (fpDefault, fpVariable, fpFixed);

    Определяет способ установки ширины символов шрифта. Значение fpFixed соответствует моноширинным шрифтам; fpVariable— шрифтам с переменной шириной символа. Установка fpDefault означает принятие того способа, который определен начертанием

    property Height: Integer;

    Содержит значение высоты шрифта в пикселах

    property PixelsPerlnch: Integer;

    Определяет число точек на дюйм. Первоначально равно числу точек на дюйм в контексте экрана. Программист не должен изменять это свойство, т. к. оно используется системой для приведения изображения на экране и на принтере к одному виду

    property Size: Integer;

    Содержит размер шрифта в пунктах (как принято в Windows). Это свойство связано с Height соотношением:  Font. Size := -Font . Height*72/ Font . PixelsPerlnch

    Установка этих свойств вручную, как правило, не нужна. Если вы хотите изменить шрифт для какого-то компонента, воспользуйтесь компонентом TFontDialog. В нем можно и поменять свойства, и сразу увидеть получившийся результат на тестовой надписи; потом выбранный шрифт присваивается свойству Font нужного компонента:

    if FontDialogl.Execute then Editl.Font := FontDialogl.Font;

     Примечание 

    Если вы хотите, не закрывая диалог, увидеть результат применения шрифта на вашем тексте, включите опцию fdApplyButton в свойстве Options объекта TFontDialog и напишите для него обработчик события onApply. При этом в диалоговом окне появится кнопка Apply, no нажатии которой (событие OnApply) можно изменить параметры шрифта.