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 android应用程序中的java ui线程中执行处理

Delphi屏蔽alt+tab键代码

Delphi 自带的字符串分割函数

Delphi在手机桌面图标上显示数字

Delphi文件分割合并

Delphi中使用tlist类的简单分析

Delphi cb_addstring 与lb_addstring的区别？

indy tidtcpclient 的一个用法上要留意的问题，以及 http

crc32.pas

Delphi 图像旋转90° 反旋转90°

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

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