Процедура TextColor

Модуль Crt

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

Объявление:

Procedure TextColor(Color : Byte);

Режим: 

Замечания:

Параметр 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

См. также: