.版本2
.支持库iext
.程序集项目随意移动_列表
.程序集变量集_最初位置,整数型
.程序集变量集_现在位置,整数型
.程序集变量集_按下了,逻辑型
.子程序列表_鼠标左键被按下,逻辑型
集_按下了=真
连续赋值(-1,集_现在位置,集_最初位置)
.子程序列表_鼠标左键被放开,逻辑型
.参数参_列表,超级列表框
.局部变量局_名称,文本型
.如果真(集_按下了=假)
返回()
.如果真结束
集_按下了=假
.如果真(集_现在位置=-1或集_最初位置=-1)
返回()
.如果真结束
.如果真(集_现在位置=集_最初位置)
返回()
.如果真结束
.如果真(集_现在位置≠-1)
局_名称=参_列表.取标题(集_最初位置,0)
.如果真(集_现在位置<集_最初位置)
参_列表.插入表项(集_现在位置,局_名称,,,,)
参_列表.删除表项(集_最初位置+1)
连续赋值(-1,集_现在位置,集_最初位置)
返回()
.如果真结束
参_列表.插入表项(集_现在位置+1,局_名称,,,,)
参_列表.删除表项(集_最初位置)
连续赋值(-1,集_现在位置,集_最初位置)
.如果真结束
.子程序列表_鼠标位置被移动,逻辑型
.参数参_列表,超级列表框
.参数横向位置,整数型
.参数纵向位置,整数型
.局部变量局_列表信息,定义_列表信息
.如果真(集_按下了=假)
返回()
.如果真结束
.如果真(集_现在位置=-1)
集_最初位置=参_列表.现行选中项
.如果真结束
局_列表信息.x=横向位置
局_列表信息.y=纵向位置
发送消息(参_列表.取窗口句柄(),4153,0,局_列表信息)
.如果真(局_列表信息.行≠-1)
集_现在位置=局_列表信息.行
参_列表.现行选中项=集_现在位置
.如果真结束
.版本2
.DLL命令发送消息,整数型,,"SendMessageA"
.参数hWnd,整数型
.参数Msg,整数型
.参数wParam,整数型
.参数lParam,定义_列表信息
.版本2
.数据类型定义_列表信息
.成员x,整数型
.成员y,整数型
.成员flags,整数型
.成员行,整数型
.成员列,整数型
|
|