易语言自绘的扩展列表框

.计次循环首 (列表属性.项目总数, i)
处理事件 ()
.如果真 (PtInRectF (MakeRCF (0, 列表属性.顶边偏移 ＋ (列表属性.项目高度 ＋ 列表属性.项目间距) × (i － 1), 矩形 ().Width, 列表属性.项目高度), 取低位 (lParam) － 矩形 ().left, 取高位 (lParam) － 矩形 ().top))
.如果真 (列表属性.点燃项目 ＝ i)
跳出循环 ()
.如果真结束
列表属性.点燃项目 ＝ i
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (i ＝ 列表属性.项目总数 ＋ 1) ' 没有找到，点燃初始归零！
列表属性.点燃项目 ＝ 0
.如果真结束
.计次循环首 (取数组成员数 (内_扩展按钮), i)
处理事件 ()
.如果真 (PtInRectF (扩展矩形转列表矩形 (取项目矩形 (内_扩展按钮 [i].项目索引), 内_扩展按钮 [i].组件区域), 取低位 (lParam) － 矩形 ().left, 取高位 (lParam) － 矩形 ().top))
.如果真 (内_焦点按钮 ＝ i)
跳出循环 ()
.如果真结束
内_焦点按钮 ＝ i
跳出循环 ()
.如果真结束

.计次循环尾 ()