打开Graphics.pas文件,查找函数writeIcon,将以下两句中的16改为65536
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16);
InternalGetDIB(IconInfo.hbmColor, 0, ColorInfo^, ColorBits^, 16);
保存,重新编译Graphics.pas,将原有的Graphics.dcu单元删除即可......
打开Graphics.pas文件,查找函数writeIcon,将以下两句中的16改为65536
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16);
InternalGetDIB(IconInfo.hbmColor, 0, ColorInfo^, ColorBits^, 16);
保存,重新编译Graphics.pas,将原有的Graphics.dcu单元删除即可......