窗口控件位置自适应源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 窗口控件句柄组, 整数型, , "0"
.程序集变量 窗口控件详细组, 控件详细, , "0"
.程序集变量 窗口原始尺寸, RECT

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 rect, RECT

窗口原始尺寸.Right ＝ 取用户区宽度 ()
窗口原始尺寸.Bottom ＝ 取用户区高度 ()
EnumChildWindows (取窗口句柄 (), 到整数 (&处理), 0)
.计次循环首 (取数组成员数 (窗口控件句柄组), i)
    GetWindowRect (窗口控件句柄组 [i], rect)
    重定义数组 (窗口控件详细组, 真, 取数组成员数 (窗口控件详细组) ＋ 1)
    窗口控件详细组 [取数组成员数 (窗口控件详细组)].hwnd ＝ 窗口控件句柄组 [i]
    窗口控件详细组 [取数组成员数 (窗口控件详细组)].l ＝ rect.Left － 左边
    窗口控件详细组 [取数组成员数 (窗口控件详细组)].t ＝ rect.Top － 顶边
    窗口控件详细组 [取数组成员数 (窗口控件详细组)].r ＝ rect.Right － rect.Left
    窗口控件详细组 [取数组成员数 (窗口控件详细组)].b ＝ rect.Bottom － rect.Top
.计次循环尾 ()
调试输出 (“”)

.子程序 处理, 整数型
.参数 n, 整数型

加入成员 (窗口控件句柄组, n)
返回 (n)

.子程序 __启动窗口_尺寸被改变
.局部变量 dc, 整数型
.局部变量 dpi, 整数型
.局部变量 sc_x, 小数型
.局部变量 sc_y, 小数型
.局部变量 i, 整数型

sc_x ＝ 取用户区宽度 () ÷ 窗口原始尺寸.Right
sc_y ＝ 取用户区高度 () ÷ 窗口原始尺寸.Bottom
调试输出 (sc_x, sc_y)
.计次循环首 (取数组成员数 (窗口控件句柄组), i)
    MoveWindow (窗口控件详细组 [i].hwnd, 窗口控件详细组 [i].l × sc_x, 窗口控件详细组 [i].t × sc_y, 窗口控件详细组 [i].r × sc_x, 窗口控件详细组 [i].b × sc_y, 1)
.计次循环尾 ()

@LaiEn