Цвета символов и фона

При выводе текста на экран выводимым символам можно придать лю­бой из 16 (0-15) цветов. Цвет символов на экране задает процедура TextColor. Цвет фона задает процедура TextBackground.

• Процедура TextColor(Color : Byte); - устанавливает цвет символов, здесь Color— целое число (или выражение), значение которого не должно выходить за пределы 0..15, что соответствует одной из констант цвета текстового режима, определенных в модуле CRT.

• Процедура TextBackground(Color : Byte) - устанавливает цвет фона. Здесь Color — целое число (или выражение) в диапазоне 0..7, соответст­вующее одной из первых восьми констант цвета в текстовом режиме.

Константы, объявленные в модуле CRT и использующиеся в качестве параметра Color этих процедур, представлены в приложении 5. (Для TextColor — все 17; для TextBackground — только первые 8.)

После того как цвет символов или фона задан, он применяется до тех пор, пока не будет задан новый цвет. В качестве параметра процедур TextColor и TextBackground можно использовать как имя констант так и ее числовой код. Например, вызов процедуры TextColor (Black) эквивалентен вызову TextColor (0). С помощью единственного обращения процедуре TextColor можно задать одновременно цвет и мерцание символов: TextColor (Black+Blink). При выводе текста на экран необходимо следить, чтобы цвет символов не совпал с цветом фона, а также, чтобы эти цвета были достаточно контрастны.

Приложение 8

Константы, определяющие цвета текста и фона

Имя константы	Код	Цвет '
Black	0	Черный
Blue	1	Темно-синий
Green	2	Темно-зеленый
Cyan	3	Бирюзовый
Red	4	Красный
Magenta	5	Фиолетовый
Brown	6	Коричневый
LightGray	7	Светло-серый
DarkGray	8	Темно-серый
LightBlue	9	Синий
LightGreen	10	Светло-зеленый
LJghtCyan	11	Светло-бирюзовый
LightRed	12	Розовый
LightMagenta	13	Малиновый
Yellow	14	Желтый
White	15	Белый
Blink	128	Мерцание символа

Библиографический список

1. Попов, В. Б., Тurbo Pascal для школьников [Текст] / В. Б. Попов; М.: Финансы и статистика, 2004. – 525 с.

2. Епанешников А.М., Программирование в среде Turbo-Pascal 7.0. [Текст] / А. М. Епанешников, В. А. Епанешников. – М.: Диалог МИФИ, 2003. – 288 с.

3. Культин Н. В. Tupbo-Pascal в задачах и примерах [Текст] / Н. В. Культин; – СПб.: БХВ Санкт -Петербург, 2000. – 256 с.

4. Марченко А. И., Программирование в среде Turbo-Pascal 7.0. [Текст] / А. И. Марченко, Л. А. Марченко; Киев: ВЕК+, М.: Бином Универсал, 1998. – 496 с.

Учебное издание