|
楼主 |
发表于 2017-4-4 17:28:40
|
显示全部楼层
贵州省黔南布依族苗族自治州
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 标签_ | 标签 | 0 | 集_临时缓存标签 | 标签 | | 集_句柄 | 整数型 | | 集_许可证 | 整数型 | | 计次循环首 (7, n )复制窗口组件 (标签1, 标签 )标签.标记 = 到文本 (n - 1 )标签. 移动 (标签1.左边 (n - 1 ) (标签1.宽度 + 5 ), 标签1.顶边, , )标签.背景颜色 = #默认色 标签.文本颜色 = #黑色 标签.可视 = 真 标签.标题 = “导航” + 到文本 (n )加入成员 (标签_, 标签 )如果真 (n ≥ 2 )高级选择夹1. 加入子夹 (取重复文本 (5, “ ”) + “导航” + 到文本 (n ) + 取重复文本 (5, “ ”), n, , , )如果真 (n = 1 )标签2. 移动 (标签.左边, 标签.顶边 + 标签.高度, 标签.宽度, 3 )计次循环尾 ()高级选择夹1. 置子夹名称 (0, 取重复文本 (5, “ ”) + “导航1” + 取重复文本 (5, “ ”)) 集_许可证 = 创建进入许可证 ()|
_标签1_鼠标位置被移动 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
标签 = 取事件组件 ()如果真 (是否已创建 (集_临时缓存标签 )) 如果真 (集_临时缓存标签 = 标签 )返回 ()
集_临时缓存标签 = 标签 计次循环首 (取数组成员数 (标签_ ), n )判断 (标签_ [n ].标记 = 标签.标记 )标签.背景颜色 = #天蓝 标签.文本颜色 = #白色 如果真 (标签_ [n ].背景颜色 ≠ #默认色 )标签_ [n ].背景颜色 = #默认色 标签_ [n ].文本颜色 = #黑色 计次循环尾 () 退出许可区 (集_许可证 )删除进入许可证 (集_许可证 )强制结束线程 (集_句柄 )集_许可证 = 创建进入许可证 ()启动线程 (&处理移动距离, 集_临时缓存标签.左边 - 标签2.左边, 集_句柄 ) 高级选择夹1.现行子夹 = 到整数 (标签.标记 )变量名 | 类 型 | 静态 | 数组 | 备 注 | n | 整数型 | | | 临_距离 | 整数型 | | | 进入许可区 (集_许可证 )调试输出 (“移动距离:” + 到文本 (距离 ), “标签左边:” + 到文本 (集_临时缓存标签.左边 ), “标记:” + 集_临时缓存标签.标记 )判断 (距离 > 0 ) 临_距离 = 标签2.左边 计次循环首 (距离 ÷ 10, n )标签2.左边 = 标签2.左边 + 10 处理事件 ()延迟 (1 )计次循环尾 ()如果真 (是否已创建 (集_临时缓存标签 )) 标签2.左边 = 集_临时缓存标签.左边 判断 (距离 < 0 ) 临_距离 = 标签2.左边 计次循环首 (到整数 (子文本替换 (到文本 (距离 ), “-”, “”, , , 真)) ÷ 10, n )标签2.左边 = 标签2.左边 - 10 处理事件 ()延迟 (1 )计次循环尾 ()如果真 (是否已创建 (集_临时缓存标签 )) 标签2.左边 = 集_临时缓存标签.左边 退出许可区 (集_许可证)强制结束线程 (集_句柄 )高级选择夹1.现行子夹 = 子夹索引
|
|