Процедуры управления цветом

Цвет выводимых символов в модуле CRT определяет процедура TextColor. Заголовок процедуры:

Procedure TextColor(Color:Byte);

Процедура TextBackGround определяет цвет фона. Ее заголовок:

Procedure TextBackGround(Color:Byte);

Единственным параметром этих процедур является выражение типа Byte, определяющее код нужного цвета. Этот код удобно пределять с помощью следующих констант, объявленных в модуле CRT:

Const

Black =0; {Черный}

Blue =1; {Темно-синий}

Green =2; {Темно-зеленый}

Cyan =3; {Бирюзовый}

Red =4; {Красный}

Magenta =5; {Фиолетовый}

Brown =6; {Коричневый}

LightGray =7; {Светло-серый}

DarkGray =8; {Темно-серый}

LightBlue =9; {Синий}

LightGreen =10; {Светло-зеленый}

LightCyan =11; {Светло-бирюзовый}

LightRed =12; {Розовый}

LightMagenta=13; {Малиновый}

Yellow =14; {Желтый}

White =15; {Белый}

Blink =128;{Мерцание символа}

Следующая программа демонстрирует цветовые возможности Турбо Паскаль.

Program DemoColor;

Uses CRT;

var a,b:integer;

Begin

for a:=0 to 15 do

begin

TextBackground(15-a);

TextСolor(a);

writeln('Цвет текста ', a, ' Цвет фона ', 15-a);

end;

TextBackground(0);

TextСolor(15);

Writeln(‘мерцающий белый цвет на черном фоне’);

readln;

End.

В результате работы данной программы видно, что цвет символов может меняться в пределах от 0 до 15, а цвет фона от 0 до 7.

Действие процедур TextColor и TextBackColor сводится к записи в специальную переменную TextAttr соответствующих значений. Переменную TextAttr необходимо применять, используя следующую форму:

TextAttr:=Цвет_Символов+16*Цвет_Фона [+Мерцание]

квадратные скобки означают, что данный атрибут не обязателен.

Процедура ClrScr очищает экран или окно. После обращения к ней экран или окно заполняется цветом фона и курсор устанавливается в его левый верхний угол. Например:

Program DemoClrScr;

Uses CRT;

Var i:integer;

Begin

for i:=1 to 15 do

begin

Textcolor(i);

TextBackGround(15-i);

ClrScr;

Writeln('Цвет текста ',i,' цвет фона ',15-i);

Readln;

end;

End.