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 comparestr 函数

Delphi 实现 托动pagecontrol上的标签页

Delphi过滤字符串头部和尾部得到中间部分

Delphi通过url获取网页源码

Delphi ip编辑控件

Delphi点击网页弹出的alert对话框的确定按钮

Delphi获得webbrowser中的html文本

检测系统信息的单元 computerinfo.pas

Delphi多线程图片转换类实现

Delphi 对非活动窗口进行屏幕截图

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

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