GFX Rectangle Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet einen Rechteck mit der linken, oberen Ecke X1,Y1 und der rechten, unteren Ecke X2,Y2 in der aktuell gesetzten Zeichenfarbe

vgl. - SetColor - Bar

Deklaration

PROCEDURE Rectangle(X1, Y1, X2, Y2 : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  Rectangle(200, 100, 400, 500);         
  ReadKey;
END.

---