Z zhwenh Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-13 #1 最近要做一个软件现在遇到一个棘手的问题,就是画矢量图,(包括直线,矩形,椭圆,箭头,随意线等) 必须要支持随意拖动线条变换位置,恳请各位提供资料,源代码,组件.不胜感谢!(200分)
A Adnil Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-14 #8 下载一下 http://www.starbeyond.net/myfile/drag_line.zip 以前卷兄发的一个东东。
F fhb Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #11 我有一个控件,但我事先说明,要收费的。 http://www.codeidea.com/html/tcad.html pdf help http://www.codeidea.com/CADHelpcn.pdf
我有一个控件,但我事先说明,要收费的。 http://www.codeidea.com/html/tcad.html pdf help http://www.codeidea.com/CADHelpcn.pdf
L luoma Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-21 #13 我在上大二的时候用Delphi做过一个这样的程序,不过源代码给丢了.其实很简单的.关键是 化矢量图的时候必须记录每一个图元的位置.你可以用动态数组或链表来表示每一个图元。选择的 时候,要判断鼠标点击的位置与那个图元靠近。然后就可以选择相应的图元(如果有多个只要按顺序 任选一个就可以了),拖动更好说,只要在处理OnMouseMove时用异或画图就可以了.图形基本上不用 全部刷新,所以也没有闪烁现象。只要处理好这些东西就可以了。不要总用控件,否则你的想法就会流于 空想!
我在上大二的时候用Delphi做过一个这样的程序,不过源代码给丢了.其实很简单的.关键是 化矢量图的时候必须记录每一个图元的位置.你可以用动态数组或链表来表示每一个图元。选择的 时候,要判断鼠标点击的位置与那个图元靠近。然后就可以选择相应的图元(如果有多个只要按顺序 任选一个就可以了),拖动更好说,只要在处理OnMouseMove时用异或画图就可以了.图形基本上不用 全部刷新,所以也没有闪烁现象。只要处理好这些东西就可以了。不要总用控件,否则你的想法就会流于 空想!
S SupermanTm Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-24 #15 用 TMetaCanvas 把 数据以 TMetafile 的格式保存 对于画的方法,同意 luoma 兄的方法
A alaclp Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-25 #17 从TCustomControl继承一个矢量类 TShapeType = (stArrow, stLine, stCircle, stRectangle....); TVectShape = class(TCustomControl) private fShapeType: procedure Paint; override; end; TLineShape = class ....... end; 实现每个类的paint方法....
从TCustomControl继承一个矢量类 TShapeType = (stArrow, stLine, stCircle, stRectangle....); TVectShape = class(TCustomControl) private fShapeType: procedure Paint; override; end; TLineShape = class ....... end; 实现每个类的paint方法....
Z zhwenh Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-22 #19 pengyi007,你那真的有么,能不能发给我一份,太感谢了,Email:zhwenh@yeah.net