图像转灰算法解决思路

图像转灰算法
TColor   __fastcall   ColourToGray(TColor   PixelsColor,   TColor   TransparentColor)
{
        TColor   ResutColor   =   clBtnFace;
        if   (PixelsColor   !=   TransparentColor)
        {
                WORD   wAvg   =   (int)PixelsColor   %   0xFF
                        +   ((int)PixelsColor   /   0xFF)   %   0xFF
                        +   ((int)PixelsColor   /   0xFFFF)   %   0xFF;
                BYTE   bAvg   =   136   +   wAvg   /   12;
                ResutColor     =     (TColor)RGB(bAvg,   bAvg,   bAvg);
        }
        return   ResutColor;
}

经我使用，适用于TBitBtn   /   TSpeedButton     控件中只有一个彩色图像，变成有两个（后续是灰色的）算法

[解决办法]
这个算法如果24位图,网上不是有经典公式吗,转8位的,我也贴改自delphi图像处理书里面的24to8代码,应该可以找到.
不过这些自己感觉都不好,acdsee的效果就很好,不知道怎么做的
[解决办法]
MARK
[解决办法]
看来是帮助别人解决问题，谢谢