易语言组件自动停靠模块源码 [db:版本]

易语言组件自动停靠模块源码

系统结构:自动停靠,取控件信息,判断控件是否已加入自动停靠控件数组,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 自动停靠
| |
| |------ 取控件信息
| |
| |------ 判断控件是否已加入自动停靠控件数组
| |
| |
======调用的Dll
| |
| |---[dll]------ _取父窗口
| |
| |---[dll]------ _取窗口矩形
| |
| |---[dll]------ _取客户区矩形
| |
| |---[dll]------ _屏幕到客户区
| |
| |---[dll]------ _客户区到屏幕
| |
| |---[dll]------ _移动窗口

调用的DLL命令:

.DLL命令 _取父窗口, 整数型, "user32", "GetParent", , 判断指定窗口的父窗口 父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
.参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 _取窗口矩形, 整数型, "user32", "GetWindowRect"
.参数 窗口句柄, 整数型
.参数 矩形区域, _矩形

.DLL命令 _取客户区矩形, 整数型, "user32", "GetClientRect"
.参数 窗口句柄, 整数型
.参数 矩形区域, _矩形

.DLL命令 _屏幕到客户区, 整数型, "user32", "ScreenToClient"
.参数 窗口句柄, 整数型
.参数 矩形区域, 点坐标

.DLL命令 _客户区到屏幕, 整数型, "user32", "ClientToScreen"
.参数 窗口句柄, 整数型
.参数 矩形区域, 点坐标

.DLL命令 _移动窗口, 整数型, "user32", "MoveWindow", , 改变指定窗口的位置和大小。顶级窗口可能受最大或最小尺寸的限制，那些尺寸优先于这里设置的参数　非零表示成功，零表示失败
.参数 窗口句柄, 整数型, , 欲移动窗口的句柄
.参数 新左边, 整数型, , 窗口新的左边位置
.参数 新顶边, 整数型, , 窗口新的顶边位置
.参数 新宽度, 整数型, , 窗口的新宽度
.参数 新高度, 整数型, , 窗口的新高度
.参数 是否重画, 逻辑型, , 如窗口此时应重画，则设为TRUE（非零）。FALSE（零）则表明应用程序会自己决定是否重画窗口;