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

易语言组件自动居中模块源码

系统结构:添加需要自动居中的控件,刷新自动居中控件,取子控件信息,取父控件信息,取窗口矩形_,取父窗口_,移动窗口_,取客户区矩形_,屏幕到客户区_,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 添加需要自动居中的控件
| |
| |------ 刷新自动居中控件
| |
| |------ 取子控件信息
| |
| |------ 取父控件信息
| |
| |
======调用的Dll
| |
| |---[dll]------ 取窗口矩形_
| |
| |---[dll]------ 取父窗口_
| |
| |---[dll]------ 移动窗口_
| |
| |---[dll]------ 取客户区矩形_
| |
| |---[dll]------ 屏幕到客户区_

调用的DLL命令:

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

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

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

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

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