用数据库自绘的卷帘式菜单工具箱

分组框2.移动 (0, 0, 窗口_主.宽度, )
高级选择夹1.移动 (0, 分组框2.高度, 窗口_主.宽度, 窗口_主.高度 － 分组框2.高度 － 分组框1.高度)
分组框_卷帘菜单.移动 (, , 高级选择夹1.取用户区宽度 () － 分组框_卷帘菜单.左边 － 8, 高级选择夹1.取用户区高度 () － 27)
按钮_分组栏.宽度 ＝ 分组框_卷帘菜单.取用户区宽度 ()
超级列表框_.移动 (, , 分组框_卷帘菜单.取用户区宽度 (), 分组框_卷帘菜单.取用户区高度 () － 按钮_分组栏.高度 × 取数组成员数 (集_按钮s) － 10)
分组框1.移动 (0, 分组框1.高度 ＋ 高级选择夹1.高度, 窗口_主.宽度, )
.如果真 (取数组成员数 (集_按钮s) ≠ 0)
.计次循环首 (取数组成员数 (集_按钮s), 局_计次)
集_按钮s [局_计次].宽度 ＝ 分组框_卷帘菜单.取用户区宽度 ()
.计次循环尾 ()