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 Pen.Mode finde ich jedenfalls keine entsprechende Einstellung...

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:

markieren

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!

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).

Breite Linie schießt über Ziel hinaus

Breite Linie schießt über Ziel hinaus

AW: Breite Linie schießt über Ziel hinaus

AW: Breite Linie schießt über Ziel hinaus

AW: Breite Linie schießt über Ziel hinaus

AW: Breite Linie schießt über Ziel hinaus

AW: Breite Linie schießt über Ziel hinaus

AW: Breite Linie schießt über Ziel hinaus

Forumregeln

KodeZwerg Registriert seit: 1. Feb 2018 3.691 Beiträge Delphi 11 Alexandria	#2 AW: Breite Linie schießt über Ziel hinaus 18. Apr 2021, 15:47 und wie schaut der code zum malen der linie aus? Gruß vom KodeZwerg
	Zitat

e-gon Registriert seit: 7. Jul 2003 Ort: Stuttgart 163 Beiträge Delphi 6 Enterprise	#3 AW: Breite Linie schießt über Ziel hinaus 18. Apr 2021, 15:50 Hallo KodeZwerg, danke für die schnelle Antwort. Hier der Code: markieren 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
	Zitat

brechi Registriert seit: 30. Jan 2004 823 Beiträge	#4 AW: Breite Linie schießt über Ziel hinaus 18. Apr 2021, 16:06 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.
	Zitat

e-gon Registriert seit: 7. Jul 2003 Ort: Stuttgart 163 Beiträge Delphi 6 Enterprise	#5 AW: Breite Linie schießt über Ziel hinaus 18. Apr 2021, 16:15 Hallo brechi, genau nach sowas habe ich gesucht. Danke! Gruß e-gon
	Zitat

KodeZwerg Registriert seit: 1. Feb 2018 3.691 Beiträge Delphi 11 Alexandria	#6 AW: Breite Linie schießt über Ziel hinaus 18. Apr 2021, 16:34 hier im ganzen als bild Miniaturansicht angehängter Grafiken Gruß vom KodeZwerg
	Zitat

Redeemer Registriert seit: 19. Jan 2009 Ort: Kirchlinteln (LK Verden) 1.118 Beiträge Delphi 2009 Professional	#7 AW: Breite Linie schießt über Ziel hinaus 18. Apr 2021, 16:57 PS_Endcap_Square ist nicht, was der TE wollte. Der wollte PS_Endcap_Flat (sog. Butt). Janni 2005 PE, 2009 PA, XE2 PA
	Zitat

	5. Jan 2023, 08:37 Erstellt von trongholdseven
	Dieser Beitrag wurde von TBx gelöscht. - Grund: Verdacht auf SPAM und den damit verbundenen verschwenderischen Umgang von wertvollen Bits und Bytes