TGBBitmap用在GDI+中,而TBitmap用在GDI中,有的时候,我们需要将它们进行转换,例如我们要将一个JPEG的图片放到TBitmap中,这样它就可以很方便的被Delphi中的多个控件所使用(如ImageList、Image等等控件)。我们通过TGBBitmap的GetHBITMAP方法可以实现这种转换,如下:
uses
GDIPAPI,GDIPOBJ;
procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:TGPBitmap;
hb:HBITMAP;
begin
bitmap:=TGPBitmap.Create('d:\mm.jpg');
//bitmap:=TGPBitmap.Create('d:\test.png');
bitmap.GetHBITMAP(aclblack,hb);
Image1.Picture.Bitmap.Handle:=hb;
bitmap.Free;
end;
代码中的GetHBITMAP方法第一个参数为背景颜色,对于非透明图像,这个参数设置为什么颜色都没有所谓.但对于透明图像(如png),我们就能看到这个背景色了(如图2,图片中间透明的,于是我们就看到了白色的背景色),第二个参数是位图句柄变量.
TBitmap 转 TGBBitmap
uses
GDIPAPI,GDIPOBJ;
procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:TBitmap;
bp:TGPBitmap;
g:TGPGraphics;
begin
g:=TGPGraphics.Create(Canvas.Handle);
bitmap:=TBitmap.Create;
bitmap.LoadFromFile('d:\mm.bmp'); //必须是BMP图片
bp:=TGPBitmap.Create(bitmap.Handle,bitmap.Palette);
g.DrawImage(bp,0,0);
bp.Free;
bitmap.Free;
g.Free;
end;