GFX GetActivePage Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert die zur Bearbeitung gesetzte Grafikseite zurück.

vgl. - MaxGraphPage - SetViewPage - SetActivePage - GetViewPage

Deklaration

FUNCTION  GetActivePage : Byte;

Beispiel

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

---