在一个图像中叠加图片

Question

是否可以通过将相同大小的两个或多个不同bmp图片合并为一个图片？与在Windows XP MS Paint中完成的方法相同：将另一张图片粘贴到另一张图片中，并且辅助颜色是透明的。

Answer 1

您可以使用TBitmapTransparent属性这种效果。由于您的位图具有黑色边框，因此自动透明颜色（图像数据的第一个像素）不起作用，您还需要将TransparentColor属性设置为'clWhite'。

var 
    bmp1, bmp2: TBitmap; 
begin 
    bmp1 := TBitmap.Create; 
    bmp1.LoadFromFile('...\test1.bmp'); 

    bmp2 := TBitmap.Create; 
    bmp2.LoadFromFile('...\test2.bmp'); 

// bmp2.PixelFormat := pf24bit; // with 32 bit images I need this, don't know why 
    bmp2.Transparent := True; 
    bmp2.TransparentColor := clWhite; 
    bmp1.Canvas.Draw(0, 0, bmp2); // draw bmp2 over bmp1 

    // this is how the merged image looks like 
    Canvas.Draw(0, 0, bmp1); 
    .. 

Answer 2

在第二位图的情况下，是黑色和白色，则可以在一个光栅操作与BitBlt（位块传送）使用它作为掩模，如下所示：

Windows.BitBlt(Bmp3.Canvas.Handle, 0, 0, Bmp3.Width, Bmp3.Height, 
    Bmp1.Canvas.Handle, 0, 0, SRCCOPY); 
    Windows.BitBlt(Bmp3.Canvas.Handle, 0, 0, Bmp3.Width, Bmp3.Height, 
    Bmp2.Canvas.Handle, 0, 0, SRCAND);