Процедура SetActivePage

Модуль GRAPH

Устанавливает активную страницу для графического вывода.

Объявление:

Procedure SetActivePage(Page : Word);

Режим:

Protected,  Real

Замечание:

Делает страницу с номером Page активной, направляя на нее весь последующий графический вывод.

Многостраничный вывод возможен только на EGA (256Кб), (S)VGA и Hercules. Используя многостраничный режим, программа может осуществлять графические построения на неактивной странице, затем переключать страницы с помощью 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('No paging supported.');
  ReadLn;
  CloseGraph;
 End.