取色-初级程序-极语言教程

//窗体代码:

整数 窗体,取色,色框,按钮3,标签4;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-243)>>1,上=(桌面.高-196)>>1;
窗体=创建窗口($100,程序.名称,"取色工具",$10C80000,左,上,243,196,0,0,0,0);
取色=创建窗口($200,"Edit","",$50010000,65,15,115,20,窗体,1,4,0);
色框=创建窗口($200,"Edit","",$50010000,45,50,90,20,窗体,2,4,0);
按钮3=创建窗口($0,"Button","选色",$50000000,150,45,50,30,窗体,3,3,0);
标签4=创建窗口($0,"Static","拖曳鼠标抓取屏幕颜色'\2'点击按钮弹出颜色选框",$50000000,40,80,165,55,窗体,4,2,0);
窗体启动;读取消息
结束

 

//程序代码:

整数 箭头,手形,按下,屏幕;颜色框类 选色(长度=36)文本 色组[64]

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
    判断(消息)
    为 窗口关闭 停止
    为 单击左键{如果(参数=3)选取颜色}
    为 鼠标移动{如果(按下)抓取颜色}
    为 按下左键{更换游标(手形)捕获鼠标(窗口)按下=真}
    为 释放左键{设置焦点(窗口)更换游标(箭头)释放鼠标;按下=假}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

小程序 窗体启动
    箭头=载入光标(0,32512)
    手形=载入光标(0,32649)
    屏幕=取设备(0)
    选色.窗口=窗体
    选色.数组=色组
    桌面.左=窗体
    读取消息
结束

小程序 抓取颜色
    整数 上,左;读取光标(@左)
    显示颜色(获取颜色(屏幕,左,上))
结束

小程序 选取颜色
    如果(颜色选框(选色))显示颜色(选色.颜色)
结束

小程序 显示颜色(整数 颜色)
    整数 值,数;文本 内容[8]
    改控件数(窗体,1,颜色,0)
    格式化(内容,"%X",颜色)
    改窗口字(色框,内容)
结束;