Процедура 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
См. также: