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 unigui从数据表里下载流文件

Delphi 利用for循环自我复制到全盘用timer监控

Delphi ttabcontrol控件使用

Delphi 实现简易语音发音（基于tts方式）

Delphi ip编辑控件

tstringgrid 添加鼠标拖动功能

Delphi使用ixmlhttprequest 简单获取网页源代码

Delphi 如何在tmemo，tedit或trichedit中获得插入符的位置

Delphi研究之驱动开发篇（七）--利用共享内存与用户模式

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

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