Breite Linie schießt über Ziel hinaus

[e-gon]

Hallo,

wahrscheinlich wurde dieses Problem schon oft thematisiert, aber mit meinen Stichworten finde ich einfach keinen Beitrag hier, sorry! :?

Beim zeichnen einer Linie mit der Breite (Width) von 1 endet die Linie auch wirklich an der angegebenen Position. Ist Width jedoch größer, malt Delphi an den Endpunkten der Linie immer noch einen Kreis mit der halben Linienbreite (siehe grüner Kreis auf dem Bild im Anhang). Mein Grafikprogramm (Corel Photo Paint) tut sowas nicht.

Wie kann ich Delphi das abgewöhnen? In

Delphi-Quellcode:

Pen.Mode

finde ich jedenfalls keine entsprechende Einstellung... :cry:

Gruß
e-gon

[KodeZwerg]

und wie schaut der code zum malen der linie aus?

[e-gon]

Hallo KodeZwerg,

danke für die schnelle Antwort.

Hier der Code:

Delphi-Quellcode:

BMP.Canvas.Pen.Color:= clBlack;
BMP.Canvas.Pen.Width:= 1;
BMP.Canvas.MoveTo(400, 400);
BMP.Canvas.LineTo(800, 300);

BMP.Canvas.Pen.Width:= 26;
BMP.Canvas.MoveTo(600, 350);
BMP.Canvas.LineTo(650, 550);

Gruß
e-gon

[brechi]

Ich glaube er meint die Linien enden, das Stichwort ist dann "Linecap". https://www.delphipraxis.net/22035-c...te-linien.html ist eine Pen-Eigenschaft. Ggf. bietet Delphi die mittlerweile direkt an, sonst muss du über die API gehen.

[e-gon]

Hallo brechi,

genau nach sowas habe ich gesucht. Danke! :thumb:

Gruß
e-gon

[KodeZwerg]

hier im ganzen als bild :-)

[Redeemer]

PS_Endcap_Square ist nicht, was der TE wollte. Der wollte PS_Endcap_Flat (sog. Butt).