Процедура TextColor

Модуль CRT

Выбирает цвет символов.

Объявление:

Procedure TextColor(Color : Byte);

Режим:

Protected,  Real

Замечание:

Параметр Color - целочисленное выражение в диапазоне 0 .. 15, соответствующий одной из констант цвета текстового режима, определенных в модуле Crt.

В модуле Crt существует переменная типа байт - TextAttr, которая используется для хранения текущего видеоатрибута. TextColor устанавливает биты 0-3 переменной TextAttr в Color. Если Color больше 15, то бит 7 (бит, определяюший мигание) тоже поднимается.

Вы можете заставить выводимые символы мигать, прибавив 128 к значению Color. Для этой цели существует предопределенная константа Blink. Для совместимости с Turbo Pascal 3.0, любое значение Color большее 15 будет заставлять выводимые символы мигать.

Все символы, выводимые впоследствии, будут выводиться цветом = 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.