马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 spec
.程序集 窗口程序集_窗口1
.程序集变量 n, 整数型
.程序集变量 p, 整数型
.程序集变量 配置项全局变量, 文本型
.程序集变量 o, 整数型
.程序集变量 逻辑, 逻辑型
.程序集变量 变量, 按钮
.程序集变量 ii, 整数型
.程序集变量 i, 整数型
.程序集变量 行数, 整数型
.程序集变量 按钮, 按钮, , "0"
.子程序 _窗口1_创建完毕
写配置项 (配置项全局变量, 到文本 (o), “按钮”, 到文本 (o))
n ＝ 取屏幕高度 ()
p ＝ 取屏幕宽度 ()
分组框2.宽度 ＝ p － 分组框1.宽度 － 100
分组框2.高度 ＝ n － 100
分组框1.高度 ＝ n － 100
窗口1.宽度 ＝ p － 100
窗口1.高度 ＝ n － 100
读配置项 (配置项全局变量, 到文本 (o), “按钮”, )
.子程序 _按钮1_被单击
逻辑 ＝ 复制窗口组件 (按钮1, 变量)
调试输出 (逻辑)
ii ＝ 1
配置项全局变量 ＝ 取运行目录 () ＋ “＼配置.ini”
.计次循环首 (ii, )
i ＝ i ＋ 1
变量.可视 ＝ 真
变量.标题 ＝ “复制体” ＋ 到文本 (o)
变量.标记 ＝ 到文本 (o)
.如果真 ((i － 1) × (按钮1.左边 ＋ 按钮1.宽度) ＋ 16 ＋ 变量.宽度 ＞ 分组框2.宽度)
i ＝ 1
行数 ＝ 行数 ＋ 1
.如果真结束
变量.左边 ＝ (按钮1.左边 ＋ 按钮1.宽度) × (i － 1) ＋ 16
变量.顶边 ＝ (按钮1.高度 ＋ 16) × 行数 ＋ 按钮1.顶边
.计次循环尾 ()
加入成员 (按钮, 变量)
写配置项 (配置项全局变量, 到文本 (o), “按钮”, 到文本 (o))
.子程序 _按钮2_被单击
窗口1.销毁 ()
调试输出 ()
|
