首页 / 软件开发 / Delphi / Delphi GDI+ 学习记录（30）: MetaFile 文件操作

Delphi GDI+ 学习记录（30）: MetaFile 文件操作2012-03-26 cnblogs 万一//显示 MetaFile 文件

var
g: TGPGraphics;
img: TGPImage;
begin
g := TGPGraphics.Create（Canvas.Handle）;
img := TGPImage.Create（"c: empx.emf"）; {文件要存在}
g.DrawImage（img, 11, 11）;
img.Free;
g.Free;
end;

//绘制 MetaFile 文件

var
g: TGPGraphics;
mf: TGPMetafile;
p: TGPPen;
begin
mf := TGPMetafile.Create（"c: empy.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;