前面说了已经获取到颜色值了,现在需要比较两个颜色的差值。

两个颜色的根据RGB的差来取,有两种情况:

1.(R的平方+G的平方+B的平方)开根号,再两个颜色值相减获取差值。

2.(((R1-R2)的平方) + ((R1-R2)的平方) + ((R1-R2)的平方))开根号,即为差值

第一种情况差值比第二种情况差值小。

function TForm2.GetDoubleRGB(S1: string; S2: string): Integer; // 情况2
var
ss1, ss2: TStrings;
R1, G1, B1, R2, G2, B2, sum: Integer;
begin
ss1 := TstringList.create;
ss2 := TstringList.create;
ss1.CommaText := s1;
ss2.CommaText := s2;
R1 := ss1[0].ToInteger;
G1 := ss1[1].ToInteger;
B1 := ss1[2].ToInteger; R2 := ss2[0].ToInteger;
G2 := ss2[1].ToInteger;
B2 := ss2[2].ToInteger;
sum := sqr(R1-R2) + sqr(G1-G2) + sqr(B1-B2);
Result := Round(sqrt(sum));
end; function TForm2.GetSumRGB(S: string): Integer; // 情况1
var
ss: TStrings;
R, G, B, sum: Integer;
begin
ss := TstringList.create;
ss.CommaText := s;
R := ss[0].ToInteger;
G := ss[1].ToInteger;
B := ss[2].ToInteger;
sum := sqr(R) + sqr(G) + sqr(B);
Result := Round(sqrt(sum));
end;

在Image的OnMoseMove事件中先获取一点对比颜色值放在Edit1中,再以鼠标移动的坐标作为对比放在Edit2中。

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
var
vBitMapData: TBitmapData;
sum, cl1, cl2: Integer;
color: TAlphaColor;
begin
if (Edit1.Text <> '') and (Edit2.Text <> '') then
begin
if Image1.Bitmap.Map(TMapAccess.Write, vBitMapData) then
begin
color := vBitMapData.GetPixel(Round(X), Round(Y));
Edit2.Text := HexColorToRGB('$' +IntToHex(color, 1));
CLB2.Color := color;//颜色组件
cl1 := GetSumRGB(Edit1.Text);
cl2 := GetSumRGB(Edit2.Text);
sum := cl1 - cl2;
if sum < 0 then sum := sum * -1;
Edit3.Text := sum.ToString;
end;
end;
Image1.Bitmap.Unmap(vBitMapData);
end;

delphi 获取两个颜色差值的更多相关文章

  1. jQuery获取Radio选择的Value值||两个select之间option的互相添加操作(jquery实现)

    jQuery获取Radio选择的Value值: 1. $("input[name='radio_name'][checked]").val();  //选择被选中Radio的Val ...

  2. javascript 常见数组操作( 1、数组整体元素修改 2、 数组筛选 3、jquery 元素转数组 4、获取两个数组中相同部分或者不同部分 5、数组去重并倒序排序 6、数组排序 7、数组截取slice 8、数组插入、删除splice(需明确位置) 9、数组遍历 10、jQuery根据元素值删除数组元素的方)

    主要内容: 1.数组整体元素修改 2. 数组筛选 3.jquery 元素转数组 4.获取两个数组中相同部分或者不同部分 5.数组去重并倒序排序 6.数组排序 7.数组截取slice 8.数组插入.删除 ...

  3. Delphi使用两种不同方法获取系统端口信息--(装载)

    Delphi使用两种方法获取windows系统的端口,还可测试发送消息,点击获取端口信息后,可依次得到如下信息:DCB结构大小.波特率大小.XON的临界值.XOFF的临界值.字符位数.奇偶检验位.停止 ...

  4. 获取表单选中的值(利用php和js两种方式)

    php代码中获取表单中单选按钮的值: (单选按钮只能让我们选择一个,这里有一个“checked”属性,这是用来默认选取的,我们每次刷新我们的页面时就默认为这个值.) 例: <form name= ...

  5. 如何获取byte的各个bit值以及常见位操作

    项目中通过信号采集板的数据获取车上仪表盘指示灯的信息,将接收到的数据转成byte后,还要将每一个Byte的各个Bit值分离出来,这样才知道每个bit的值代表的具体信息.这里记录下如何获取byte的各个 ...

  6. Js获取后台集合List的值和下标的方法

    Js获取后台集合List的值和下标的方法 转载自:http://blog.csdn.net/XiaoKanZheShiJie/article/details/47280449 首先用的是struts2 ...

  7. 如何在asp.net中获取GridView隐藏列的值?

    在阅读本文之前,我获取gridview某行某列的值一般做法是这样的:row.Cells[3].Text.ToString().有点傻瓜呵呵 在Asp.net 2.0中增加了一个新的数据绑定控件:Gri ...

  8. js获取浏览器高度和宽度值,尽量的考虑了多浏览器。

    js获取浏览器高度和宽度值,尽量的考虑了多浏览器. IE中: document.body.clientWidth ==> BODY对象宽度 document.body.clientHeight ...

  9. Java获取指定时间的毫秒值的方法

    有以下两种方法获取指定时间的毫秒值: 1.Calendar类 先由getInstance获取Calendar对象,然后用clear方法将时间重置为(1970.1.1 00:00:00),接下来用set ...

随机推荐

  1. struts2 中 Actionsupport 的作用

    struts2 中 Actionsupport 的作用 Action 跟 Actionsupport 的区别     当我们在写action的时候,可以实现Action接口,也可以继承Actionsu ...

  2. android 根据包名打开app程序

    如: 如打开微信: 查看包名的工具app:http://pan.baidu.com/s/1kVK2ER9 效果如下: 查看包名.版本和签名的工具app:http://pan.baidu.com/s/1 ...

  3. PHP生成静态页

    代码如下: <?    function makedir($mudir) //创建目录   {   $file = "./$mudir";   @mkdir($file,07 ...

  4. node.js入门及express.js框架

    node.js介绍 javascript原本只是用来处理前端,Node使得javascript编写服务端程序成为可能.于是前端开发者也可以借此轻松进入后端开发领域.Node是基于Google的V8引擎 ...

  5. 面向服务体系架构(SOA)和数据仓库(DW)的思考基于 IBM 产品体系搭建基于 SOA 和 DW 的企业基础架构平台

    面向服务体系架构(SOA)和数据仓库(DW)的思考 基于 IBM 产品体系搭建基于 SOA 和 DW 的企业基础架构平台 当前业界对面向服务体系架构(SOA)和数据仓库(Data Warehouse, ...

  6. ZERO 笔试

    1.大多考到了 计算机网络 tcpip  和  操作系统 多线程的知识  直接 懵逼 2.  考到了 递归的全排列 #include<iostream> using namespace s ...

  7. iOS的设备及分辨率、图片命名

    iOS的设备及分辨率(iPhone竖屏/iPad横屏) 设备 分辨率 横宽比 iPhone 3GS.iPod Touch第三代 320 * 480 2 : 3 iPhone 4.iPod Touch第 ...

  8. 新手入门Java需要注意的问题

    学习编程,虽然有老师教,但是更重要的事自学.这是很重要的. 现在互联网上面资源太多了,这也就有一个问题:怎么才能在一定时间内学习该知识,掌握该技能呢? 理论联系实践! 学以致用!! 网上的资源太多了, ...

  9. ASP.NET 创建网站地图

    很多个人站长会使用工具来生成自己网站的站点地图,这样做的缺点在于网站的 sitemap 不能及时的得到更新.当我们发表了一篇新文章时,应该对网站的地图进行更新,并通知搜索引擎网站地图已经发生了改变! ...

  10. libev 宏展开

    想看源码,宏太多,看着累,宏展开,再看,功力时间不够,先放下 放上宏展开后的代码. libev4.20 展开方示为 ./configure 修改makefile文件,字符串 替换CC为 CPP 注意要 ...