Процедура назначения цвета символа:

TextColor(Color)

Если цвет фона назначается до очистки текстового окна, то после очистки окно заливается этим цветом. Если фон устанавливается после очистки экрана, то чистое окно будет иметь черный цвет (по умолчанию), а назначенный цвет фона будет устанавливаться в тех позициях, в которые выводятся символы.

Вот пример программы, в которой по очереди откроются четыре окна, и каждое из них будет залито своим фоновым цветом:

Uses CRT;

Begin

Window(1,1,40,12);

TextBackGround(White); CIrScr;

Window(41,1,80,12);

TextBackGround(Red); CIrScr;

Window(l,13,40,25);

TextBackGround(LightRed); CIrScr;

Window(41,13,80,25);

TextBackGround(Green); CirScr;

End.

По следующей программе на белом фоне в середине экрана будут выведены номера первых пятнадцати цветов. Каждый номер будет того цвета, который он обозначает.

Uses CRT;

Var I: Byte;

Begin

TextBackGround(White) ;

CIrScr;

GoToXY(l,12);

For I:=0 To 14 Do

Begin

TextColor(I);

Write(1:5) ;

End

End.

Кратко опишем еще несколько процедур управления текстовым экраном из модуля CRT. Все эти процедуры не имеют параметров.

Процедура ClrEOL. Стирает часть строки от текущей позиции курсора до конца этой строки в окне. При этом положение курсора не меняется.

Процедура DelLine. Уничтожает всю строку с курсором. Нижние строки сдвигаются на одну вверх.

Процедура InsLine. Вставляет пустую строку перед строкой, в которой стоит курсор.

Процедуры LowVideо, NormVideo, HighVideо. Устанавливают режимы пониженной, нормальной и повышенной яркости символов соответственно.

Весьма полезной является функция KeyPressed из модуля CRT. При исполнении этой функции происходит опрос клавиатуры и определяется, не нажата ли какая-нибудь клавиша. В результате функция выдает логическое значение True, если нажата любая клавиша, и значение False в противном случае. Часто эту функцию используют для организации задержки окна результатов на экране (после выполнения программы Турбо Паскаль вызывает на экран окно редактора). Перед концом программы записывается следующий оператор: