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