如何在Delphi中带Alpha通道缩放TBitmap？跨平台兼容问题

我在Delphi中通过TPNGImage加载PNG图片，提取得到带Alpha通道的TBitmap，这一步运行正常。现在需要缩放该TBitmap，发现ScaleDraw不仅质量低，还不支持透明处理，于是改用Image32库处理。

使用的代码如下：

var inBitmap: TImage32 := TImage32.Create;
var outBitmap: TBitmap := TBitmap.Create;

try
  inBitmap.CopyFromBitmap(inPict.Bitmap);

  inBitmap.Resampler := rBicubicResampler;
  inBitmap.Resize(scale.Width, scale.Height); // 调整到新尺寸
  inBitmap.Crop(newRect); // 裁剪出需要的部分

  outBitmap.PixelFormat := pf32bit; // 我觉得这一步可能没必要
  inBitmap.CopyToBitmap(outBitmap);
finally
  FreeAndNil(inBitmap);
  FreeAndNil(outBitmap);
end;

这段代码在Lazarus FPC上运行正常，但在Delphi中缩放后的图像出现奇怪伪影：

缩放前（绘制在纯色背景上的效果）：

缩放后（绘制在同一纯色背景上的效果）：

绘制代码如下：

Canvas.Draw(x, y, outBitmap);

核心问题：如何正确缩放带透明通道的TBitmap？要求兼容Lazarus/FPC及Linux跨平台。

• 确保TBitmap的Alpha通道正确初始化
  在创建outBitmap后，除了设置PixelFormat := pf32bit，还需要显式初始化Alpha通道，避免内存中的垃圾数据影响：

  outBitmap.PixelFormat := pf32bit;
  outBitmap.AlphaFormat := afPremultiplied; // 关键：设置为预乘Alpha格式
  outBitmap.SetSize(scale.Width, scale.Height); // 先设置尺寸再复制
  

• 调整Image32到TBitmap的复制逻辑
  Image32的CopyToBitmap在Delphi下可能对Alpha通道的处理存在差异，可改用手动复制像素的方式，确保Alpha通道数据正确传递：

  // 替换原有的inBitmap.CopyToBitmap(outBitmap);
  var srcRow: PColor32Array;
  var dstRow: PRGBQuad;
  for y := 0 to inBitmap.Height - 1 do
  begin
    srcRow := inBitmap.ScanLine[y];
    dstRow := outBitmap.ScanLine[y];
    for x := 0 to inBitmap.Width - 1 do
    begin
      dstRow[x].rgbBlue := srcRow[x].b;
      dstRow[x].rgbGreen := srcRow[x].g;
      dstRow[x].rgbRed := srcRow[x].r;
      dstRow[x].rgbReserved := srcRow[x].a;
    end;
  end;
  

• 绘制时使用支持Alpha的方法
  直接用Canvas.Draw在Delphi下可能没有正确处理预乘Alpha，可改用AlphaBlend函数：

  var blendFn: TBlendFunction;
  ZeroMemory(@blendFn, SizeOf(blendFn));
  blendFn.BlendOp := AC_SRC_OVER;
  blendFn.SourceConstantAlpha := 255;
  blendFn.AlphaFormat := AC_SRC_ALPHA;
  
  AlphaBlend(Canvas.Handle, x, y, outBitmap.Width, outBitmap.Height,
    outBitmap.Canvas.Handle, 0, 0, outBitmap.Width, outBitmap.Height, blendFn);
  

• 检查Image32的Resize设置
  确保Resize时考虑Alpha通道的插值，可尝试将Resampler设置为rLanczosResampler，同时确认Crop操作没有破坏Alpha通道：

  inBitmap.Resampler := rLanczosResampler; // Lanczos插值通常比Bicubic更适合带透明的图像
  inBitmap.Resize(scale.Width, scale.Height);
  // Crop前确认newRect的范围在Resize后的图像内
  if (newRect.Left >=0) and (newRect.Top >=0) and (newRect.Right <= inBitmap.Width) and (newRect.Bottom <= inBitmap.Height) then
    inBitmap.Crop(newRect);
  

内容的提问来源于stack exchange，提问作者Adrian Maire