请问如何用鼠标垂直拖动Canvas上一条横线。 ( 积分: 50 )

  • 主题发起人 主题发起人 landfish2873
  • 开始时间 开始时间
L

landfish2873

Unregistered / Unconfirmed
GUEST, unregistred user!
我用lineto画了一条横线,想按下鼠标左键实现垂直拖动该直线

注意要不能改变Canvas上已有的图线!!

不知道的也希望能帮顶一下,thank you!
 
我用lineto画了一条横线,想按下鼠标左键实现垂直拖动该直线

注意要不能改变Canvas上已有的图线!!

不知道的也希望能帮顶一下,thank you!
 
看看画图程序吧
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2973982
 
在image上放个Shape行吗?
 
捕捉对象--檫除对象--移动对象--重画对象
 
拖动的过程实际上是“擦除旧线,再画新线”的不断重复的过程
在onmousemove时间中,首先擦除上次画的线,再用起点坐标和鼠标当前点坐标画新线,
擦除的方法和简单,将pen.mode设为pmnotxor或pmxor(根据背景色来选择),在上次画线的位置再画一编就可以
 

Similar threads

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