Иллюстрированный самоучитель по Delphi 7 для профессионалов

Класс 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, по нажатии которой (событие OnApply) можно изменить параметры шрифта
.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.