TGPMetafile 封裝 EMF/WMF 格式,支援向量繪圖指令記錄與回放。可直接載入現有 .emf 顯示,或建立新檔案並繪製圖形 (線條、矩形、文字等),儲存後可無損縮放、列印高解析度輸出。
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;
var
g: TGPGraphics;
mf: TGPMetafile;
p: TGPPen;
begin
mf := TGPMetafile.Create('c:\temp\y.emf', Canvas.Handle); // 檔案不存在則建立,存在則覆蓋
g := TGPGraphics.Create(mf); // 取得繪圖面導向 metafile
p := TGPPen.Create(MakeColor(255, 255, 0, 0), 2);
g.DrawRectangle(p, 11, 11, 111, 88);
p.Free;
mf.Free; // 此處自動儲存檔案
g.Free;
end;
TMetafile (VCL) 與 Office 應用程式貼上/複製向量圖。適用於報表引擎、CAD 簡圖、可縮放 Logo/圖示匯出等需向量保真度的場景。