鼠标移动取色工具及详细颜色信息

易语言 2020-07-21 00:11:53

鼠标移动取色工具及详细颜色信息

取色窗口.顶边 = 取鼠标垂直位置 ()
取色窗口.左边 = 取鼠标水平位置 () ' 上两句使得取色窗口跟踪鼠标
标签2.标题 = “X=” + 到文本 (取鼠标水平位置 ())
标签3.标题 = “Y=” + 到文本 (取鼠标垂直位置 ()) ' 上两句显示鼠标位置
图片号 = 载入图片 (快照 (取色窗口句柄, , ))
画板.画图片 (图片号, 0, 0, 11200, 2700, ) ' 这两句获得鼠标位置点的放大图
颜色值 = 画板.取点 (50, 50) ' 取颜色值
蓝色 = 颜色值 \ (65280 + 255 + 1)
绿色 = (颜色值 - 蓝色 × (65280 + 255 + 1)) \ (255 + 1)
红色 = 颜色值 - 蓝色 × (65280 + 255 + 1) - 绿色 × (255 + 1) ' 这三句用于获得RGB三色的分量值
标签1.标题 = “颜色值=” + 到文本 (颜色值)
标签4.标题 = “R=” + 到文本 (红色)
标签5.标题 = “G=” + 到文本 (绿色)
标签6.标题 = “B=” + 到文本 (蓝色) ' 显示颜色及三原色的分量值
.变量循环首 (48, 122, 1, 键值)
状态 = 取状态 (键值)
.如果真 (状态 = -32767) ' 这些我就不知道是什么意思了,对API没有研究。可能是取键盘状态。
.如果真 (到小写 (字符 (键值)) = “g”) ' 如果按键盘G
置剪辑板文本 (到文本 (颜色值)) ' 复制颜色值到剪切板以供使用
.如果真结束

.如果真结束

.变量循环尾 ()