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

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

======程序集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"
    .参数 窗口句柄, 整数型
    .参数 控件坐标, 控件坐标