画直线(50分)

H

hwljerry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-11

• #1

怎样才能实现，象Window自带的画图程序那样，在画直线的时候按住Shift键画出的效果。
最好有现成的例子， 给个思路也可以。

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-11

• #2

现成的例子[]

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-11

• #3

首先判断是否Shift键按下，若按下则检测当前鼠标位置相对于起始位置的横、纵（即：X与Y）坐标比；若比值大于1则当前点X坐标取当前鼠标X坐标，Y坐标取起始点坐标（画水平直线），若比值小于1，则同理画垂直线；若等于1，则画45度斜线。

 

天

天河流星

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-11

• #4

有个执行代码可以下载看看: idelphi.ys168.com

 

H

hwljerry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-11

• #5

接受答案了.