隨着代碼位圖的透明度
procedure TForm2.Button1Click(Sender: TObject);
var
oMeta: TMetaFile;
oBmp: TBitmap;
begin
Image1.Transparent := True;
Image1.Picture.LoadFromFile('D:\data\WMF.wmf');
oBmp := TBitmap.Create;
try
oMeta := TMetaFile(Image1.Picture.Graphic);
oBmp.SetSize(oMeta.Width, oMeta.Height);
oBmp.Canvas.Draw(0, 0, oMeta);
oBmp.SaveToFile('D:\data\WMF.bmp');
finally
oBmp.Free;
end;
end;
我顯示WMF圖像和創建bmp文件。創建bmp圖像我用代碼顯示
procedure TForm2.Button2Click(Sender: TObject);
begin
Image1.Transparent := True;
Image1.Picture.LoadFromFile('D:\data\WMF.bmp');
end;
但是圖像顯示不透明。 Whay?我怎樣才能顯示這個透明度的BMP圖像?
TIA和問候 茨爾
謝謝,我發現解決方案:BMP必須用24位PixelFormat(oBmp.PixelFormat:= pf24bit)創建,然後bmp圖像顯示爲透明! – Branko 2010-09-26 18:03:12