SetActivePage

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.