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实现双击左ctrl键调用记事本

Delphi dbgrid刷新数据

Delphi executewait运行一个程序等待其结束

Delphi汉字与多字节编码的转换

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

base64.pas

Delphi idhttp的用法

Delphi pchar和array [0..255] of char的区别

Delphi fastreport 直接列印

Delphi从全路径中分离路径,有'\'

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

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