В цьому випадку встановиться кольоровий режим С40, але кількість рядків буде не 25, а 43 чи 50. якщо основний режим не заданий, по замовчуванню мається на увазі режим BW40.

Крім заміни текстового режиму, команда TextMode виконує ряд додаткових дій в наступній послідовності:

ü Поточне вікно встановлюється рівним всьому екрану.

ü Встановлюється режим прямого запису в відеопам’ять (змінній DirectVideo присвоюється значення True).

ü Вимикається режим контролю „снігу” (змінній CheckSnow присвоюється значення False).

ü Встановлюється режим нормальної яскравості символів.

ü Проходить очищення екрану.

ü В змінній LastMode запам’ятовується наступний встановлений режим.

Далі з допомогою змінної LastMode можна відновити останній використовуваний текстовий режим.

Змінні CheckSnow і DirectVideo встановлюють специфічні для модуля Crt режими контролю „снігу” і прямого відображення у відеопам’ять.

Режим контролю „снігу” використовується тільки для відео-адаптерів типу CGA. „Снігом” називають білі штрихи, які з’являються при виводі інформації на екран. Це відбувається через те, що символи записуються у відеопам’ять не під час горизонтальної розгортки променя ЕЛТ. При використанні відеоадаптерів інших типів цей ефект не спостерігається.

Коли встановлюється кольоровий текстовий режим, змінна CheckSnow стає рівною True, і прямий запис у відеопам’ять буде проходити тільки під час горизонтальної розгортки променя. При використанні більш нових моніторів CGA має сенс на початку програми встановлювати змінну CheckSnow у False, так як ефект „снігу” в них відсутній і заборона перевірки значно прискорить вивід текстової інформації на екран.

Режим прямого запису у відеопам’ять встановлюється автоматично при підключені модуля Crt і визначає спосіб запису інформації при виконані процедур Write і WriteLn.

По замовчуванню значення змінної DirectVideo рівне True. Таке ж значення цієї змінної встановлюється після кожного виклику процедури TextMode. При цьому вивід інформації на екран відбувається дещо швидше. Якщо значення змінної DirectVideo рівне False, то вивід на екран проходить повільніше.

Значення змінної DirectVideo впливає на дію змінної CheckSnow. Якщо перша рівна False, то значення CheckSnow ігнорується.

ПРОЦЕДУРИ І ФУНКЦІЇ УПРАВЛІННЯ КУРСОРОМ

Для управління положенням курсору в модулі Crt використовується процедура GotoXY і функції WhereX і WhereY.

Процедура

GotoXY (X, Y: WORD);

Переміщує курсор в позицію поточного вікна з відповідними координатами (X,Y), при цьому позиція (1,1) відповідає верхньому лівому куту вікна. Ця процедура впливає на процедури Write і WriteLn, які будучи використаними після неї, будуть здійснювати вивід символів, починаючи з позиції з вказаними координатами.

<== попередня сторінка	\|	наступна сторінка ==>
Слід пам’ятати, що сама процедура Window інтерпретує власні параметри в абсолютних координатах, а не у відносних координатах попереднього текстового вікна.	\|	Якщо значення будь-якого з параметрів X чи Y буде некоректним (наприклад перевищить розмір вікна), то виклик процедури GotoXY буде проігнорований.

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.004 сек.