超级列表框中加入各种组件

.计次循环首 (10, 列表现行)
顶边位置 ＝ 2 ＋ 17 × 列表现行 － 纵滑块位置 × 17
绘制进度条 (超级列表框1, 超级列表框1.取列宽 (0) ＋ 超级列表框1.取列宽 (1) － 横滑块位置 ＋ 2, 顶边位置, 超级列表框1.取列宽 (2) － 4, 14, #粉红, #紫色, #黑色, 0, 当前位置, 100)
.计次循环尾 ()