修复bugs

2024-02-07 16:01:32 +08:00
parent 4cac47522a
commit f685fdced1
3 changed files with 25 additions and 20 deletions
@@ -125,7 +125,7 @@ Begin
 End;
 Function TSDocxShadingRange.ReadTexture();override;
 Begin
-	CallFunction("ReadTexture");
+	return CallFunction("ReadTexture");
 End;

 Function TSDocxShadingRange.WriteForegroundPatternColorIndex(value);override;
@@ -134,36 +134,33 @@ Begin
 End;
 Function TSDocxShadingRange.ReadForegroundPatternColorIndex();override;
 Begin
-	CallFunction("ReadForegroundPatternColorIndex");
+	return CallFunction("ReadForegroundPatternColorIndex");
 End;

 Function TSDocxShadingRange.WriteForegroundPatternColor(value);override;
 Begin
-
 	CallFunction("WriteForegroundPatternColor", value);
 End;
 Function TSDocxShadingRange.ReadForegroundPatternColor();override;
 Begin
-	CallFunction("ReadForegroundPatternColor");
+	return CallFunction("ReadForegroundPatternColor");
 End;

 Function TSDocxShadingRange.WriteBackgroundPatternColorIndex(value);override;
 Begin
-
 	CallFunction("WriteBackgroundPatternColorIndex", value);
 End;
 Function TSDocxShadingRange.ReadBackgroundPatternColorIndex();override;
 Begin
-	CallFunction("ReadBackgroundPatternColorIndex");
+	return CallFunction("ReadBackgroundPatternColorIndex");
 End;

 Function TSDocxShadingRange.WriteBackgroundPatternColor(value);override;
 Begin
-
 	CallFunction("WriteBackgroundPatternColor", value);
 End;
 Function TSDocxShadingRange.ReadBackgroundPatternColor();override;
 Begin
-	CallFunction("ReadBackgroundPatternColor");
+	return CallFunction("ReadBackgroundPatternColor");
 End;