Модуль 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.