|
Класс TFont
Класс инкапсулирует шрифт Windows.
В Delphi допускаются только горизонтально расположенные
шрифты. В конструкторе объекта по умолчанию принимается
шрифт System, цвета
ciwindowText и размером 10 пунктов.
Свойства класса приведены в табл. 10.1.
Таблица 10.1. Свойства
класса TFont
|
|
|
|
|
Содержит дескриптор шрифта
|
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;
|
Определяет число точек на дюйм.
Первоначально равно числу точек на дюйм в контексте
экрана. Программист не должен изменять это свойство,
т. к. оно используется системой для приведения
изображения на экране и на принтере к одному
виду
|
|
|
Содержит размер шрифта в пунктах
(как принято в 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)
можно изменить параметры шрифта.
|
