如何忽略底图透明度将一张PNG绘制到另一张PNG上？

问题描述 #

现有代码：

Image1.Picture.LoadFromFile('pink_bars.png');
black := TPngImage.Create();
black.LoadFromFile('black.png');
(Image1.Picture.Graphic as TPngImage).Canvas.Draw(0, 0, black);
(Image1.Picture.Graphic as TPngImage).Modified := True;

遇到的问题：pink_bars.png的透明区域无法显示black.png的内容，需要保留black.png自身的透明度信息，且不想通过逐像素修改实现。

原因分析 #

直接调用TPngImage的Canvas.Draw方法时，底层GDI默认不会正确处理PNG的Alpha通道混合逻辑。当底图存在透明像素时，绘制操作会被透明区域的像素属性遮挡，导致上层PNG无法正常叠加显示。

解决方案 #

方法1：使用TPngImage自带的Draw方法 #

TPngImage类内置的Draw方法已经封装了正确的Alpha通道混合逻辑，能直接实现带透明效果的PNG叠加：

Image1.Picture.LoadFromFile('pink_bars.png');
black := TPngImage.Create();
try
  black.LoadFromFile('black.png');
  // 调用TPngImage的Draw方法完成叠加
  black.Draw((Image1.Picture.Graphic as TPngImage).Canvas, Rect(0, 0, black.Width, black.Height));
  (Image1.Picture.Graphic as TPngImage).Modified := True;
finally
  black.Free;
end;

方法2：手动启用AlphaBlend混合 #

若需要更灵活的透明度控制，可通过Windows API的AlphaBlend函数实现，需引用Windows单元：

uses Windows;

// ...

Image1.Picture.LoadFromFile('pink_bars.png');
black := TPngImage.Create();
try
  black.LoadFromFile('black.png');
  var dstCanvas := (Image1.Picture.Graphic as TPngImage).Canvas;
  var blendParams := TBlendFunction.Create;
  try
    blendParams.BlendOp := AC_SRC_OVER;
    blendParams.BlendFlags := 0;
    blendParams.SourceConstantAlpha := 255; // 0-255，值越低越透明
    blendParams.AlphaFormat := AC_SRC_ALPHA; // 启用源图的Alpha通道
    AlphaBlend(dstCanvas.Handle, 0, 0, black.Width, black.Height,
               black.Canvas.Handle, 0, 0, black.Width, black.Height,
               blendParams);
  finally
    blendParams.Free;
  end;
  (Image1.Picture.Graphic as TPngImage).Modified := True;
finally
  black.Free;
end;

说明 #

• 方法1简洁高效，适合普通叠加场景，无需额外配置即可实现正确的透明混合。
• 方法2支持自定义透明度和混合规则，适合需要精细控制叠加效果的场景。

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