TextColor (процедура) (модуль Crt)

Язык:
Русский
English

 TextColor (процедура)   (модуль Crt)


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

Объявление

 Procedure TextColor(Color : Byte);

Режим

Real, Protected

Замечания

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

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

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

Все символы, выводимые впоследствии, будут выводиться цветом = Color.

См. также

Пример

Язык:
Русский
English


 { Пример программы для 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.
Тэги: TextColor
| G+
Код для вставки: :: :: :: ::
Поделиться: // //