200分,高难度问题(200分)

  • 主题发起人 主题发起人 zhwenh
  • 开始时间 开始时间
Z

zhwenh

Unregistered / Unconfirmed
GUEST, unregistred user!
最近要做一个软件现在遇到一个棘手的问题,就是画矢量图,(包括直线,矩形,椭圆,箭头,随意线等)
必须要支持随意拖动线条变换位置,恳请各位提供资料,源代码,组件.不胜感谢!(200分)
 
想到了什么控件找我,也许我有
 
netkk你那有没有Tcad2002 之类的控件。
 
下载一下
http://www.starbeyond.net/myfile/drag_line.zip

以前卷兄发的一个东东。
 
adnil有没有画箭头的组件
 
真的没有人有这方面的经验么.
 
我有一个控件,但我事先说明,要收费的。
http://www.codeidea.com/html/tcad.html

pdf help
http://www.codeidea.com/CADHelpcn.pdf
 
有没有免费的画矢量图组建
 
我在上大二的时候用Delphi做过一个这样的程序,不过源代码给丢了.其实很简单的.关键是
化矢量图的时候必须记录每一个图元的位置.你可以用动态数组或链表来表示每一个图元。选择的
时候,要判断鼠标点击的位置与那个图元靠近。然后就可以选择相应的图元(如果有多个只要按顺序
任选一个就可以了),拖动更好说,只要在处理OnMouseMove时用异或画图就可以了.图形基本上不用
全部刷新,所以也没有闪烁现象。只要处理好这些东西就可以了。不要总用控件,否则你的想法就会流于
空想!
 
没人回答,就结了吧
 
用 TMetaCanvas
把 数据以 TMetafile 的格式保存

对于画的方法,同意 luoma 兄的方法
 
从TCustomControl继承一个矢量类
TShapeType = (stArrow, stLine, stCircle, stRectangle....);
TVectShape = class(TCustomControl)
private
fShapeType:
procedure Paint; override;
end;

TLineShape = class
.......
end;
实现每个类的paint方法....

 
还感兴趣吗,我手里有实例,
 
pengyi007,你那真的有么,能不能发给我一份,太感谢了,Email:zhwenh@yeah.net
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
633
import
I
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部