请教:在画布上用textout()批量生成的文字,如何用鼠标拖动以调节位置???(100分)

  • 主题发起人 主题发起人 zxygraphics
  • 开始时间 开始时间
是想实现文字处理软件中的拖放效果吗?我觉得实际上就是根据鼠标的拖动,计算出新的位
置重画,即重新TextOut。
 

定义一个记录,记录下文字的左上坐标与右下坐标,用TList保存。
在OnMouseDown中用ptInRect检测一下。
 
清除画布,重新 TextOut
 
有两种方法,
1.如youngsun所言,重新textout
2.将原文字textout在一独立的画布中,然后响应鼠标拖动画布从而达到拖动文字的目的。
 
割据鼠标移动的距离,计算一下各字符的位置,然后分别按各字符的位置 TEXTOUT
 
多人接受答案了。
 

Similar threads

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