From 919c80f1b0476ae05cf80b65b89fd5b331c3bb17 Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Thu, 2 Feb 2023 16:25:08 +0800
Subject: [PATCH] v1.1.4-patch2

---
 funcext/TSOffice/TOfficeObj.tsf | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index 56329cc..681e3e1 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -1,5 +1,3 @@
-// Version 1.1.4
-
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -12359,8 +12357,10 @@ Type TDocumentBody = Class(DocObject)
 	///[docx]: 可选参数，TSDocxFile对象，在TTextBox、TCell中调用需要传入文档对象
 	Function AddPicture(picture, posOpt, docx);
 	Begin
-		if ifObj(docx) then
+		if ifObj(docx) then Begin
 			zipfile_ := docx.Zip();
+			picture.Run.Drawing.WInline.ID := docx.GetDocPrId();
+		End;
 		if not ifBinary(picture.Image) or length(picture.Image)=0 then 
 			raise 'Invalid Image Data.';
 		if not ifObj(zipfile_) then