12.2. Работа с экраном

Основным текстовым режимом работы является СО80 (размер экрана 8025), который устанавливается по умолчанию.

Координаты экрана имеют вид, представленный на рис. 12.1.

Рис. 12.1. Координаты экрана в текстовом режиме

Началом координат является точка (1,1). Очередной вывод символа на экран начинается с текущей позиции курсора.

Kоординаты курсора можно определить с помощью функций

Function WhereX : byte; - координату Х;

Function WhereY : byte; - координату Y.

Курсор можно перемещать в любую позицию экрана с помощью процедуры GoToXY:

Procedure GoToXY ( X, Y : byte);

Если задаются недопустимые координаты (X,Y), то обращение к процедуре игнорируется.

Модуль CRTпозволяет создавать окна, которые, в частности, используются для отображения текстовой информации и формирования меню.

Основной подпрограммой организации окна является процедура

Procedure Window (X1, Y1, X2, Y2 : byte);

где (X1,Y1) и (X2,Y2) - соответственно координаты верхнего левого и нижнего правого углов окна.

После выполнения процедуры Windowкурсор первоначально устанавливается в позицию (1,1) созданного окна. Все последующие выводы информации процедурамиWrite/WriteLnосуществляются в пределах этого окна.

Текущее окно отменяется введением нового окна, которое становится текущим. Например, для того чтобы вернуться к работе в пределах всего экрана, необходимо подать команду Window (1,1,80,25). Вновь созданное окно может перекрывать ранее созданные окна.

При необходимости можно задать цвет фона с помощью процедуры

Procedure TextBackGround (Color : byte);

а цвет символов - применением процедуры

Procedure TextColor (Color : byte);

где Color - константа цвета фона.

Новые установки цвета не влияют на ранее выведенный текст.

В текстовых режимах цвет символов и фонов определяется константами, значения которых представлены в табл. 12.4.

Таблица 12.4

Константы цвета

Константа	Значение	Цвет	Константа	Значение	Цвет
Black	0	Черный	DarkGray	8	Темно-серый
Blue	1	Синий	LightBlue	9	Голубой
Green	2	Зеленый	LightGreen	10	Светло-зеленый
Cyan	3	Бирюзовый	LightCyan	11	Светло-бирюзовый
Red	4	Красный	LightRed	12	Светло-красный
Magenta	5	Малиновый	LightMagenta	13	Светло-малиновый
Brown	6	Коричневый	Yellow	14	Желтый
LightGray	7	Светло-серый	White	15	Белый

При этом цвет фона ограничен значениями Color= 0..7.

Если к константе цвета в процедуре TextColorприбавить константуBlink= 128, то выводимые символы будут мерцать.

Для очистки окна (экрана) используется процедура ClrScr (от англ.ClearScreen):

Procedure ClrScr;

Она очищает окно и помещает курсор в точку (1,1).

Для работы со строками в CRTприменяются процедурыClrEol,InsLineиDelLine:

а) Procedure ClrEol; - стирает все символы, начиная от позиции курсора до конца строки;

б) Procedure DelLine;- удаляет строку, на которой находится курсор; при этом все строки, расположенные ниже, перемещаются на одну строку вверх, а внизу экрана появляется стока, закрашенная цветом фона;

в) Procedure InsLine; - вставляет пустую строку в позицию курсора; при этом все строки смещаются вниз на одну строку, а самая нижняя исчезает с экрана.