DX鼠标移动带有2D效果

易语言 2020-09-12 23:00:51

DX鼠标移动带有2D效果

.DLL命令 ScreenToClient, 整数型, "user32", "ScreenToClient", 公开, 判断屏幕上一个指定点的客户区坐标 非零表示成功,零表示失败
.参数 句柄, 整数型, , 一个窗口的句柄,该窗口定义了要使用的客户区坐标系统
.参数 坐标, Point, 传址, 屏幕坐标系统中包含了屏幕点的结构。这个函数会随同相应的客户区坐标(由hwnd决定)载入结构

_移动演示_缓冲页面.透空块复制 (全局_屏幕.取后台页面 (), _移动演示_显示坐标.x, _移动演示_显示坐标.y, )
_移动演示_矩形 = 构造矩形数据 (_移动演示_显示坐标.x, _移动演示_显示坐标.x + _移动演示_宽度, _移动演示_显示坐标.y, _移动演示_显示坐标.y + _移动演示_高度)
_移动演示_可移动识别矩形 = 构造矩形数据 (_区域矩形.左边 + _移动演示_矩形.左边, _区域矩形.左边 + _移动演示_矩形.左边 + _区域矩形.右边, _区域矩形.顶边 + _移动演示_矩形.顶边, _区域矩形.顶边 + _移动演示_矩形.顶边 + _区域矩形.底边)