从BMP到ICO问题...................... ( 积分: 50 )

var
Bmp: TBitmap;
Icon: TIcon;
ImageList: TImageList;
begin
Bmp := TBitmap.Create;
Icon := TIcon.Create;
try
Bmp.Assign(Image1.Picture);
ImageList := TImageList.CreateSize(Bmp.Width, Bmp.Height);
try
ImageList.AddMasked(Bmp, Bmp.TransparentColor);
ImageList.GetIcon(0, Icon);
Icon.SaveToFile('c:/123.ico');
finally
ImageList.Free;
end;
finally
Bmp.Free;
Icon.Free;
end;


掉色严重

不要用这种方法，去draw，试试这个效果：
if (Extension = ico) then
begin
aIcon:= TIcon.Create;
try
aIcon.LoadFromFile(Filename);
RESULT.Height := aIcon.Height;
RESULT.Width := aIcon.Width;
RESULT.PixelFormat := pf24bit; // avoid palette problems
RESULT.Canvas.Draw(0, 0, aIcon)
finally
aIcon.Free
end
end;

掉色严重是因为Delphi的TIcon.SaveToFile方法只支持16色.

http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站

接受答案了.