Вывод текста осуществляется текущим шрифтом. Доступ к свойствам текущего шрифта можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам шрифта сгруппированы парами: если 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 в пикселях при текущих настройках шрифта
|
