From 1d0b5684cc9069aa1b87e3c6f12070b0eb00f737 Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Wed, 2 Aug 2023 17:24:10 +0800
Subject: [PATCH] v1.3.8-patch1

---
 funcext/TSOffice/TOfficeObj.tsf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index c26b398..7579cae 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -13134,11 +13134,11 @@ Type TDocumentBody = Class(DocObject)
 		//picture.Run.Drawing.WInline.b := 5080;
 		//picture.Run.Drawing.WInline.t := 0;
 		//picture.Run.Drawing.WInline.l := 0;
-		picture.pPr.Alignment := picture.pPr.Alignment ? picture.PPr.Alignment : "distributed";
 		addPart(posOpt, picture);
 		
 		p := new TPicture(picture.node_);
 		_set_lastParagraph_(posOpt, picture.node_);
+		picture.node_.InsertFirstChild('element', 'w:pPr');
 		TOfficeApi().Set('CurrentShape', picture.node_);
 		return p;
 	End;