为什么一个PNG图像的透明度，当我使用TPicture丢失？(Why the transparenc

我使用这个代码到一个透明的PNG转换为32 BPP BMP。

var
   Picture : TPicture;
   BMP : TBitmap;    
begin
  Picture := TPicture.Create;
  try
    Picture.LoadFromFile('Foo.png');
     BMP := TBitmap.Create;
     try
       BMP.PixelFormat:=pf32bit;
       BMP.Width := Picture.Width;
       BMP.Height := Picture.Height;
       BMP.Canvas.Draw(0, 0, Picture.Graphic);
       BMP.SaveToFile('Foo.bmp');
       finally
         BMP.Free;
       end;
     finally
       Picture.Free;
      end;
end;

将图像转换为bmp，但失去透明性，我缺少的是什么？

Answer 1:

尝试使用Assign方法。 这将保持透明度。

像这样。

 BMP := TBitmap.Create;
 try
   BMP.Assign(Picture.Graphic);
   BMP.SaveToFile('Foo.bmp');
 finally
     BMP.Free;
 end;

文章来源: Why the transparency of a PNG image is lost when I use TPicture?