随着代码位图的透明度
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