.程序集 窗口程序集1 .程序集变量 场景, 整数型 .程序集变量 画框, 逻辑型 .程序集变量 原句柄, 整数型 .子程序 __启动窗口_创建完毕 .子程序 窗口名, 文本型 .参数 窗口句柄, 整数型 .局部变量 名长, 整数型 .局部变量 名, 文本型 名长 = 取窗口标题长度 (窗口句柄) .如果真 (名长 ≤ 0) 返回 (“”) .如果真结束 名 = 取空白文本 (名长) 取窗体标题 (窗口句柄, 名, 名长 + 1) 返回 (名) .子程序 窗口类名, 文本型 .参数 窗口句柄, 整数型 .局部变量 名长, 整数型 .局部变量 名, 文本型 名 = 取空白文本 (80) 名长 = 取窗口类名 (窗口句柄, 名, 80) 返回 (取文本左边 (名, 名长)) .子程序 _时钟1_周期事件 .局部变量 鼠标坐标, 坐标 .局部变量 获取文本, 文本型 取鼠标坐标 (鼠标坐标) 当前窗口句柄 = 取坐标窗口句柄 (鼠标坐标.x, 鼠标坐标.y) 画控件外观 (当前窗口句柄) 编辑框1.内容 = 到文本 (当前窗口句柄) 获取文本 = 取空白文本 (255) SendMessage (当前窗口句柄, 13, 256, 获取文本) 编辑框2.内容 = 获取文本 .子程序 画控件外观 .参数 控件句柄, 整数型 .局部变量 外观, 矩形 .局部变量 场景, 整数型 场景 = 创建场景 (“DISPLAY”, “”, “”, 0) .如果真 (原句柄 ≠ 控件句柄) .如果真 (画框) 窗口范围 (原句柄, 外观) 画边框 (场景, 外观) 画框 = 假 .如果真结束 窗口范围 (控件句柄, 外观) 画边框 (场景, 外观) 删除场景 (场景) 原句柄 = 控件句柄 画框 = 真 返回 () .如果真结束 .如果真 (原句柄 = 控件句柄) .如果真 (画框 = 真) 窗口范围 (原句柄, 外观) 画边框 (场景, 外观) 画框 = 假 删除场景 (场景) 返回 () .如果真结束 .如果真 (画框 = 假) 窗口范围 (原句柄, 外观) 画边框 (场景, 外观) 画框 = 真 删除场景 (场景) .如果真结束 .如果真结束 .子程序 画边框 .参数 场景, 整数型 .参数 边框, 矩形 .如果真 (矩形是否为空 (边框) = 0) 填充设备场景 (场景, 边框.左, 边框.上, 边框.右 - 边框.左, 3, #DSTINVERT) 填充设备场景 (场景, 边框.左, 边框.上 + 3, 3, 边框.下 - 边框.上 - 6, #DSTINVERT) 填充设备场景 (场景, 边框.右, 边框.上 + 3, -3, 边框.下 - 边框.上 - 6, #DSTINVERT) 填充设备场景 (场景, 边框.左, 边框.下, 边框.右 - 边框.左, -3, #DSTINVERT) .如果真结束 .子程序 _按钮1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 时钟1.时钟周期 = 300 按钮1.标题 = “放开左键” .子程序 _按钮1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 时钟1.时钟周期 = 0 .如果真 (画框 = 假) 按钮1.标题 = “移取句柄” 返回 () .如果真结束 画框 = 真 画控件外观 (原句柄) 按钮1.标题 = “拖动左键取句柄” .子程序 _查找按钮_被单击 .局部变量 顶端程序窗口, 整数型 .子程序 _标签1_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .子程序 _按钮2_被单击 ' API_改变窗口 (当前窗口句柄, 10, 10, 120, 120, 0) |
|