SetTextStyle (Font, Diretion : Word; Charsize : Word)

Здесь параметре Font – номер шрифта, Direction – расположение текста (по умолчанию принимается горизонтально). Возможны лишь две ориентации текста: HorizDir = 0, VertDir = 1, константы, обозначающие горизонтальное и вертикальное расположение текста. Размер каждого символа устанавливается параметров CharSize, диапазон изменения которого составляет от 1 до 10.

Для вывода текста служат процедуры:

OutText (TextString : String) – выводит на графически экран строку TextString, ориентированную относительно позиции текущего указателя;

OutTextXY (x, y : Integer; TextString : String) – выводит строку, ориентированную относительно координат точки (x, y). Выводимая текстовая строка всегда обрезается по границе графического окна.

Ориентировка строки относительно стартовой точки задается процедурой

SetTextJustify (Horizontal, Vertical : Word), параметры которой могут принимать одно из трех значений:

Const

{Для горизонтального ориентирования (Horizontal)}

LeftText = 0; { координата Х задает левый край строки }

CenterText = 1; { координата Х задает середину строки }

RightText = 2; { координата Х задает правый край строки }

{Для вертикального ориентирования (Vertical)}

BottomText = 0; { координата Y задает нижний край строки }

CenterText = 1; { координата Y задает середину строки }

TopText = 2; { координата Y задает верхний край строки }

Текстовые процедуры GotoXY, Write/WriteLnи установки цвета текста в графическом режиме работают только, если переменная  CRT.DirectVideo равна False (или модуль CRT не подключен). Ввод текста через Read/ReadLn действует всегда, при этом текст стирает фоновое изображение.

TextHeight (TextString : String) : Word, TextWidth (TextString : String) : Word – возвращают высоту и ширину строк TextString в пикселах, при условии, что они будут выведены текущим шрифтом и размером.