自动调整状态条

.计次循环首 (项目索引, i)
加入成员 (项目文本长度, 取文本长度 (状态条.取文本 (i － 1)))
文本总宽度 ＝ 文本总宽度 ＋ 项目文本长度 [i]
输出调试文本 (文本总宽度)
.计次循环尾 ()
输出调试文本 (状态条.宽度)
状态条现宽度 ＝ 状态条.宽度
.计次循环首 (4, i)
状态条.置宽度 (i － 1, 项目文本长度 [i] ÷ 文本总宽度 × 状态条现宽度)
.计次循环尾 ()