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 mediaplayer android 下播放 mp4 的问题

Delphi xe5 for android 调用java类库必看的文件

Delphi 10.4 自定义托管记录

Delphi firedac 连接access mdb数据库的方法

Delphi 批量删除同类文件的函数

Delphi 在tedit中显示水印提示

Delphi 从摄像头获取照片并转换为特定的格式

Delphi 加载大文件显示进度条

Delphi 查找指定目录，指定扩展名的所有文件名

Delphi xe10 获取屏幕截图

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

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