TBitmap在Delphi 2009中繪製透明圖像

Question

在TBitmap對象上繪製半透明PNG圖像時出現問題。

如果TBitmap的HandleType設置爲bmDDB，則畫布被繪製爲透明。 但問題是它不適用於各種機器（例如：蘋果電腦上的Windows）。

當TBitmap的HandleType屬性設置爲bmDIB時，畫布背景被繪製爲白色。

bmp.HandleType := bmDIB; 

我試着將刷子樣式設置爲bsClear。但它以黑色繪製透明像素。

如何繪製保留其透明度和平滑曲面邊緣的圖像。

謝謝 Pavan。

Answer 1

這當然是可以畫一個bmDIB位圖與透明背景的畫布：

procedure TForm1.FormPaint(Sender: TObject); 
var 
    Bmp: TBitmap; 
begin 
    Bmp := TBitmap.Create; 
    try 
    Bmp.PixelFormat := pf32bit; 
    Bmp.HandleType := bmDIB; 
    Bmp.Width := 700; 
    Bmp.Height := 400; 
    Bmp.Transparent := TRUE; 
    Bmp.TransparentColor := clMaroon; 

    with Bmp.Canvas do begin 
     Brush.Color := clMaroon; 
     FillRect(Rect(0, 0, Bmp.Width, Bmp.Height)); 

     Brush.Color := clBlue; 
     FillRect(Rect(42, 42, 200, 300)); 
    end; 

    Canvas.Draw(12, 12, Bmp); 
    finally 
    Bmp.Free; 
    end; 
end; 

注意，整個位圖與顏色設置爲TransparentColor第一填補。

但是對於更多的控制和速度，您應該研究一個不依賴於GDI（涉及顯卡和驅動程序功能）的解決方案，如Graphics32。