GFX SetActivePage Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Setzt die Grafikseite, auf die geschrieben werden soll. So ist es möglich, diverse Grafikausgaben im Verborgenen zu machen und diese erst dann mit SetViewPage anzuzeigen. Ist die angegebene Seite größer als MaxGraphPage wird weiterhin die aktuelle Seite verwendet.

vgl. - MaxGraphPage - SetViewPage - GetViewPage - GetActivePage

Deklaration

PROCEDURE SetActivePage(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.

---