Lớp phủ hình ảnh trong một hình ảnh

Question

Có thể hợp nhất hai hoặc nhiều hình ảnh bmp khác nhau có cùng kích thước thành một bằng cách chồng lên nhau không? Tương tự như vậy trong Windows XP MS Paint: dán một ảnh khác, với màu phụ là trong suốt.

Answer 1

Bạn có thể sử dụng tài sản của TransparentTBitmap về việc đó. Vì bitmap của bạn có đường viền màu đen, màu trong suốt tự động (pixel đầu tiên của dữ liệu hình ảnh) sẽ không hoạt động và bạn cũng cần đặt thuộc tính TransparentColor thành '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

Trong trường hợp của bitmap thứ hai là màu đen và trắng, bạn có thể sử dụng nó như một chiếc mặt nạ trong một hoạt động raster với BitBlt (chuyển bit-block), như sau:

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);