| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 集_按钮 | 按钮 | 0 | |
| 集_按钮_lock | 线程许可证 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
加入成员 (集_按钮, 按钮1)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_尺寸被改变 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
| 窗口高 | 整数型 | |||||
| 按钮数量 | 整数型 | |||||
| 按钮高 | 整数型 | |||||
| 总按钮高 | 整数型 | |||||
| 顶边偏移 | 整数型 | |||||
| 按钮间隔 | 整数型 | |||||
| 窗口中心Y | 整数型 | |||||
| 按钮总高度的一半 | 整数型 | |||||
| 当前按钮顶边 | 整数型 | |||||
EnterCriticalSection (集_按钮_lock)
按钮数量 ＝ 取数组成员数 (集_按钮)
按钮高 ＝ 窗口高 ÷ 按钮数量
如果真 (按钮高 ＞ 120) ' // 按钮最大高度
按钮高 ＝ 120总按钮高 ＝ 按钮高 × 按钮数量
顶边偏移 ＝ (窗口高 － 总按钮高) ÷ 2
窗口中心Y ＝ 窗口高 ÷ 2
按钮总高度的一半 ＝ 总按钮高 ÷ 2
计次循环首 (取数组成员数 (集_按钮), i)集_按钮 [i].高度 ＝ 按钮高当前按钮顶边 ＝ 窗口中心Y － 按钮总高度的一半 ��� (i － 1) × 按钮高集_按钮 [i].顶边 ＝ 当前按钮顶边
计次循环尾 ()LeaveCriticalSection (集_按钮_lock)
按钮2.顶边 ＝ 窗口高 ÷ 2
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮2_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 按钮20 | 按钮 | |||||
| i | 整数型 | |||||
复制窗口组件 (按钮1, 按钮20)
按钮20.左边 ＝ 0
按钮20.顶边 ＝ 0
按钮20.可视 ＝ 真
按钮20.标题 ＝ 到文本 (i)
按钮20.标记 ＝ “Button” ＋ 到文本 (i)
事件转移 (按钮20, 按钮1)
加入成员 (集_按钮, 按钮20)
SendMessageA (_启动窗口.取窗口句柄 (), 5, 0, 左移 (高度, 16) ＋ 宽度)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| a | 按钮 | |||||
调试输出 (a.标题, a.标记)
| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |
