Модуль Crt. Система координат экрана и текущий указатель в текстовом режиме

Управление экраном с помощью ресурсов модуля Сrt базируется на понятии «окно».

Окно - часть экрана прямоугольной формы. В момент получения программой управления весь экран считается окном 25x80 знакомест. Программист может определять на экране новые окна и управлять как цветом символов и фона окна, так и размещением информации в окне.

Вывод информации в текстовом режиме осуществляется стандартными процедурами Write и WriteLn текущими цветом символа и цветам фона.При выводе четыре символа интерпретируются особым образом:

#7 - звуковой сигнал;

#8 - перемещение курсора влево на один символ;

#10 - перемещение курсора на строку вниз (если курсор находился в последней строке, то содержимое экран «прокручивается» на строку вверх);

#13 - перемещение курсора в начало текущей строки.

Процедуры начинают вывод с того места, где стоит курсор. Координаты курсора определяются относительно верхнего левого угла текущего окна.

Для управления окнами и размещения в них информации модуль Сrt содержит следующие процедуры и функции.

1. Процедура Window(x1, y1, х2, y2:word)- определяет на экране окно. Местоположение и размеры окна определяются координатами верхнего левого (xl, у1) и нижнего правого (х2, у2) углов прямоугольника. Координаты текущего окна модуль Сrt хранит в специальных переменных:

WindMin, WindMax: word.

Откуда координаты текущего окна можно определить, применив функции 1о и hi, которые выделяют из слова младший и старший байты соответственно:

x1 = Lo(WindMin) - координата х верхнего левого угла;

у1 = Hi(WindMin) - координата у верхнею левого угла;

x2 = Lo(WindMax) - координата х нижнего правого угла;

у2 = Hi(WindMax) - координата у нижнего правого угла.

После объявления окна курсор устанавливается в верхний левый угол окна.

2. Процедура TextColor(cotor:byte)- устанавливает текущий цвет вывода символов в окне.

3. Процедура TextBaсkGround(color:byte) - устанавливает текущий цвет фона окна.

4. Процедура ClrScr - очищает окно, выводя в него пробелы с текущим атрибутом. После этого курсор устанавливается в верхний левый угол окна. Если окно не установлено, то очищается весь экран. Эту процедуру обычно используют после определения окна и атрибута его символов, чтобы обозначить окно на экране

5. Функция WhereX:word - возвращает координату х текущего положения курсора в окне.

6. Функция WhereY:word - возвращает координату у текущею положения курсора в окне.

7. Процедура GotoXY(x,y:word) - перемещает курсор на знакоместо с координатами х и у.

Модуль Сtr содержит также процедуры, работающие с текущейстрокой (строкой, в которой стоит курсор):

8. Процедура Delline- удаляет текущую строку.

9. Процедура InsLine - вставляет строку, сдвигая остальные строки вниз.

10. Процедура ClrEol- стирает часть строки справа от курсора.