请问如何将RGB色值转换成LAB色值呢? 在顺便问一下,LAB是什么呢?RGB是三原色吗?另外又有什么YIQ、HSV,那又是什么呢?谢谢先,分不够的话我可以再继续加的哦^_* 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 rgb转换为灰度值function RgbToGray(Source: TColor) : TColor; var Target: Byte; begin Target := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source)) + (0.11 * GetBValue(Source))); Result := RGB(Target, Target, Target); end; 紧急求救:MSCOMM组件在非编译环境无法运行 招有实际工作经验的技术工程师(程序员)2名 关于对listbox上的数据处理方式,请指点,猴急! 我想请教一下关于 TComponent 的问题 急急急!100分求教TADOStoredProc问题,在线等待! 回答问题,赠送源代码! 急问:delphi与SQL SERVER的连接? 在delphi中,商业组件是如何收费的? 请问如何在toolbar上动态创建一个toolbutton呢? 为什么总要以....为核心的第n代。。。别扭+麻烦 如何把纯文本文件导入到SQL SERVER数据库的表中 如何使用SQL动态语句呀:(
function RgbToGray(Source: TColor) : TColor;
var Target: Byte;
begin
Target := Round((0.30 * GetRValue(Source)) +
(0.59 * GetGValue(Source)) +
(0.11 * GetBValue(Source)));
Result := RGB(Target, Target, Target);
end;