Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 14 стр.

                                                                           14




      Здесь же определена константа, которая задает режим мерцания символов:
      Blink = 128;
      Следует иметь в виду, что на некоторых типах дисплеев вместо мерцания
символов (при задании вместе с цветом символов режима мерцания) изменяется
цвет фона (он становится более ярким).
      Для восстановления исходных цветов символов и фона можно использовать
процедуру NormVideo.
      Рассмотрим пример вывода информации в текстовом режиме с изменением
цвета фона и символов.
      uses Crt;
             begin       {Начало работы программы - исходные цвета}
       Writeln(' Начало работы программы - исходные цвета ');
        { Зеленые символы на черном фоне}
        TextColor(Green); TextBackground(Black);
        WriteLn(' Зеленые символы на черном фоне ');
        { Мерцающие красные символы на светло - сером фоне }
          TextColor(Red+Blink);   TextBackground(LightGray);
          WriteLn(' Мерцающие красные символы на светло - сером фоне!');
       { Желтые символы на синем фоне}
        TextColor(Yellow); TextBackground(Blue);
        WriteLn(' Желтые символы на синем фоне!');
         NormVideo; {Возврат в нормальный режим цветовоспроизведения }
        WriteLn(' Возврат в нормальный режим цветовоспроизведения ');
       end.
      Можно также устанавливать режимы повышенной и пониженной яркости
воспроизведения цвета на экране. Для этого используются две процедуры модуля
Crt: HighVideo и LowVideo, задающие повышенную и пониженную яркость,
соответственно. Следует отметить, что на практике различий между нормальным
и пониженным режимами яркости не наблюдается.
      Следующая простая программа иллюстрирует использование процедур
задания яркости.
      Uses crt;
    begin
      textcolor(blue); textbackground(black);
       write(' Демонстрация использования ');
              highvideo;
       write(' повышенной яркости ');
               lowvideo;
      writeln(' для выделения необходимой информации на экране');
             readkey;
      end.
      Можно управлять цветом фона и символов, мерцанием и режимами яркости
с помощью задания системной переменной TextAttr, определенной в модуле Crt.
Тип этой переменной - byte и она может принимать значения от 0 до 255. Каждый
из восьми битов этой переменной содержит определенную информацию:
                                                                           14