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

Основным текстовым режимом работы является СО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