【发布时间】:2011-12-27 20:23:46
【问题描述】:
我正在使用此代码在所有窗口顶部用鼠标绘制一条线。我正在使用鼠标钩子来获取鼠标坐标,并且在鼠标右键按下时每次鼠标移动我都在画线。我正在使用NOTXORPEN,所以我只能通过再次绘制它来删除它。
初始化:
ScreenDC := GetDcEx(GetDesktopWindow,0,DCX_LOCKWINDOWUPDATE);
PenHandle := CreatePen(PS_SOLID,HitStorage.GetPenWidth,10);
SelectObject(ScreenDC ,PenHandle);
OldPenMode := SetRop2(ScreenDC, R2_NOTXORPEN); // Setting the PenMode to NotXor
MoveToEx(ScreenDC, X, Y, Nil); //Move The Pen Position to the Cursor Position
我在每次鼠标移动时都使用此代码:
LineTo(ScreenDC, X, Y); // Draw a Line between the prev Point to Current Point
此代码适用于 Windows 95、98、2000 和 XP,但现在在 Windows 7 上运行速度非常慢。
我只使用 Windows API 在 Delphi 3 中编写了一个鼠标手势程序(写于 1999 年)(鼠标钩子是用 VC 编写的,因为版本 3 中的 Delphi BUG)。这个程序正在做 StrokeIt 正在做的事情,但不知何故 StrokeIt 设法找出解决这个问题的方法。
我的代码在 Delphi 中,但我们将不胜感激!
我将更详细地解释我正在尝试构建的内容。我的申请分为三个部分:
- 单击鼠标右键时跟踪和存储鼠标手势
- 基于有限形状的手势识别
- 基于识别的手势和启动手势时光标下的应用程序的宏激活
我无法让 Part1 在 Windows7 (Vista) 上运行,正如 Martyn 在他的回答中所写的那样,我想我必须改变概念。现在我通过上面附加的代码挂钩鼠标消息和手势绘制来进行跟踪......我了解分层窗口的基础知识,但什么对我有用?你认为制作一个全屏最上面的透明窗口并在上面绘图可以完成这项工作吗?有人可以帮我写代码吗?
【问题讨论】:
标签: windows delphi winapi windows-7 windows-7-x64