GFX CopyPage Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Kopiert eine Grafikseite auf eine andere. Ist die angegebene Quell- oder Zielseite größer als MaxGraphPage passiert nichts.

vgl. - MaxGraphPage - SetViewPage - SetActivePage - GetViewPage - GetActivePage

Deklaration

PROCEDURE CopyPage(FromPage, ToPage : 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 }
    IF ReadKey = ' ' THEN CopyPage(0, 1); { wenn Leertaste betätigt, wird Seite 0 auf Seite 1 kopiert }
    SetViewPage(1);             { zeige Grafikseite 1 }
  UNTIL ReadKey = #27;          { Taste <ESC> beendet das Programm }
END.

---