GFX GetViewPage Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert die aktuell sichtbare Grafikseite zurück.

vgl. - MaxGraphPage - SetViewPage - SetActivePage - GetActivePage

Deklaration

FUNCTION  GetViewPage : 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
    IF GetViewPage = 0 THEN SetViewPage(1)  { zeige Grafikseite 1 }
                       ELSE SetViewPage(0); { zeige Grafikseite 0 }
  UNTIL ReadKey = #27;          { Taste <ESC> beendet das Programm }
END.

---