实际上,delphi是支持任意颜色的图标的.你自己可以试验一下:写个程序,读入Image1.Picture.Icon.LoadFromFile();读入一个大于16色的图标,显示颜色是正常的.然后保存Image1.Picture.Icon.SaveToFile();到文件,用其它软件打开该图标,颜色也是正常的.所以说,delphi是支持高彩色的.
但是,如果你把它赋给一个TIcon再保存,就只有16位色了.原因很简单.Delphi的Graphics单元有BUG.实际上,它会调用Graphics单元的
procedure WriteIcon(Stream: TStream; Icon: HICON; WriteLength: Boolean);过程.问题就在这里:
...
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16);
...
InternalGetDIB(IconInfo.hbmColor, 0, ColorInfo^, ColorBits^, 16);
把上面的两个16改成256,然后删除Graphics.dcu,重新编译.即可支持256色了.