GFX GetClippingWindow Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert den Clipping-Bereich zurück.

X0,Y0 ist die linke, obere Ecke, XE,YE die rechte, untere Ecke des Bereichs, auf den die Grafikausgabe beschränkt wird, wenn ClippingOn aufgerufen wird.

vgl.: - SetClippingWindow - ClippingOn - ClippingOff - IsClipping

Deklaration

PROCEDURE GetClippingWindow(VAR X0, Y0, XE, YE : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR  X1, Y1, X2, Y2 : Integer;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetClippingWindow(200, 200, GetMaxX-200, GetMaxY-200); { Clipping-Window setzen }
  ClippingOn;                   { Clipping einschalten }
  Line(0, 0, GetMaxX, GetMaxY); { Diagonale auf den Bildschirm malen }
  GetClippingWindow(X1, Y1, X2, Y2); { wie waren nochmal die Clipping-Koordinaten? }
  ReadKey;
END.

---