Подпрограммы для работы со шрифтом.

Вывод текста осуществляется текущим шрифтом. Доступ к свойствам текущего шрифта можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.

Процедуры и функции для доступа к свойствам шрифта сгруппированы парами: если Prop - имя свойства пера, то функция PenProp возвращает значение этого свойства, а процедура SetPenProp(p) устанавливает это свойство:

Procedure SetFontSize(size: integer); Устанавливает размер текущего шрифта в пунктах.

Function FontSize: integer; Возвращает размер текущего шрифта в пунктах.

Procedure SetFontName(name: string); Устанавливает имя текущего шрифта.

Function FontName: string; Возвращает имя текущего шрифта.

Procedure SetFontColor(c: Color); Устанавливает цвет текущего шрифта.

Function FontColor: Color; Возвращает цвет текущего шрифта.

Procedure SetFontStyle(fs: integer); Устанавливает стиль текущего шрифта.

Function FontStyle: integer; Возвращает стиль текущего шрифта.

Можно также изменять свойства текущего пера через объект Font.

Кроме того, для определения ширины и высоты строки при текущих настройках шрифта используются следующие функции:

Function TextWidth(s: string): integer; Возвращает ширину строки s в пикселях при текущих настройках шрифта.

Function TextHeight(s: string): integer; Возвращает высоту строки s в пикселях при текущих настройках шрифта.