GFX IsClipping Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert TRUE, falls Clipping eingeschaltet, FALSE, falls Clipping ausgeschaltet.

vgl.: - ClippingOn - ClippingOff

Deklaration

FUNCTION IsClipping : Boolean;

Beispiel

PROGRAM Test;
USES GFX, Crt;
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 }
  IF IsClipping THEN ClippingOff; { Ist das Clipping eingeschaltet, wird es hier ausgeschaltet }
  ReadKey;
END.

---