delphi 画粗虚线方法

1：宽度为1的虚线能够经过设置pen的style.如 image1.canvas.Pen.Width:=1; image1.canvas.Pen.Style:=psDash; image1.canvas.MoveTo(0,0); image1.canvas.LineTo(100,100); 但当宽度大于1时，Dotted or dashed pen styles无效。不过你 能够一段一段的画来实现

>>阅读原文<<