delphi llPDFLib 添加EMF文件

llPDFLib 添加EMF文件

属性和方法

TPDFPage.PlayMetaFile

procedure PlayMetaFile(MF: TMetaFile; OptionalContent: TOptionalContent = nil); overload;
procedure PlayMetaFile(MF: TMetafile; x: Extended; y: Extended; XScale: Extended; YScale: Extended; OptionalContent: TOptionalContent = nil); overload;

在页面画布上绘制元文件作为一系列线条、区域和文本。

参数

MF 描绘的元文件。

x 将显示元文件的 X 坐标。

y 将显示元文件的 Y 坐标。

XScale 整个宽度的压缩水平。

YScale 沿着高度的压缩水平。

OptionalContent 可选内容，元文件将在其中显示。默认值 nil。

例子

添加EMF文件

uses llPDFDocument;

procedure TForm1.Button11Click(Sender: TObject);
var
  Pdf: TPDFDocument;
  MetaFile: TMetaFile;
begin
  Pdf := TPDFDocument.Create(nil);
  MetaFile := TMetaFile.Create;
  try
    //创建PDF文档
    Pdf.AutoLaunch := True;
    Pdf.FileName := 'C:\Users\Administrator\Desktop\ceshi.pdf';
    //导入EMF文件
    MetaFile.LoadFromFile('C:\Users\Administrator\Desktop\emf0004.emf');
    Pdf.BeginDoc;
    Pdf.CurrentPage.PlayMetaFile(MetaFile);
    Pdf.EndDoc;
  finally
    Pdf.Free;
    MetaFile.Free;
  end;
end;