Процедура SetVisualPage

Модуль GRAPH

Устанавливает номер видимой графической страницы.

Объявление:

Procedure SetVisualPage(Page : Word);

Режим:

Protected,  Real

Замечание:

Делает графическую страницу с номером Page видимой.

Многостраничный вывод обеспечиваются только адаптерами EGA, (S)VGA и графическими платами Hercules. Используя многостраничный режим, программа может осуществлять графические построения на неактивной странице, затем переключать страницы с помощью данной процедуры, тем самым практически мгновенно отображать картинку на экране. Эта методика особенно полезна при создании анимационных программ.

Нужно быть в графическом режиме.

Пример:

{Setactpg.PAS}
 
 { Пример программы для процедуры 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.