W wing_sky Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-18 #1 用什么报表控件可以在报表中设置两点,然后将点与点之间用线连接起来? 或者不用报表控件,用图片形式实现也行。。。 或者设置两点,将两点以线的形式连接起来的其它方法也欢迎讨论。。。
W wql Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-19 #2 把自己的定义写在Form的OnPaint事件上,就可以了! 不然拖动任何窗口,你化的线就不见了!呵呵!
K kkyy Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-19 #3 什么报表可以设置一个男的,一个女的,然后把头发连在一起打个结?[]
W wing_sky Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-20 #6 to wql 我的意思不是自己去画,而是知道两点的位置,用线将他们连接起来
H hfghfghfg Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-20 #8 用 TfrxLineView 动态设置他的 位置就可以
W wing_sky Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-21 #11 to Delphizhou 就是一个表格图,将里面的几个根据X.Y轴的值用线连接起来
W wql Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-21 #12 知道了 p1(x1,y1) p2(x2,y2) Procedure TForm1.OnDBGridPaint(); var cv:tcanvas; begin cv:=tcanvas.create; cv.handle:=getdc(DBGrid.Handle,0); try cv.pen.color:=clred; cv.moveto(x1,y1); cx.lineto(x2,y2); finally cv.free; end; end;
知道了 p1(x1,y1) p2(x2,y2) Procedure TForm1.OnDBGridPaint(); var cv:tcanvas; begin cv:=tcanvas.create; cv.handle:=getdc(DBGrid.Handle,0); try cv.pen.color:=clred; cv.moveto(x1,y1); cx.lineto(x2,y2); finally cv.free; end; end;