Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура NormVideo.

  • Объявление:

    Procedure NormVideo;

  • Описание:

    Выбирает первоначальное значение атрибута текста.

  • Замечания:

    В модуле Crt существует переменная TextAttr, в которой хранится текущий видео атрибут. NormVideo восстанавливает переменную TextAttr на то значение, которое она имела при запуске программы.

  • Пример:

    { Пример программы для NormVideo }
    Uses Crt;
    Begin
    { Зеленые символы на черном фоне }
    TextColor(Green);
    TextBackground(Black);
    WriteLn('Привет!');
    { Мигающие светло-красные символы на сером фоне }
    TextColor(LightRed+Blink);
    TextBackground(LightGray);
    WriteLn('Еще раз привет!');
    { Желтые символы на синем фоне }
    TextColor(14);
    { Константа Yellow = 14 }
    TextBackground(Blue);
    WriteLn('Ну, привет же !!!');
    NormVideo;
    { Восстанавливаем атрибуты }
    WriteLn('Нет никого ??? Тогда, пока !');
    End.



Вернуться к оглавлению справочника