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;
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;