устанавливает способ выравнивания для вывода текста с использованием процедур 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.
выводит последовательность символов, начиная с заданных координат (x, y).
x, y —
исходные координаты.
TextString —
выводимый текст.
Текущая позиция после выполнения процедуры не изменяется. Если текст не помещается в графическое окно, происходит то же, как и в случае процедуры OutText. Параметры текста задаются так же, как и для OutText.
