GDI+ 学习记录(30): MetaFile 文件操作

最新推荐文章于 2024-05-16 21:47:49 发布

weixin_34417183

最新推荐文章于 2024-05-16 21:47:49 发布

阅读量201

点赞数

本文提供了一个使用TGPGraphics和TGPMetafile类库来显示和绘制MetaFile文件的Delphi代码示例。通过创建TGPGraphics对象并在画布上加载MetaFile文件实现显示功能；通过创建TGPMetafile对象实现MetaFile文件的绘制与保存。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//显示 MetaFile 文件
var
  g: TGPGraphics;
  img: TGPImage;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  img := TGPImage.Create('c:\temp\x.emf'); {文件要存在}

  g.DrawImage(img, 11, 11);

  img.Free;
  g.Free;
end;


//绘制 MetaFile 文件
var
  g: TGPGraphics;
  mf: TGPMetafile;
  p: TGPPen;
begin
  mf := TGPMetafile.Create('c:\temp\y.emf', Canvas.Handle); {文件不存在则建立; 存在则覆盖}
  g := TGPGraphics.Create(mf);
  p := TGPPen.Create(MakeColor(255,255,0,0),2);

  g.DrawRectangle(p, 11, 11, 111, 88);

  p.Free;
  mf.Free;
  g.Free;
{文件绘制完成, 并已保存}
end;

关注博主即可阅读全文