支持emf格式的图片（word中插入excel表格）

range/basic/TSPdfImageRange.tsf

@@ -5,18 +5,23 @@ public
 
 public
     Image: PdfImage;
+    Type: string;
 end;
 
 function TSPdfImageRange.Create();
 begin
     class(TSPdfBasicRange).Create();
     {self.}Image := nil;
+    {self.}Type := "";
 end;
 
 function TSPdfImageRange.Do();
 begin
     // println("image = {}, x = {}, y = {}, w = {}, h = {}", {self.}image, {self.}endx, {self.}endy, {self.}width, {self.}DynamicHeight);
-    {self.}TSPage.PdfPage.DrawImage({self.}Image, {self.}EndX, {self.}EndY, {self.}Width, {self.}DynamicHeight);
+    if {self.}Type = "emf" then
+        {self.}TSPage.PdfPage.DrawEmf({self.}Image, {self.}EndX, {self.}EndY, {self.}Width, {self.}DynamicHeight);
+    else
+        {self.}TSPage.PdfPage.DrawImage({self.}Image, {self.}EndX, {self.}EndY, {self.}Width, {self.}DynamicHeight);
 
 if sysparams["_PDF_IMAGE_DEBUG_"] then
 begin