Turbo Pascal Documentation

Процедура SetActivePage

Модуль Graph

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

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