J jumboo Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-24 #1 delphi 自己提供的虚线格式太难看 我想自己定义虚线格式 比如说2个点构成线后空3个点 以此类推 望诸位不吝赐教
E ego Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-24 #3 呃,好象canvas的线条属性是delphi已经规定了的,想改可能只有用API了.
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-24 #4 哦，我明白了。那可能只有自己画了，用Canvas.Lineto()
A afei2002 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-24 #5 自己写一个画线函数…… 『虚线是由一系列的点或线组成的，我以前用VC＋＋画过，效果不错……』
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-24 #6 默认只能是一点宽的时候，才能虚。 你的这种情况，应该自己实现。
A Another_eYes Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-24 #9 用ExtCreatePen建立一个GEOMETRIC 的pen, 这样画出来的线型可以由图片构成。 简单的自定义线型可以用ExtCreatePen的PS_USERSTYLE加一个线型图样数组来完成. 要使用的话也很简单： VAR Pen, Old: HPEN; begin Pen := ExtCreatePen(....); Old := SelectObject(Canvas.Handle, Pen); Canvas.MoveTo(0, 0); Canvas.LineTo(50, 50); DeleteObject(SelectObject(Canvas.Handle, Old));
用ExtCreatePen建立一个GEOMETRIC 的pen, 这样画出来的线型可以由图片构成。 简单的自定义线型可以用ExtCreatePen的PS_USERSTYLE加一个线型图样数组来完成. 要使用的话也很简单： VAR Pen, Old: HPEN; begin Pen := ExtCreatePen(....); Old := SelectObject(Canvas.Handle, Pen); Canvas.MoveTo(0, 0); Canvas.LineTo(50, 50); DeleteObject(SelectObject(Canvas.Handle, Old));
