Quader in Delphi zeichnen

[toms]

Zum Zeichnen gibt's verschiedene Funktionen. Z.B

Delphi-Quellcode:

LineTo(X, Y: Integer) // Linie von der aktuellen Zeichenposition bis (X, Y). 

MoveTo(X, Y: Integer) // Setzt die aktuelle Zeichenposition auf (X, Y) 

Rectangle(X1, Y1, X2, Y2: Integer) // Rechteck mit oberer linker Ecke (X1, Y1) und unterer rechter Ecke (X2, Y2)