Delphi 6：字母混合在子图像和主画布之间起作用，但在子图像之间不起作用

Question

我有一个 Delphi 6 应用程序，其中有一个 TBitmap 数组，每个 TBitmap 都包含一个图像（子图像），该图像是通过使用 clWhite 调用 FillRect() 创建的，以用白色淹没 TBitmap 的画布，然后调用 toTextOut()将一些文本打印到位图的画布上。

我有一个计时器，用于更新属于 TImage 组件的主 Canvas，每个时间间隔都会更新数组的内容，以反映对每个子图像 X、Y 坐标进行的更改，因为它们处于运动状态。首先，我将 FillRect() 与 clWhite 结合使用，用白色填充主画布。为了“打印”子图像，我只需迭代数组并调用 Alphablend() 将每个子图像“打印”到主画布上。每个子图像都有一个 Z 坐标，用于控制不透明度级别。 Z 坐标较高的子图像具有较低的 Alphablend() 值，使它们看起来比“近距离”的子图像更透明。

Alpha 混合对于每个单独的子图像都非常有效，并且具有较高坐标的子图像确实比具有较低 Z 坐标的子图像看起来更透明。但是，我遇到了 Z 空间中重叠的子图像的问题。重叠子图像之间的 Alpha 混合似乎不起作用。相反，重叠子图像“后面”的子图像被属于覆盖它的图像的白色背景遮挡。我想要的是两个子图像正确重叠，这样看起来就像两个文本字符串写在彼此之上。相反，我看到前面的文本字符串以及构成 TBitmap 画布的白色背景随处可见，从而擦除了它“后面”的文本字符串。

谁能告诉我为什么 alpha 混合在每个单独的子图像和主画布之间起作用，但在子图像之间不起作用？我只在时间上下文中说子图像之间，而不是作为对象，因为它们在打印时都应该成为主画布的一部分，并且我希望 alpha 混合能够正确地混合它们，但这并没有发生。

几乎就好像子图像之间的“白色”没有被视为与子图像之间的“白色”和属于主画布的“白色”相同。

后续：为了响应 Andreas 评论，我将所有子图像 TBitmap 的 PixelFormat 设置为 pf32bit。现在，阿尔法混合正在子图像“之间”进行。不幸的是，子图像的白色区域没有被视为透明颜色。相反，顶部子图像的白色背景与属于底层子图像的文本进行 Alpha 混合，在顶部子图像周围创建浅灰色框架，就像被涂抹一样。为了获得我想要的效果，我需要完全忽略子图像的白色背景。

Answer 1

如果您想使用 Alphablending 显示一些图像，请尝试使用 Graphics32 库。
在这里，您将找到一个组件“ImgView32”。有了这个，您可以轻松地显示具有任何位置和 alpbablend 值的任何类型的位图。您必须使用 TBitmapLayer 并对其进行绘图。

ImgView1:TImgView32;
a:array of TBitmapLayer;

procedure TForm1.FormCreate(Sender: TObject);
  var i:integer;

  begin
    ImgView1.Layers.Clear;
    SetLength (a,10);
    for i:=0 to High (a) do
      begin
        a[i]:=TBitmapLayer.Create(ImgView1.Layers);
        a[i].Location:=FloatRect(0,0,ImgView1.Width,ImgView1.Height);
        a[i].Scaled:=false;
        a[i].Bitmap.DrawMode:=dmOpaque;
        a[i].Bitmap.MasterAlpha:=255;
      end;
  end;

procedure TForm1.FormDestroy(Sender: TObject);
  begin
    ImgView1.Layers.Clear;
  end;

procedure Form1.DrawTextToLayer(Layer:TBitmapLayer;Text:string;X,Y:integer);
var I:TImage32;

begin
  I:=TImage32.Create(Form1);
  I.Width:=ImgView1.Width;
  I.Height:=ImgView1.Height;
  I.SetupBitmap;
  I.Bitmap.DrawMode:=dmBlend;
  I.Bitmap.Font.Size:=20;
  I.Bitmap.Font.Name:='Arial';
  I.Bitmap.Font.Style:=[fsBold];
  I.Bitmap.RenderText(x,Y,Text,2,clBlack32);
  Layer.Bitmap.Assign(I.Bitmap);
  I.Free        
end;

procedure TForm1.Button1Click(Sender: TObject);
   begin
     DrawTextToLayer(a[0],'Testing 1',10,10);
     DrawTextToLayer(a[1],'Testing 2',20,20);
     a[0].Bitmap.MasterAlpha:=255;
     a[1].Bitmap.MasterAlpha:=100;
   end;