Модуль CRT
Устанавливает цвет фона.
Объявление:
Procedure TextBackground(Color : Byte);
Режим:
Protected, Real
Замечание:
Color - целочисленное выражение в диапазоне 0 .. 7, соответствющее одной из первых восьми констант цвета в текстовом режиме. В модуле Crt существует переменная типа байт - TextAttr, которая используется для хранения текущего видеоатрибута. TextBackground устанавливает биты 4-6 переменной TextAttr в Color.
Все символы, выводимые впоследствии, будут иметь цвет фона = Color.
Пример:
{NormVid.PAS}
{ Пример программы для NormVideo, TextBackGround и TextColor }
Uses Crt;
Begin
{ Зеленые символы на черном фоне }
TextColor(Green);
TextBackground(Black);
WriteLn('Привет!');
{ Мигающие светло-красные символы на сером фоне }
TextColor(LightRed+Blink);
TextBackground(LightGray);
WriteLn('Еще раз привет!');
{ Желтые символы на синем фоне }
TextColor(14);
{ Константа Yellow = 14 }
TextBackground(Blue);
WriteLn('Ну, привет же !!!');
NormVideo;
{ Восстанавливаем атрибуты }
WriteLn('Нет никого ??? Тогда, пока !');
End.