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

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

======程序集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（零）则表明应用程序会自己决定是否重画窗口;