超级列表框双击修改内容例程

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 表项坐标, 坐标
.局部变量 i
.局部变量 画笔句柄

画笔句柄 ＝ 创建画笔 (0, 1, 超级列表框1.背景颜色)
选入设备场景 (设备句柄, 画笔句柄)
取老矩形 (老表项, 老列)
画矩形 (设备句柄, 老矩形.左, 老矩形.上, 老矩形.右, 老矩形.下)
表项信息.横向 ＝ 横向位置
表项信息.纵向 ＝ 纵向位置
取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)
超级列表框1.现行选中项 ＝ -1
.如果真 (表项信息.行 ≠ -1)
取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)
编辑框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1
编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
.如果真 (表项信息.列 ＝ 0)
编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
.如果真结束
.计次循环首 (表项信息.列, i)
编辑框1.左边 ＝ 编辑框1.左边 ＋ 超级列表框1.取列宽 (i － 1)
.计次循环尾 ()
编辑框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)
编辑框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)
编辑框1.可视 ＝ 真
超级列表框1.禁止重画 ()
编辑框1.获取焦点 ()
编辑框1.被选择字符数 ＝ -1