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 tmemo 可以显示、编辑多行文本

Delphi 三个消息函数的威力

Delphi暴力关机代码

Delphi一个非常完整的取windows os 版本信息的函数

Delphi 快捷键设置控件: thotkey

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi 制作一个内网传播的程序

Delphi 获取网卡信息

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi下对dbf文件进行物理删除

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

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