易语言窗口吸附例程源码,易语言窗口吸附模块源码 [db:版本]

易语言窗口吸附模块源码

系统结构:设置临界值,加入窗口,删除窗口,取窗口数量,取指定窗口句柄,开始吸附,重新读取吸附线,重新读取吸附线_屏幕边缘,消息处理子程序,窗口事件处理,主窗口左键放开事件_,主窗口左键按下事件_,移动窗口,算出吸附窗口号,取窗口位置_特定值,算出需要整体拖动的窗口号,递归_深度计算吸附,设置窗口活动性,重新钩上,停止吸附,取窗口位置,FindWindow,SetWindowLong,CallWindowProc,复制内存_矩形到指针,复制内存_指针到矩形,移动窗口_,俘获鼠标,释放鼠标,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======程序集2
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 设置临界值
| |
| |------ 加入窗口
| |
| |------ 删除窗口
| |
| |------ 取窗口数量
| |
| |------ 取指定窗口句柄
| |
| |------ 开始吸附
| |
| |------ 重新读取吸附线
| |
| |------ 重新读取吸附线_屏幕边缘
| |
| |------ 消息处理子程序
| |
| |------ 窗口事件处理
| |
| |------ 主窗口左键放开事件_
| |
| |------ 主窗口左键按下事件_
| |
| |------ 移动窗口
| |
| |------ 算出吸附窗口号
| |
| |------ 取窗口位置_特定值
| |
| |------ 算出需要整体拖动的窗口号
| |
| |------ 递归_深度计算吸附
| |
| |------ 设置窗口活动性
| |
| |------ 重新钩上
| |
| |------ 停止吸附
| |
| |
======调用的Dll
| |
| |---[dll]------ 取窗口位置
| |
| |---[dll]------ FindWindow
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ 复制内存_矩形到指针
| |
| |---[dll]------ 复制内存_指针到矩形
| |
| |---[dll]------ 移动窗口_
| |
| |---[dll]------ 俘获鼠标
| |
| |---[dll]------ 释放鼠标
======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ __启动窗口_获得焦点
| |
| |------ __启动窗口_可否被关闭
| |
| |
======窗口程序集2
| |
| |------ _窗口1_获得焦点
| |
| |------ _窗口1_可否被关闭
| |
| |
======窗口程序集3
| |
| |------ _窗口2_获得焦点
| |
| |------ _窗口2_可否被关闭

调用的DLL命令:

.DLL命令 取窗口位置, , "user32.dll", "GetWindowRect"
.参数 窗口句柄, 整数型
.参数 区域, 矩形_, 传址, 接受数据

.DLL命令 FindWindow, 整数型, "user32.dll", "FindWindowA"
.参数 类名, 文本型
.参数 标题, 文本型

.DLL命令 SetWindowLong, 整数型, "User32.dll", "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型

.DLL命令 CallWindowProc, 整数型, "User32.dll", "CallWindowProcA"
.参数 lpPrevWndFunc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 复制内存_矩形到指针, , , "RtlMoveMemory"
.参数 目标地址, 整数型
.参数 源地址, 矩形_
.参数 长度, 整数型

.DLL命令 复制内存_指针到矩形, , , "RtlMoveMemory"
.参数 目标地址, 矩形_
.参数 源地址, 整数型
.参数 长度, 整数型

.DLL命令 移动窗口_, 整数型, "user32.dll", "MoveWindow"
.参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
.参数 左侧位置, 整数型, , x，窗口新的左侧位置
.参数 顶部位置, 整数型, , y，窗口新的顶部位置
.参数 新宽度, 整数型, , nWidth，窗口的新宽度
.参数 高宽度, 整数型, , nHeight，窗口的高宽度
.参数 是否重画, 整数型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 俘获鼠标, , , "SetCapture"
.参数 窗口句柄, 整数型

.DLL命令 释放鼠标, , , "ReleaseCapture"