Зменение цвета выводимого текста и фона, на который выводится текст

program Nightniarel; {заголовок программы, имя программы – Nightmarel}

Uses {начало раздела подключения модулей}

CRT {подключение модуля CRT}

Begin{начало раздела описания логики программы}

TextBackGround(Red);

{Установка красного цвета в качестве текущего для фона (используется константа Red, соответствующая красному цвету)}

ClrScr; {очистка экрана. Поскольку текущий цвет фона - красный, то весь экран будет окрашен этим цветом}

WriteLn;{переводим строку, используя процедуру WriteLn без параметров}

WriteLn; {переводим строку, используя процедуру WriteLn без параметров}

WriteLn; {переводим строку, используя процедуру WriteLn без параметров}

TextColor(Blue);{установка синего цвета в качестве текущего}

TextBackGround (Green);

{Установка зеленого цвета в качестве текущего для фона}

Write('Какой кошмар!!!');

{Вывод текстовой информации. Символы имеют синий цвет и выводятся на Зеленом фоне, так как эти цвета являются текущими}

ReadKey; {программа приостанавливается до нажатия пользователем клавиши. При этом вся информация, выведенная на экран, видна}

CIrScr; {очистка экрана}

End.{Конец раздела описания логики программы, информация, которая выводилась, на экран в процессе работы программы, удалена}

Данная программа в силу своего цветового оформления будет являться кошмаром для пользователя. Мало того, что в ней самой использовано недопустимое сочетание цветов, она еще и оставляет их текущими ми после своего выполнения. Программы, выполняемые в дальнейшем, могут использовать цветовые настройки без изменения, и информация, выводимая ими, будет иметь синий цвет. Зная, что цвет фона является зеленым, пользователь вряд ли сможет работать с таким интерфейсом.

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

В любом случае, то, что выводит приложение не должно мешать работе других приложений, поэтому, изменим предыдущий пример так, чтобы после завершения программы в качестве текущих цветов использовались стандартные – белый на черном.