GFX SetViewPage Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeigt eine Grafikseite. Ist die angegebene Seite größer als MaxGraphPage wird weiterhin die aktuelle Seite gezeigt.

vgl. - MaxGraphPage - SetActivePage - GetViewPage - GetActivePage

Deklaration

PROCEDURE SetViewPage(Nr : Byte);

Beispiel

PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode640x480x16);    { 16bit-Farbtiefe bei 640x480 Bildpunkten }
  SetColor($FFFFFF);            { setze Zeichenfarbe auf weiß }
  Circle(GetMaxX DIV 2, GetMaxY DIV 2, 100);
  SetActivePage(1);             { verwende andere Grafikseite }
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  Circle(GetMaxX DIV 2, GetMaxY DIV 2, 110);
  REPEAT
    SetViewPage(0);             { zeige Grafikseite 0 }
    ReadKey; 
    SetViewPage(1);             { zeige Grafikseite 1 }
  UNTIL ReadKey = #27;          { Taste <ESC> beendet das Programm }
END.

---