Turbo Pascal Documentation

Процедура SetVisualPage

Модуль Graph

     Функция: Задает номер отображаемой графической страницы.
     Описание: SetVisualPage(страница: word)
     Примечания: Страница, определяемая параметром "страница",
становится отображаемой графической страницей.
      Использование нескольких графических страниц  поддержи-
вается  только  графическими адаптерами ЕGА, VGА и Неrcules.
При использовании нескольких графических  страниц  программа
может выводить графическую информацию в страницу, не выводи-
мую в данный момент на экран, а затем быстро вывести на  эк-
ран  этот двоичный образ, сменив отображаемую страницу с по-
мощью процедуры SetVisualPage. Этот метод особенно полезен в
мультипликации.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуру SetActivePage.
     Пример:

         uses Graph;
        var
          Gd, Gm : integer;
        begin
          Gd := Detect;
          InitGraph(Gd, Gm, '');
          if GraphResult <> grOk then
             Halt(1);
          if (gd = HercMono)
              or (gd = EGA or (Gd = EGA64) or (Gd = VGA)
       then
        begin
        SetVisualPage(0);
        SetActivePAge(1);
        Rectangle(10, 20, 30, 40);
        SetVisualPage(1);
        end;
        else
         OutText('Страничный режим не поддерживается');
        Readln;
        CloseGraph;
        end.