Вывод текста
Функция TextWidth
Возвращает длину в пикселях выводимой текстовой строки. Заголовок:
Function TextWidth (Txjt: String): Word;
Учитываются текущий стиль вывода и коэффициенты изменения размеров символов, заданные соответственно процедурами SetTextStyle и SetUserCharSize.
Функция TextHeight
Возвращает высоту шрифта в пикселях. Заголовок:
Function TextHeight(Txt: String): Word;
Процедура GetTextSettings
Возвращает текущий стиль и выравнивание текста. Заголовок:
Procedure GetTextSettins(var Textlnfo: TextSettingsType);
Здесь Textlnfo – переменная типа TextSettingsType, который в модуле Graph определен следующим образом:
type
TextSettingsType = record
Font: Word; {Номер шрифта}
Direction: Word; {Направление}
CharSize: Word; {Код размера}
Horiz: Word; {Горизонтальное выравнивание}
Vert: Word; {Вертикальное выравнивание}
end;
Функция InstallUserFont
Позволяет программе использовать нестандартный векторный шрифт. Заголовок функции:
Function InstallUserFont(FileName: String): Integer;
Здесь FileName – имя файла, содержащего векторный шрифт.
Как уже говорилось, в стандартную поставку Турбо Паскаля версий 4.0-6.0 включены три векторных шрифта, для версии 7.0-10. Функция InstallUserFont позволяет расширить этот набор. Функция возвращает идентификационный номер нестандартного шрифта, который может использоваться при обращении к процедуре SetTextStyle.
Функция InstallUserDriver
Включает нестандартный графический драйвер в систему BGI-драйверов. Заголовок функции:
Function InstallUserDriver(FileName: String; AutoDetectPtr: Pointer): Integer;
Здесь:
- FileName – имя файла, содержащего программу драйвера;
- AutoDetectPtr – адрес точки входа в специальную процедуру автоопределения типа дисплея, которая в числе прочих процедур должна входить в состав драйвера.
Эта функция расширяет и без того достаточно обширный набор стандартных графических драйверов и предназначена в основном для разработчиков аппаратных средств.