Переменная TextAttr имеет тип Byte и может принимать значения от 0 до 255. В ней хранятся текущие цветовые атрибуты для фона, символов и атрибут мерцания символов. Каждый из восьми битов переменной TextAttr содержит определенную информацию (табл. 15.4).
Таблица 15.4
Номер бита
6 5 4
3 2 1 0
Что определяет
Мерцание
1 — да
0 — нет
Цвет фона
(8 значений)
0*16..7*16
Цвет символов
(16 значений, от 0 до 15)
Компонент цвета (RGB)
Крас Зел Гол
Ярк Крас Зел Гол
Зная структуру этого байта, можно написать три функции опроса текущего цветового режима (рис. 15.5).
PROGRAM Test_Colors; { анализ текущих цветов }
USES CRT; { подключен модуль CRT }
{Бит номер 7(2^7 = 128) содержит 1(True) или 0 (False)?}
FUNCTION IsBlinking: Boolean; { проверка мерцания }
BEGIN
IsBlinking := ( TextAttr and 128 ) = 128;
END;
Рис. 15.5 {323}
{Число в битах 4,5,6 (2^4+2^5+2^6=112), деленное на 16 }
FUNCTION GetBackGround : Byte; { номер цвета фона }
BEGIN
GetBackGround := ( TextAttr and 112 ) div 16;
END;
{Число в битах 0, 1, 2 и 3 (1 + 2^1 + 2^2 + 2^3 = 15) }
FUNCTION GetForeGround : Byte; { код цвета символа }
BEGIN
GetForeGround := TextAttr and 15;
END;
BEGIN { Вызовы функций }
WriteLn( ' Мерцание : ', IsBlinking 5,
' Цвет фона : ', GetBackGround 2,
' символов : ', GetForeGround 2 );
ReadLn { пауза до нажатия клавиши ввода }
END.
Рис. 15.5 (окончание)
Переменную TextAttr можно использовать для управления цветовым режимом вывода символов на экран, с помощью формулы
Запись [+128] означает необязательный атрибут мерцания. Когда 128 добавлено, надпись будет мерцать. Если использовать такую форму установки цвета, то становятся почти «бесполезными» процедура TextColor и TextBackGround, которые, вообще говоря, всего лишь изменяют соответствующие биты системной переменной TextAttr.
При «ручном» задании цвета, как это было сделано выше, вместо цифр можно указывать цветовые константы, определяемые модулем CRT (они рассматриваются вместе с процедурами TextColor и TextBackGround), например:
TextAttr: = White + 16 * Red + Blink;
Такая формула задает мерцающий белый цвет на красном фоне.
Некоторые особенности возникают при использовании монохромных мониторов (режим Mono). Они способны отображать лишь три градации яркости: «черный», «белый» и «ярко-белый». Название градаций яркости взято в кавычки потому, что реально цвет может быть серым, зеленым или красным в зависимости от монитора. Текст может быть инверсным или подчеркнутым. Все эти атрибуты по-прежнему задаются в переменной TextAttr, но их кодировка уже иная: {324}
Номер бита
6 5 4
2 1
Что определяет
Мерцание
1 — да
0 — нет
Цвет
фона/
инверсия
Яркость
1 — да
0 — нет
Цвет символа
Подчеркивание
1 — да
0 – нет
Строго говоря, возможны лишь определенные значения атрибута:
112 (01110000) – инверсные цвета (черный на светлом);
127 (01111111) – инверсные цвета (яркие на светлом).
Добавление 128 к этим значениям заставит символы (но не фон!) мерцать.
Прочие комбинации битов дадут те же яркостные сочетания, хотя правила взаимодействия битов здесь далеко не прозрачные. Бит мерцания влияет только на мигание символов. Подчеркивание (бит 0) работает только, когда в битах 6, 5, 4, 2 и 1 стоят нули. В третьем бите может быть единица, добавляющая яркость подчеркнутым символам. Далее не легче: если в битах фона 6, 5, 4 есть хоть одна единица, а в битах 0, 1, 2 — нули, то будет инверсный цвет: черный по белому; если же в биты 0, 1, 2 попадет хоть одна единица, то цвета сольются: будет неяркий белый по белому. И, наконец, если в битах фона что-либо есть, бит 3 (яркость) равен единице и в битах цветов символов 0, 1, 2 есть хотя бы одна единица, то будет инверсное изображение — ярко-белое по белому.
