修复font一些属性设置/获取失败

2024-02-22 13:47:24 +08:00
parent f685fdced1
commit e917dce1df
2 changed files with 6 additions and 1 deletions
@@ -308,7 +308,7 @@ Begin
 End;
 Function TSDocxFont.ReadEmphasisMark();virtual;
 Begin
-	case pr_.Value("first") of
+	case pr_.Value("Em") of
 		"none", nil:
 			return TSDocxEnumerations.wdEmphasisMarkNone;
 		"comma":
@@ -467,6 +467,11 @@ Begin
 	return CallFunction(ThisFunction(class(TSDocxFont).ReadDuplicate));
 End;

+Function TSDocxFontRange.WriteDoubleStrikeThrough(value);override;
+Begin
+	CallFunction(ThisFunction(class(TSDocxFont).WriteDoubleStrikeThrough), value);
+End;
+
 Function TSDocxFontRange.ReadDoubleStrikeThrough();override;
 Begin
 	return CallFunction(ThisFunction(class(TSDocxFont).ReadDoubleStrikeThrough));