Polygon und Rectangle zeichen unterschiedlich

[bernau]

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?