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 xe5 android openurl

Delphi xe5 json

Delphi添加任务栏右键菜单

Delphixe firemonkey 如何画图

Delphi的流操作的语法

Delphi 用firedac获取 sql server错误文本信息

Delphi操作access

Delphi 泛型数组 strsplit 字符串分割

Delphi firedac 获取 insert 记录的自增 id

Delphi tadocommand 中文使用说明

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

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