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