哪位大侠能我小弟一个可以实现图像选定功能的画图例子，万分感谢。(200分)

的

的士

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #1

比如画了一个矩形，一个线段，当点击矩形后，会在矩形四周显示8个小方块，以表示选
定了该矩形。
我在CSDN上问了，别人说千堆雪大侠有，不知道能不能发个例子给我，谢谢。
我的email：ywbtaxi@yeah.net

 

C

chenliang_fly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #2

去http://delphi.mychangshu.com上看看

 

J

jomee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #3

书上不是有吗？

 

的

的士

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #4

jomee：请问哪本书有讲？

 

S

shaofun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #5

将图形定义为一个类，再为这个加上一些方法，如：
(其中TEntity为所有图形类的祖先)

// TLine 直线类定义
TLine = class(TEntity)
protected
// 变量——直线的起点和终点
m_begin, m_end: TPosition;
public
// 绘制图形对象
procedure Draw;
// 绘制图形对象的特征点
procedure DrawCharPt;
// 给定一点及拾取半径，判断图元是否被选中
function Pick(pos: TPosition; pick_radius: real): Boolean;
......
end;

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #6

发给你一个例子，只是简单介绍了直线的选取；
但是里面建立了自己的图形类，比如圆形、矩形之类的，你自己扩充了。。。。

请去接收。

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #7

嘻嘻，不好意思了，卷起千堆雪tyn大虾，如果没有记错的话，好像是我出卖的你。[]

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #8

楼上的朋友准备把我多少钱一斤给卖掉啊？[]

 

T

tanglu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #9

你可以去此处下载我写的控件。
http://www.qianer.com/software/workflow/index.asp

 

的

的士

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #10

多人接受答案了。