Вывод текста

В комплектах поставки среды Паскаль присутствуют файлы с расширением chr. Это набор штриховых шрифтов, которые могут быть использованы для вывода информации. Для обозначения шрифтов введены константы:

Const

DefaultFont = 0; {матричный шрифт 8х8 (по умолчанию)}

TriplexFont = 1; {полужирный шрифт}

SmallFont = 2; {светлый шрифт (тонкое начертание)}

SansSerifFont = 3; {книжная гарнитура (рубленный шрифт)}

GothicFont = 4; {готический шрифт}

Активизация любого из шрифтов осуществляется процедурой

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в пикселах, при условии, что они будут выведены текущим шрифтом и размером.