setactpg.pas

Пример программы для процедуры SetActivePage.

Код примера
 {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.

Скачать setactpg.pas