Непосредственный вывод строк

Итак, мы выбрали шрифт. Теперь перейдем к выводу текста. Для этого есть две процедуры. Первая —

OutText( TextString : String )

выводит на графический экран строку TextString, ориентированную относительно позиции текущего указателя, а вторая

OutTextXY( x, y : Integer; TextString : String ) {463}

выводит строку, ориентированную относительно координат (X, Y). Шрифт предварительно может быть установлен вызовом SetTextStyle (по умолчанию принимается DefaultFont). Рассмотрим ориентировку строки относительно стартовой точки. Существует несколько вариантов ориентировки. Они задаются процедурой

SetTextJustify( Horizontal, Vertical : Word )

параметры которой могут принимать одно из трех объявленных в модуле Graph значений:

CONST

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

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

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

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

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

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

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

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

Эта процедура позволяет ориентировать выводимую строку относительно стартовой координаты по схеме, показанной на рис. 19.34, где знак ■ символизирует координаты (X,Y). По умолчанию параметры ориентировки соответствуют LeftText, TopText.

Horizontal

┌─────────────────────────────────┐

LeftText CenterText RightText ┐

■────────────■─────────────■ TopText │

■ Это строка■текста ■ CenterText │

■────────────■─────────────■ BottomText │

┘

Рис. 19.34

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