Если используется цветной графический дисплей с адаптером EGA (Enhansed Graphic Adapter), VGA (Video Graphic Array) и др., то можно задавать и изменять цвет текста и фона с помощью следующих процедур:
1) TextBackGround (Color:Byte); – задает цвет фона.
2) TextColor(Color:Byte); – задает цвет текста.
Параметр Color (цвет) может задаваться выражением целого типа, которое должно принимать значения в диапазоне 0..15, или одной из определенных в модуле Crtконстант цветов (название цвета на английском языке). Константы для фонового и основного цвета и их значения приведены ниже:
Black = 0 (черный)
DarkGray = 8 (темно-серый)
Blue = 1 (синий)
LightBlue = 9 (светло-синий)
Green = 2 (зеленый)
LightGreen = 10 (светло-зеленый)
Cyan = 3 (бирюзовый)
LightCyan = 11 (светло-голубой)
Red = 4 (красный)
LightRed = 12 (розовый)
Magenta = 5 (малиновый)
LightMagenta = 13 (светло-малиновый)
Brown = 6 (коричневый)
Yellow = 14 (желтый)
LightGray = 7 (светло-серый)
White = 15 (белый)
Цвет текста может быть любой, а цвет фона – один из восьми первых.
Вместо того чтобы устанавливать раздельно цвет текста и цвет фона указанными выше процедурами, можно воспользоваться определенной в модуле Crt переменной TextAttr, длиной в байт. Ей можно присвоить значение, которое сразу определит текстовые атрибуты. Младшие 4 бита у этой переменной кодируют цвет текста (0..15), следующие 3 бита – цвет фона (0..7), а самый старший (левый) бит позволяет сделать текст мерцающим. Константа мерцания имеет имя Blink, а значение – 128.Для размещения цвета фона в правильных позициях битов, его значение нужно умножить на 16. Например, следующее присваивание:
TextAttr := Yellow + Blue*16 + Blink
Обеспечит вывод желтых мерцающих символов на голубом фоне.
3) TextMode (Mode:Integer); – процедура; задает указанный текстовый режим (mode). Приведем некоторые определенные в модуле Crt константы (слева) для выбора текстовых режимов и их значения (справа):
BW80 =2;– черно-белый режим с разрешением экрана 80х25 символов;
C80 = 3; – цветной режим с разрешением экрана 80х25 символов;
Font8*8 = 256; – цветной режим с разрешением экрана 80х50 символов;
Более подробное описание этих и других режимов для соответствующих адаптеров можно найти в справочниках.
Предыдущий цветовой режим сохраняется в памяти в переменной LastМode.