易语言同步缩放窗口类模块源码

系统结构:初始化,置同步缩放控件,同步缩放控件,置分隔条调整控件,置自动调整分隔条,分隔条调整控件,重置同步缩放控件,取窗口位置,取窗口大小,取父窗口句柄,置窗口新位置,到客户区坐标_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======类_同步缩放控件
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 初始化
           |  |
           |  |------ 置同步缩放控件
           |  |
           |  |------ 同步缩放控件
           |  |
           |  |------ 置分隔条调整控件
           |  |
           |  |------ 置自动调整分隔条
           |  |
           |  |------ 分隔条调整控件
           |  |
           |  |------ 重置同步缩放控件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口位置
           |  |
           |  |---[dll]------   取窗口大小
           |  |
           |  |---[dll]------   取父窗口句柄
           |  |
           |  |---[dll]------   置窗口新位置
           |  |
           |  |---[dll]------   到客户区坐标_

调用的DLL命令:

.DLL命令 取窗口位置, 逻辑型, , "GetWindowRect"
    .参数 窗口句柄
    .参数 窗口位置, 矩形, 传址, 矩形.1 为左上角X 坐标<> 矩形.2 为左上角Y 坐标<> 矩形.3 为右下角X 坐标<>  矩形.4 为右下角Y 坐标

.DLL命令 取窗口大小, 逻辑型, , "GetClientRect"
    .参数 窗口句柄
    .参数 窗口位置, 矩形, 传址, 矩形.3 为宽    矩形.4 为高

.DLL命令 取父窗口句柄, 整数型, , "GetParent", , 返回子窗口的父窗口句柄
    .参数 子窗口句柄, 整数型

.DLL命令 置窗口新位置, 逻辑型, , "SetWindowPos", , 设置窗口新位置 (窗口句柄, 1, 300, 0, 500, 500, 0)
    .参数 窗口句柄, 整数型
    .参数 Z序, 整数型, , 1
    .参数 左上角X轴坐标, 整数型
    .参数 左上角Y轴坐标, 整数型
    .参数 窗口宽度, 整数型
    .参数 窗口高度, 整数型
    .参数 参数, 整数型, , 0:3-6这4个系数都起作用, 1:3-4两个参数起作用  2:宽度和高度参数起作用

.DLL命令 到客户区坐标_, 整数型, "user32.dll", "ScreenToClient", , , ScreenToClient，Long，非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , hwnd，Long，一个窗口的句柄，该窗口定义了要使用的客户区坐标系统
    .参数 点, 坐标_, , POINTAPI，屏幕坐标系统中包含了屏幕点的结构。这个函数会随同相应的客户区坐标（由hwnd决定）载入结构