易语言屏幕取色源码

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 是否, 逻辑型

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



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

.如果真 (取反 (是否))
    图片框1.鼠标指针 ＝ #鼠标指针
    图片框1.图片 ＝ #捕获鼠标
    处理事件 ()
    捕获鼠标 (图片框1.取窗口句柄 ())
    是否 ＝ 真
.如果真结束


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

.如果真 (是否 ＝ 真)
    释放鼠标 ()
    图片框1.鼠标指针 ＝ {  }
    图片框1.图片 ＝ #释放鼠标
    是否 ＝ 假
.如果真结束


.子程序 _图片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型

.如果真 (是否 ＝ 真)
    取当前鼠标处颜色值 (R, G, B)
    图片框2.背景颜色 ＝ 取颜色值 (R, G, B)
    编辑框1.内容 ＝ 到文本 (图片框2.背景颜色)
    编辑框2.内容 ＝ 取十六进制文本 (图片框2.背景颜色)
    编辑框3.内容 ＝ 到文本 (R) ＋ “,” ＋ 到文本 (G) ＋ “,” ＋ 到文本 (B)
    编辑框4.内容 ＝ “#” ＋ 取十六进制文本 (R) ＋ 取十六进制文本 (G) ＋ 取十六进制文本 (B)
    编辑框5.内容 ＝ “0x” ＋ 取文本 (图片框2.背景颜色, )

.如果真结束

@花絮i