易语言取色器源码

易语言取色器源码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 取色
.参数 句柄
.参数 X
.参数 Y
.局部变量 颜色, 整数型

颜色 ＝ GetPixel (GetDC (句柄), X, Y)
连续赋值 (颜色, 底色, 标签1.背景颜色, 标签2.背景颜色, 标签3.背景颜色)
连续赋值 (颜色 ＋ 65535 ÷ 2, 标签1.文本颜色, 标签2.文本颜色, 标签3.文本颜色)
编辑框1.内容 ＝ 到文本 (颜色)
编辑框2.内容 ＝ 取十六进制文本 (颜色)
编辑框3.内容 ＝ “#” ＋ 到网页色 (颜色)

.子程序 _图片框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

取色 (图片框2.取窗口句柄 (), 横向位置, 纵向位置)

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

取色 (图片框1.取窗口句柄 (), 横向位置, 纵向位置)

.子程序 到网页色, 文本型
.参数 颜色值, 整数型
.局部变量 字节集, 字节集

字节集 ＝ 到字节集 (颜色值)
返回 (取文本右边 (“00” ＋ 取十六进制文本 (字节集 [1]), 2) ＋ 取文本右边 (“00” ＋ 取十六进制文本 (字节集 [2]), 2) ＋ 取文本右边 (“00” ＋ 取十六进制文本 (字节集 [3]), 2))

.子程序 __启动窗口_创建完毕

@snihihcy