休息中2022.03.16 回答

rgb轉換為灰度值

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；