From e917dce1df75a1c6aff5954b36cc0c91a2700f57 Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Thu, 22 Feb 2024 13:47:24 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8Dfont=E4=B8=80=E4=BA=9B?=
 =?UTF-8?q?=E5=B1=9E=E6=80=A7=E8=AE=BE=E7=BD=AE/=E8=8E=B7=E5=8F=96?=
 =?UTF-8?q?=E5=A4=B1=E8=B4=A5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 docx/font/TSDocxFont.tsf      | 2 +-
 docx/font/TSDocxFontRange.tsf | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/docx/font/TSDocxFont.tsf b/docx/font/TSDocxFont.tsf
index c22fe2c..c4987bb 100644
--- a/docx/font/TSDocxFont.tsf
+++ b/docx/font/TSDocxFont.tsf
@@ -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":
diff --git a/docx/font/TSDocxFontRange.tsf b/docx/font/TSDocxFontRange.tsf
index 2ba4a56..31ca905 100644
--- a/docx/font/TSDocxFontRange.tsf
+++ b/docx/font/TSDocxFontRange.tsf
@@ -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));