正文

在MetaFile里放图片

IP云
IP云V管理员/4 阅读
12/02
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示
procedure TForm1.Button1Click(Sender: TObject);

 var

   m : TmetaFile;

   mc : TmetaFileCanvas;

   b : tbitmap;

begin

  m := TMetaFile.Create;

  b := TBitmap.create;

  b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');

  m.Height := b.Height;

  m.Width := b.Width;

  mc := TMetafileCanvas.Create(m, );

  mc.Draw(, , b);

  mc.Free;

  b.Free;

  m.SaveToFile('C:\SomePath\Test.emf');

  m.Free;

  Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');

end;

  procedure TForm1.Button1Click(Sender: TObject);

  var

  m : TmetaFile;

  mc : TmetaFileCanvas;

  b : tbitmap;

  begin

  m := TMetaFile.Create;

  b := TBitmap.create;

  b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');

  m.Height := b.Height;

  m.Width := b.Width;

  mc := TMetafileCanvas.Create(m, );

  mc.Draw(, , b);

  mc.Free;

  b.Free;

  m.SaveToFile('C:\SomePath\Test.emf');

  m.Free;

  Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');

  end;

相关阅读

目录[+]