delphi - 如何禁用 PNG 的透明度

Question

如何完全禁用给定 PNGObject 的透明度？顺便说一句，我使用的是版本 1.564 的 PNGImage 单元。

Answer 1

我认为不可能永久禁用 TPNGObject 图像透明度。或者至少我找不到这样做的属性(property)。它应该由属性控制，因为当您分配或加载图像时，TPNGObject 从分配的图像文件中获取图像参数(包括透明度)。

因此，作为一种解决方法，我更愿意在加载或分配图像后使用 RemoveTransparency 过程:

uses
  PNGImage;

procedure TForm1.Button1Click(Sender: TObject);
var
  PNGObject: TPNGObject;
begin
  PNGObject := TPNGObject.Create;
  try
    PNGObject.LoadFromFile('C:\Image.png');
    PNGObject.RemoveTransparency;
    PNGObject.Draw(Canvas, Rect(0, 0, PNGObject.Width, PNGObject.Height));
  finally
    PNGObject.Free;
  end;
end;