[Asm] 纯文本查看 复制代码 .版本 2
.支持库 shellEx
.支持库 eAPI
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 F1, 整数型
.程序集变量 状态, 整数型
.子程序 __启动窗口_创建完毕
F1 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)
状态 = 1
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
.局部变量 取鼠标垂直位置, 整数型
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型
.局部变量 RGB, 整数型
编辑框3.内容 = 到文本 (取鼠标垂直位置 ())
编辑框4.内容 = 到文本 (取鼠标水平位置 ())
取当前鼠标处颜色值 (R, G, B)
编辑框5.内容 = 到文本 (R)
编辑框6.内容 = 到文本 (G)
编辑框7.内容 = 到文本 (B)
_启动窗口.底色 = 取颜色值 (R, G, B)
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (功能键状态 = 0 且 键代码 = #F1键)
时钟1.时钟周期 = 0
.如果真结束
.子程序 __启动窗口_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (功能键状态 = 0 且 键代码 = #F1键)
时钟1.时钟周期 = 0
.如果真结束
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = F1)
.如果 (状态 = 1)
时钟1.时钟周期 = 0
状态 = 0
.否则
时钟1.时钟周期 = 10
调试输出 (时钟1.时钟周期)
状态 = 1
.如果结束
|