增加range方法支持

2024-01-19 17:37:26 +08:00
parent b4649653d9
commit 1ac447c94e
10 changed files with 152 additions and 64 deletions
@@ -9,6 +9,7 @@ public
 protected
 	docx_;
 	pr_;  // TOfficeObj("TwpPr")
+	shading_; // TSDocxShading

 public
 	// Methods
@@ -151,6 +152,7 @@ Function TSDocxParagraphFormat.Init(docx, pPr);
 Begin
 	docx_ := docx;
 	pr_ := pPr;
+	shading_ := nil;
 End;

 Function TSDocxParagraphFormat.Apply();virtual;
@@ -316,9 +318,12 @@ End;

 Function TSDocxParagraphFormat.ReadShading();virtual;
 Begin
-	shading_obj := new TSDocxShading(self.Application, self.Creator, self.Parent);
-	shading_obj.Init(pr_.Shading);
-	return shading_obj;
+	if ifnil(shading_) then
+	begin
+		shading_ := new TSDocxShading(self.Application, self.Creator, self.Parent);
+		shading_.Init(pr_.Shading);
+	end
+	return shading_;
 End;

 Function TSDocxParagraphFormat.WriteRightIndent(value);virtual;