tinysoft/OfficeVba
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
csh
2024-02-22 13:47:24 +08:00
parent f685fdced1
commit e917dce1df
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
docx/font/TSDocxFont.tsf
+1 -1
View File
@@ -308,7 +308,7 @@ Begin
End; End;
Function TSDocxFont.ReadEmphasisMark();virtual; Function TSDocxFont.ReadEmphasisMark();virtual;
Begin Begin
case pr_.Value("first") of case pr_.Value("Em") of
"none", nil: "none", nil:
return TSDocxEnumerations.wdEmphasisMarkNone; return TSDocxEnumerations.wdEmphasisMarkNone;
"comma": "comma":
docx/font/TSDocxFontRange.tsf
+5
View File
@@ -467,6 +467,11 @@ Begin
return CallFunction(ThisFunction(class(TSDocxFont).ReadDuplicate)); return CallFunction(ThisFunction(class(TSDocxFont).ReadDuplicate));
End; End;
Function TSDocxFontRange.WriteDoubleStrikeThrough(value);override;
Begin
CallFunction(ThisFunction(class(TSDocxFont).WriteDoubleStrikeThrough), value);
End;
Function TSDocxFontRange.ReadDoubleStrikeThrough();override; Function TSDocxFontRange.ReadDoubleStrikeThrough();override;
Begin Begin
return CallFunction(ThisFunction(class(TSDocxFont).ReadDoubleStrikeThrough)); return CallFunction(ThisFunction(class(TSDocxFont).ReadDoubleStrikeThrough));