Использование процедур TextColor и TextBackGround

При вызовах процедур TextColor и TextBackGround можно использовать как обозначение цвета, так и его английское название (английские названия цветов определены как константы в библиотеке Crt).

После выполнения инструкций:

TextColor(LightGray);

TextBackGround(Blue);

инструкции Write и Writeln будут выводить текст светло-серым цветом на синем фоне.

Установленные цвета символов и фона называются текущими для символов и фона. Инструкции вывода используют текущие значения цветов до тех пор, пока они не будут изменены.

Пример. Приведенный ниже фрагмент программы выводят на экран меню, состоящее из двух пунктов:

1. Вывод на экран.

2. Вывод на принтер.

Номера пунктов меню выводятся - ярко-белым цветом на синем фоне, а содержание пунктов - светло-серым цветом.

TextBackGround(l);

TextColor(15);

Clrscr; '

write('l.');

TextColor(7);

Writeln(' Вывод на экран.');

TextColor(15);

write('2.');

TextColor(7);

Writeln (' Вывод на принтер.');

Информация о текущем цвете символов и фона хранится в глобальной переменной TextAttr (атрибуты текста) типа byte. Если процедура восстанавливает свои цвета для вывода на экран, то значение переменной можно использовать для того, чтобы восстановить цвета перед завершением работы процедуры. Например, следующая программа в начале работы сохраняет текущие цвета, а в конце восстанавливает старые значения.

Program ypsst_mon;

Uses Crt;

var OldTextAttr: byte;

Begin

OldTextAttr:= TextAttr; {сохраним цвет символов и фона}

TextBackGround(Red); {установка своих цветов}

TextColor(White);

TextAttr:=oldTextArtr; {восстановим цвет символов и фона}

End.

Помимо использования процедур TextColor и TextBackGround для ус­тановки цвета символов и цвета фона, установить атрибуты текста можно непосредственным присвоением значения переменной TextAttr, определяемого по формуле:

TextAttr:=НомерЦветаФона х 16 + НомерЦветаСимволов.

Не нашли, что искали? Воспользуйтесь поиском: