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 2009 之 tstringbuilder 类[2]: append 与 appendformat

Delphi randomize 随机数

Delphi实现文件下载urldownloadtofile

Delphi只获取文件名（不带扩展名）

Delphi 判断按键状态

Delphi 打开"我的电脑"等特殊文件夹

Delphi中ado异步执行方式

Delphi 如何快速读取文本文件

Delphi中stringgrid删除行

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

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