12.8 Работа с текстом в графическом режиме

12.8.1 Процедуры работы с текстом

Procedure ...

SetTextJustify ( Horiz, Vert : Word ) ;
—	устанавливает способ выравнивания для вывода текста с использованием процедур OutTextиOutTextXY. Horiz, Vert— параметры выравнивания по горизонтали и вертикали. В модуле Graphопределены следующие константы: Сonst { Горизонтальное выравнивание: } LeftText = 0 ; { Левое выравнивание } CenterText = 1 ; { Выравнивание по центру } RightText = 2 ; { Правое выравнивание } { Вертикальное выравнивание: } BottomText = 0 ; { Нижнее выравнивание } CenterText = 1 ; { Выравнивание по центру } TopText = 2 ; { Верхнее выравнивание } В случае аварийной ситуации процедура устанавливает код ошибки: -11, а текущий режим выравнивания не изменяется.
SetTextStyle ( Font, Direction, CharSize : Word ) ;
—	устанавливает текущие тип шрифта, направление текста и размер символов. Font— тип шрифта. Direction— направление текста. CharSize — размер символов. В модуле Graphопределены следующие константы: Сonst { Коды шрифтов (типы): } DefaultFont = 0 ; {Точечный шрифт 8x8} TriplextFont = 1 ; {Утроенный шрифт} SmallFont = 2 ; {Уменьшенный шрифт} SansSerifFont = 3 ; {Прямой шрифт} GothicFont = 4 ; {Готический шрифт} { Направление текста: } HorizDir = 0 ; {Слева направо} VertDir = 1 ; {Снизу вверх} Шрифт DefaultFont — единственный матричный шрифт с матрицей 8х8 пикселей — входит в модуль Graph и доступен в любой момент. Все остальные шрифты векторные — их элементы формируются как совокупность векторов (штрихов). Векторные шрифты отличаются более богатыми изобразительными возможностями, для них легче изменяются размеры без существенного ухудшения качества изображения. Каждый из этих шрифтов размещается в отдельном дисковом файле, поэтому соответствующий файл должен находиться в текущем каталоге, в противном случае вызов этого шрифта игнорируется и подключается стандартный шрифт. Каждый шрифт способен десятикратно изменять свои размеры. CharSize выводимых символов может иметь значение в диапазоне от 1 до 10 (точечный шрифт — в диапазоне от 1 до 32). Если значение параметра равно 0, устанавливается размер 1, если больше 10 — размер 10. В случае аварийной ситуации процедура устанавливает один из кодов ошибки: -8, -9, -11, -12, -13, -14.
GetTextSettings ( var TextInfo : TextSettingsType ) ;
—	возвращает текущие параметры шрифта (тип, направление, размер, выравнивание), установленные процедурами SetTextStyleиSetTextJustify. TextInfo — переменная типа TextSettingsType, в которую записываются параметры: Type TextSettingsType = Record Font : Word ; { тип шрифта } Direction : Word ; { направление текста } CharSize : Word { размер символов } Horiz : Word { гориз. выравнивание } Vert : Word { вертик. выравнивание } End ;
OutText ( TextString : String ) ;
—	выводит на экран последовательность символов, начиная с текущей позиции. TextString— выводимый текст. Текущая позиция меняется только при горизонтальном выводе с левым выравниванием. Если текст не помещается в графическое окно, он либо не высвечивается («грубый» шрифт по умолчанию), либо высвечивается частично («гладкий» шрифт). Текущий цвет текста задается процедурой SetColor, параметры шрифта — процедурами SetTextStyle и SetTextJustify.
OutTextXY ( x, y : Integer; TextString : String ) ;
—	выводит последовательность символов, начиная с заданных координат (x, y). x, y — исходные координаты. TextString— выводимый текст. Текущая позиция после выполнения процедуры не изменяется. Если текст не помещается в графическое окно, происходит то же, как и в случае процедуры OutText. Параметры текста задаются так же, как и для OutText.