Turbo Pascal Documentation

Процедура TextColor

Модуль Сrt

     Функция: Выбирает цвет символа.
     Описание: TextColor(цвет: byte)
     Примечания: Параметр "цвет" представляет собой  выраже-
ние целого типа в диапазоне 0...15, соответствующее одной из
констант цветов, определенных в модуле Сrt:

      { Константы фонового и основного цвета }
         Black          = 0;      { черный }
         Blue           = 1;      { синий  }
         Green          = 2;      { зеленый }
         Cyan           = 3;      { бирюзовый }
         Red            = 4;      { красный }
         Magenta        = 5;      { малиновый }
         Brown          = 6;      { коричневый }
         LightGray      = 7;      { светло-серый }
         DarkGray       = 8;      { темно-серый }
         LightBlue      = 9;      { светло-голубой }
         LightGreen     = 10;     { светло-зеленый }
         LightCyan      = 11;     { светло-бирюзовый }
         LightRed       = 12;     { светло-красный }
         LightMagenta   = 13;     { светло-малиновый }
         Yellow         = 14;     { желтый }
         White          = 15;     { белый }

     В модуле Сrt имеется байтовая переменная ТехtАttr,  ко-
торая  используется  для  сохранения текущего видеоатрибута.
Процедура ТехtВаскGround устанавливает биты 0-3 этой переме-
ной в соответствии с параметром "цвет". Если параметр "цвет"
превыщает значение 15, то устанавливается также бит мерцания
(бит 7), в противном случае он очищается.
     Вы можете задать мерцание  символов  путем  прибавления
128  к  значению  цвета.  Для этой цели определена константа
Вlinк. Фактически ради совместимости  с  версией  3.0  любое
значение  цвета,  превышающее  15 вызывает мерцание символа.
Цвет всех выводимых  далее  символов  будет  соответствовать
указанному цвету.
     Отличия: В версии 3.0 константа Вlinк была равна 16.
     Прочее:  См.  также  процедуры  TextBackGround,   High-
Video, NormVideo, LowVideo.
     Пример:

       TextColor(Green);               { выбрать зеленые символы }
       TextColor(LightRed+Blink)  { выбрать мерцающие свет-
                                    ло-красные символы }
       TextColor(14);             { выбрать желтые символы }