如何在表单上绘制半透明图像？

Question

我想在 Delphi 窗体上绘制半透明图像，但由于某种原因它不起作用。

这是原始PNG（边框是半透明的）：

我将图像加载到 TTntImage 对象中：

Image1.Transparent := True;
Form1.Color := clWhite;
Form1.TransparentColor := True;
Form1.TransparentColorValue := clWhite;

应用程序：

图像不是半透明的。我正在处理包含 Alpha 通道的 BMP 图像。我错过了什么吗？

Answer 1

我找到了一个解决方案，可以让您仅使用 Windows API 将带有 alpha 通道的 BMP 图像绘制到表单上：

const
  AC_SRC_OVER = 0;
  AC_SRC_ALPHA = 1;

type
  BLENDFUNCTION = packed record
    BlendOp,
    BlendFlags,
    SourceConstantAlpha,
    AlphaFormat: byte;
  end;

function WinAlphaBlend(hdcDest: HDC; xoriginDest, yoriginDest, wDest, hDest: integer;
  hdcSrc: HDC; xoriginSrc, yoriginSrc, wSrc, hSrc: integer; ftn: BLENDFUNCTION): LongBool;
  stdcall; external 'Msimg32.dll' name 'AlphaBlend';

procedure TForm4.FormClick(Sender: TObject);
var
  hbm: HBITMAP;
  bm: BITMAP;
  bf: BLENDFUNCTION;
  dc: HDC;
begin
  hbm := LoadImage(0,
    'C:\Users\Andreas Rejbrand\Skrivbord\RatingCtrl.bmp',
    IMAGE_BITMAP,
    0,
    0,
    LR_LOADFROMFILE);
  if hbm = 0 then
    RaiseLastOSError;
  try
    if GetObject(hbm, sizeof(bm), @bm) = 0 then RaiseLastOSError;
    dc := CreateCompatibleDC(0);
    if dc = 0 then RaiseLastOSError;
    try
      if SelectObject(dc, hbm) = 0 then RaiseLastOSError;
      bf.BlendOp := AC_SRC_OVER;
      bf.BlendFlags := 0;
      bf.SourceConstantAlpha := 255;
      bf.AlphaFormat := AC_SRC_ALPHA;
      if not WinAlphaBlend(Canvas.Handle,
        10,
        10,
        bm.bmWidth,
        bm.bmHeight,
        dc,
        0,
        0,
        bm.bmWidth,
        bm.bmHeight,
        bf) then RaiseLastOSError;
    finally
      DeleteDC(dc);
    end;
  finally
    DeleteObject(hbm);
  end;
end;

使用 GIMP，我转换了 PNG 图像

已找到 此处到 32 位 RGBA 位图，找到 这里，结果非常好：

Answer 2

为什么不尝试使用常规 bmp 将 png 绘制到新图像上。在图像 2 上绘制您想要的内容，并在完成后重新绘制/或分配/全部到您的图像 1。必须有效...

Answer 3

TransparentColorValue 方法不可能起作用，因为它只适用于单一颜色代表完全透明的图像。 [此外，您正在玩​​弄表单的透明颜色，而不是图像的透明颜色！] 上面的PNG图像应该有一个alpha通道 >，所以并不是每个像素都显示或透明 - 相反，每个像素的不透明度在 0 到 1 之间（例如 0.37）。也就是说，除了每个像素的 R、G 和 B 分量之外，还有一个“alpha”分量 A。

但是，上面的图像似乎已损坏。 “正确”的 PNG 如下所示：

_{（来源：rejbrand.se）}

您可以尝试混合将上面一张放到不同的背景上，你会发现阴影融合得很好。

那么，如果有一个“正确的”PNG，如何将其绘制到表单上呢？好吧，这对于你的情况来说会非常困难，因为 Delphi 7 不支持 PNG 图像。它仅支持 BMP 图像，并且这些图像通常没有 Alpha 通道。