Ich will verschiedene Formen zeichnen. Dabei verwende ich gemischt rectangle und polygon. Irgendwie will es nicht immer passen und habe nach einem Fehler in meinem Code gesucht und nicht gefunden.
Schnell mal ein kleines Testprogramm geschrieben.
Delphi-Quellcode:
procedure TFormTest.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.canvas.rectangle(
0,0, // oben links
100,100 // unten rechts
);
PaintBox1.canvas.Polygon([
Point(10,10), // oben links
Point(100,10),
Point(100,100), // unten rechts
Point(10,100)
]);
end;
Dabei kommt folgendes raus: (Siehe Anhang)
Die Linien auf horziontal 100 und vertikal 100 sind um einen Punkt versetzt. Warum?