纯组件创建滚动列表可删除排序

易语言 2020-10-09 16:30:50

纯组件创建滚动列表可删除排序

.计次循环首 (取数组成员数 (集_超级按钮), i)
集_超级按钮 [i].销毁 ()
.计次循环尾 ()
清除数组 (集_超级按钮)
调试输出 (集_超级按钮)
.计次循环首 (5, i)
复制窗口组件 (超级按钮1, 局_超级按钮)
加入成员 (集_超级按钮, 局_超级按钮)
集_超级按钮 [i].标记 = 到文本 (i)
集_超级按钮 [i].标题 = “功能列表” + 字符 (i + 64)
.如果 (i = 1)
集_超级按钮 [i].移动 (0, 10, 超级按钮1.宽度, 超级按钮1.高度)
.否则
集_超级按钮 [i].移动 (0, (i - 1) × (超级按钮1.高度 + 10) + 10, 超级按钮1.宽度, 超级按钮1.高度)
.如果结束
集_超级按钮 [i].可视 = 真
调试输出 (集_超级按钮 [i].标题)
.计次循环尾 ()