Delphi 7位图。SaveToFile和透明

Question

我想将一个ico从db保存到文件中，但我遇到了透明度问题。当我将其保存到c:\1.ico时，结果文件没有透明度。

procedure DBIconsToFIle;
var
  Streams: TStream;
  fIcon : TBitmap;
begin
  //load stream from db
  FIcon.LoadFromStream(Streams);
  FIcon := TBitmap.Create;
  FIcon.TransparentColor := clWhite;
  FIcon.PixelFormat := pf32bit;
  FIcon.Height := 16;
  FIcon.Width := 16;
  FIcon.SaveToFile(tmpFile);
  //destroys
end;

如何用透明的方式保存它？

Answer 1

图标的文件扩展名是.ico，而不是.icon。另外，如果你想保存图标，为什么不使用TIcon而不是TBitmap呢？为什么你要先用LoadFromStream，再用TBitmap.Create？！

稍微普通一点的代码

var
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  try
    Icon.LoadFromStream(SomeStream);
    Icon.SaveToFile(SomeFileName);
  finally
    Icon.Free;
  end;

为你工作？