delphi – 是否可以改变一条线的大小？

概述我在T Image Canvas上绘制了一条虚线,发现破折号的大小对于绘图区来说太大了.有没有办法改变画布上画线的破折号？ 这就是我能够绘制虚线的方法. Canvas.Pen.Style := psDash;Canvas.Polyline(myPoints); 我没有找到任何可以改变破折号尺寸/长度的Pen属性. 谢谢 根据 http://docwiki.embarcadero.com/VCL/ 我在T Image Canvas上绘制了一条虚线,发现破折号的大小对于绘图区来说太大了.有没有办法改变画布上画线的破折号？
这就是我能够绘制虚线的方法.

Canvas.Pen.Style := psDash;Canvas.polyline(myPoints);

我没有找到任何可以改变破折号尺寸/长度的Pen属性.

谢谢

解决方法 根据 http://docwiki.embarcadero.com/VCL/e/index.php/Graphics.TPenStyle,您可以使用psUserStyle

ExtCreatePen的文档是http://msdn.microsoft.com/en-us/library/dd162705(VS.85).aspx

以下是我对ExtCreatePen如何与TPen结合使用的解释：

const  NumberOfSections = 8;  lineLengths: array[0..NumberOfSections-1] of DWORD =    (20,15,14,17,8,16,9);var  logBrush: TLogBrush;begin  logBrush.lbStyle := BS_SolID;  logBrush.lbcolor := DIB_RGB_colorS;  logBrush.lbHatch := HS_BDIAGONAL; // ignored  Canvas.Pen.Handle := ExtCreatePen(PS_GEOMETRIC or PS_USERSTYLE or PS_ENDCAP_ROUND or PS_JOIN_BEVEL,4,logBrush,NumberOfSections,@lineLengths[0]);  // Now Canvas.Pen.Style = psUserStyle  Canvas.polyline([Point(0,0),Point(100,100),Point(200,100)]);end;

总结

以上是内存溢出为你收集整理的delphi – 是否可以改变一条线的大小？全部内容，希望文章能够帮你解决delphi – 是否可以改变一条线的大小？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。