| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 当前按钮位置 | 文本型 | |
| 按钮数组 | 按钮 | 0 |
子程序_初始化 ()子程序_刷新树形框 ()皮肤_加载 ( #皮肤_FlatUI, ,
)当前按钮位置 ＝
“1”加入成员 (按钮数组, 按钮1
)
计次循环首 (3, i
)
复制窗口组件 (按钮1, 按钮复件
)按钮复件.可视 ＝ 真
按钮复件.标记 ＝
到文本 (i ＋ 1
)按钮复件.左边 ＝ 按钮1.左边 �
�� (按钮1.宽度 ＋ 5
) × i
加入成员 (按钮数组, 按钮复件
)
计次循环尾 ()子程序_创建目录 (取运行目录 () ＋
“\配置项”)计次循环首 (4, i
)子程序_创建目录 (取运行目录 () ＋
“\配置项\” ＋
到文本 (i
))
按钮数组
[i
].标题 ＝
读配置项 (取运行目录 () ＋
“\配置.ini”,
“按钮标记”,
到文本 (i
),
“右键修改”)计次循环尾 ()
判断 (文件是否存在 (路径
) ＝
假)
创建目录 (路径
)
判断 (输入框 (“请输入标题”, , , 输入内容, ,
))
写到文件 (取运行目录 () ＋
“\配置项\” ＋ 当前按钮位置 ＋
“\” ＋ 输入内容 ＋
“.txt”,
到字节集 (“”))
子程序_刷新树形框 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 输入内容 | 文本型 | | |
| 项目文本 | 文本型 | | |
| 文件内容 | 文本型 | | |
| 文件名 | 文本型 | | |
判断 (树型框1.现行选中项 ≠ -1
)判断 (树型框1.
取父项目 (树型框1.现行选中项
) ＝ -1
)判断 (输入框 (“请输入标题”, , , 输入内容, ,
))
项目文本 ＝ 树型框1.
取项目文本 (树型框1.现行选中项
)文件名 ＝
取运行目录 () ＋
“\配置项\” ＋ 当前按钮位置 ＋
“\” ＋ 项目文本 ＋
“.txt”文件内容 ＝
到文本 (读入文件 (文件名
))
文件内容 ＝ 文件内容 ＋ 输入内容 ＋
#换行符 写到文件 (文件名,
到字节集 (文件内容
))
子程序_刷新树形框 ()信息框 (“子项目不允许添加子项目”, 0, ,
)信息框 (“请选中父项目”, 0, ,
)|
| _树型框1_鼠标右键被放开 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
弹出菜单 (右键菜单, ,
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文件数组 | 文本型 | | 0 |
| i | 整数型 | | |
| 临时索引 | 整数型 | | |
| 文件内容 | 文本型 | | |
| 文本内容数组 | 文本型 | | 0 |
| j | 整数型 | | |
树型框1.
清空 ()文件_枚举 (取运行目录 () ＋
“\配置项\” ＋ 当前按钮位置,
“*.txt”, 文件数组,
假)计次循环首 (取数组成员数 (文件数组
), i
)临时索引 ＝ 树型框1.
加入项目 (-1,
文件_取文件名 (文件数组
[i
],
), 0, , , 真,
)文件内容 ＝
到文本 (读入文件 (取运行目录 () ＋
“\配置项\” ＋ 当前按钮位置 ＋
“\” ＋ 文件数组
[i
]))
文本内容数组 ＝
分割文本 (文件内容,
#换行符, )计次循环首 (取数组成员数 (文本内容数组
), j
)树型框1.
加入项目 (临时索引, 文本内容数组
[j
], 1, , , ,
)计次循环尾 ()树型框1.
扩展 (临时索引
)计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 项目文本 | 文本型 | | |
| 文件内容 | 文本型 | | |
| 文件名 | 文本型 | | |
判断 (树型框1.现行选中项 ≠ -1
)项目文本 ＝ 树型框1.
取项目文本 (树型框1.现行选中项
) 判断 (树型框1.
取父项目 (树型框1.现行选中项
) ＝ -1
) 文件名 ＝
取运行目录 () ＋
“\配置项\” ＋ 当前按钮位置 ＋
“\” ＋ 项目文本 ＋
“.txt”删除文件 (文件名
)文件名 ＝ 树型框1.
取项目文本 (树型框1.
取父项目 (树型框1.现行选中项
))
文件名 ＝
取运行目录 () ＋
“\配置项\” ＋ 当前按钮位置 ＋
“\” ＋ 文件名 ＋
“.txt”文件内容 ＝
到文本 (读入文件 (文件名
))
文件内容 ＝
文本_替换 (文件内容, , , , 项目文本 ＋
#换行符, “”, , , , , , , ,
)写到文件 (文件名,
到字节集 (文件内容
))
子程序_刷新树形框 ()信息框 (“请选中项目”, 0, ,
)按钮 ＝
取事件组件 ()当前按钮位置 ＝ 按钮.标记
子程序_刷新树形框 ()|
| _按钮1_鼠标右键被放开 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 输入内容 | 文本型 | | |
| 按钮 | 按钮 | | |
判断 (输入框 (“请输入标题”, , , 输入内容, ,
))
按钮 ＝
取事件组件 ()按钮.标题 ＝ 输入内容
写配置项 (取运行目录 () ＋
“\配置.ini”,
“按钮标记”, 按钮.标记, 输入内容
)
