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

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

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

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