SetActivePage

Nastaví aktivní stránku pro grafický výstup.

Deklarace

procedure SetActivePage(Page: Word);

Režim

Reálný, Chráněný

Poznámky

Učiní Page aktivní grafickou stránkou, takže veškerý následný grafický výstup bude směrován do Page.

Více stránek podporují pouze adaptéry EGA (256K), VGA a Hercules. Maje k dispozici více stránek, program může kreslit na neviditelnou stránku a pak ji hotovou rychle zobrazit zavoláním SetVisualPage. Tato technika je zvlášť vhodná pro animaci.

Omezení

Je nutno být v grafickém režimu.

Viz také

SetVisualPage

Vzorový příklad

{Setactpg.PAS}
{Vzorový příklad pro proceduru 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('Stránkování není podporováno.');
  Readln;
  CloseGraph;
end.