будут располагаться так, как если бы была объявлена ширина Х = 8. Если Вы хотите поэкспериментировать с X, установите AppHandle = False, чтобы отключить прямой доступ к видеопамяти адаптеров EGA/VGA.

Процедура SetWindow. Устанавливает окно, очищает его и обводит рамкой. Заголовок:

Procedure SetWindow (XI, Yl, X2, Y2, Border: Byte; Header:

String; Clip, Build, Play: Boolean);

Здесь XI...Y2 — текстовые координаты окна; Border — тип рамки (соответствует константам XXXXBorder модуля F_Textj; Header — заголовок окна; Clip — признак отсечки; параметр Build управляет «разворачиванием» окна, a Play задает звуковое сопровождение.

В верхней части окна (на строке Yl] выводится заголовок Header; если длина заголовка больше X2 —XI—2, его «лишние» символы отбрасываются;

если Header"'', заголовок не выводится. Для Clip=True границы вновь созданного окна будут соответствовать внутренней части прямоугольника XI...Y2 без учета рамки (т.е. Xl==Xl+l, Y1=Y1+\, Х2=Х2-1, У2=У2-1), чтобы возможный вывод текста в окно не испортил его рамку. Если Build=True, окно как бы «разворачивает» свои размеры, постепенно заполняя все его пространство. При этом, если Р1ау=Тгие, процесс «развертки» окна сопровождается звуковым сигналом.

Процедура Scrolling. Осуществляет прокрутку окна на заданное число строк вверх или вниз. Заголовок:

Procedure Scrolling(N: Integer);

Здесь N — количество строк, на которые сдвигается окно (при N<0 окно сдвигается вниз).

Если абсолютное значение N превосходит высоту окна или если N •= О, окно полностью очищается. После прокрутки положение курсора не меняется.

Процедура TextBackqround. Устанавливает цвет фона для символов. Заголовок:

Procedure TextBackground(Color: Byte);

В качестве параметра Color могут использоваться соответствующие константы цвета, определенные в модуле Graph. Замечу, что установка цвета фона с номером 0 означает, что символы будут накладываться на существующее изображение, т.е. выводиться так, чтобы не менялись пикселы фона. Вы можете использовать эту возможность для наложения поясняющей надписи на график. Установка любого другого цвета приведет к заполнению пиксел фона нужным цветом, т.е. вывод будет стареть существующее графическое изображение. Для цвета фона могут использоваться как темные, так и яркие тона.

Процедура SetColor. Устанавливает цвет символов. Заголовок:

Procedure SetColor (Color: Byte);