Einzelnen Beitrag anzeigen

e-gon

Registriert seit: 7. Jul 2003
Ort: Stuttgart
154 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: Breite Linie schießt über Ziel hinaus

  Alt 18. Apr 2021, 16:50
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
  Mit Zitat antworten Zitat