Правила форума
NormVideo (процедура) (модуль Crt)Язык:
Русский
English
NormVideo (процедура) (модуль Crt)
Выбирает первоначальное значение атрибута текста.
Объявление
Procedure NormVideo;
Режим
Real, Protected
Замечания
В модуле Crt существует переменная TextAttr, в которой хранится текущий видео атрибут. NormVideo восстанавливает переменную TextAttr на то значение, которое она имела при запуске программы.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для NormVideo, TextBackground и TextColor }
uses Crt;
begin
{ Зеленые символы на черном фоне }
TextColor(Green);
TextBackground(Black);
WriteLn('Привет!');
{ Мигающие светло-красные символы на сером фоне }
TextColor(LightRed + Blink);
TextBackground(LightGray);
WriteLn('Ещё раз привет!');
{ Желтые символы на синем фоне }
TextColor(14);
{ Константа Yellow = 14 }
TextBackground(Blue);
WriteLn('Ну, привет же !!!');
NormVideo;
{ Восстанавливаем атрибуты }
WriteLn('Нет никого ??? Тогда, пока !');
end.
begin
{ Зеленые символы на черном фоне }
TextColor(Green);
TextBackground(Black);
WriteLn('Привет!');
{ Мигающие светло-красные символы на сером фоне }
TextColor(LightRed + Blink);
TextBackground(LightGray);
WriteLn('Ещё раз привет!');
{ Желтые символы на синем фоне }
TextColor(14);
{ Константа Yellow = 14 }
TextBackground(Blue);
WriteLn('Ну, привет же !!!');
NormVideo;
{ Восстанавливаем атрибуты }
WriteLn('Нет никого ??? Тогда, пока !');
end.
::
::
::
