DELPHI 將TBitmap與TGPImage轉換

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormPaint(Sender: TObject);
const
  ImgPath = 'c:\temp\test.bmp';
var
  img: TGPImage;
  bit: TBitmap;
  g: TGPGraphics;
begin
  bit := TBitmap.Create;
  bit.LoadFromFile(ImgPath); {因爲 TBitmap 操作流特別方便, 這裏就沒有演示}

  img := TGPBitmap.Create(bit.Handle, bit.Palette);

  g := TGPGraphics.Create(Canvas.Handle);
  g.DrawImage(img, 0, 0);

  g.Free;
  bit.Free;
  img.Free;
end;