Delphi 如何将颜色值转换为灰度颜色值？

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 覆盖模式处理透明

Delphi showmodal与show的区别

Delphi richedit中插入带背景色文本的一种思路

Delphi sysutils.wraptext - 换行

Delphi执行js

Delphi 指针入门知识

Delphi 从 .lnk 文件获取真正路径的程序

Delphi的tservice的windows�入桌面切�q

Delphi 生成xml 方法 与 Delphi txt文件操作

Delphi查找进程

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何将颜色值转换为灰度颜色值？