频道分类

Delphi 如何将颜色值转换为灰度颜色值?

作者:admin 来源: 日期:2020/11/27 20:15:40 人气: 标签:

 
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;