忧郁之子
使用易语言实现屏幕取色功能
.版本 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.背景颜色, )
.如果真结束
源码下载:本地下载