В стандартном графическом интерфейсе Windows (GDI) основой для рисования служит дескриптор контекста устройства нос и связанные с ним шрифт, перо и кисть. В состав VCL входят объектно-ориентированные надстройки над последними, назначением которых является удобный доступ к свойствам инструментов и прозрачная для пользователя обработка всех их изменений.

Обязательным для любого объекта, связанного с графикой в Delphi, является событие:

property CnChange: TNot i fyEvent ;

Его обработчик вызывается всякий раз, когда меняются какие-то характеристики объекта, влияющие на его внешний вид.

Класс TFont

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

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

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

Свойство

Описание

property Handle: HFont;

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

property Name : 1FonlName;

Содержит имя (начертание) шрифта, например, 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 (DEFAULTJTHARSET).

Для вывода символов кириллицы требуется

RUSSIAN__CHARSET

property Pitch: TFontPitch;
TFontPitch = (fpDefault, fpVariable, fpFixed);

Определяет способ установки ширины символов шрифта. Значение fp Fixed соответствует моноширинным шрифтам; f pVariable - шрифтам с переменной шириной символа. Установка 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 объекта TFontDiaiog и напишите для него обработчик события OnApply. При этом в диалоговом окне появится кнопка Apply, по нажатии которой (событие OnApply) можно изменить параметры шрифта.


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Август
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс