TBitmap32.Assign() 异常行为

Question

Graphics32 TBitmap32.Assign() 有什么问题？为什么没有为 TBitmap32 保留原始图像的透明度，而对于 TBitmap 一切都很好？这是一个示例代码：

procedure TForm1.Button8Click(Sender: TObject);
var
  bmp32: TBitmap32;
  bmp: TBitmap;
  wic: TWICImage;
begin
  bmp32 := TBitmap32.Create(TMemoryBackend);
  bmp := TBitmap.Create;
  wic := TWICImage.Create;
  try
    wic.LoadFromFile('overlay.png'); // transparent
    bmp32.Assign(wic);
    bmp32.SaveToFile('BMP32.bmp'); // !!! nontransparent .bmp
    img1.Bitmap.Assign(bmp32);
    bmp.Assign(wic);
    bmp.SaveToFile('BMP.bmp'); // transparent .bmp
    img2.Bitmap.Assign(bmp);
  finally
    wic.Free;
    bmp32.Free;
    bmp.Free;
  end;
end;

这是结果的屏幕截图：

这是 Graphics32 库（github 的最新版本）错误吗？还是 TWICImage 错误？或者 Delphi 10.2.3 错误？还是我做错了什么？如何解决这个问题？

原始overlay.png文件：

Answer 1

我想我找到了解决办法。我在 GR32 模块中添加了几行到 TCustomBitmap32.Assign 过程的嵌套过程 AssignFromGraphic：

  procedure AssignFromGraphic(TargetBitmap: TCustomBitmap32; SrcGraphic: TGraphic);
  begin
    if SrcGraphic is TBitmap then
      AssignFromBitmap(TargetBitmap, TBitmap(SrcGraphic))
    else if SrcGraphic is TIcon then
      AssignFromIcon(TargetBitmap, TIcon(SrcGraphic))
{$IFNDEF PLATFORM_INDEPENDENT}
    else if SrcGraphic is TMetaFile then
      AssignFromGraphicMasked(TargetBitmap, SrcGraphic)
{$ENDIF}
//--- start fix
    else if (SrcGraphic is TWICImage) and (TWICImage(SrcGraphic).ImageFormat = wifPng) then
      AssignFromGraphicPlain(TargetBitmap, SrcGraphic, [=10=]FFFFFF, False)
//--- end fix
    else
      AssignFromGraphicPlain(TargetBitmap, SrcGraphic, clWhite32, True);
  end;

我添加了一些额外的检查并更改了 procedure AssignFromGraphicPlain(TargetBitmap: TCustomBitmap32; Src Graphic: TGraphic; FillColor: TColor32; ResetAlphaAfterDrawing: Boolean);
的两个参数使用 FillColor = [=15=]FFFFFF（alpha 通道 = 0 的 clWhite32）和 ResetAlphaAfterDrawing = False，现在保留了原始 PNG 图像的透明度。这看起来像是一个卑鄙的把戏，但它确实有效！
当然，我想听听更权威的意见，所以暂时不采纳我的回答。在不改变Graphics32库源代码的情况下，可能还有另一种方法。

TBitmap32.Assign() 异常行为

TBitmap32.Assign() abnormal behavior

delphi

delphi-10.2-tokyo

alpha-transparency

graphics32