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

修复font获取中文问题

This commit is contained in:
csh 2024-03-05 09:13:33 +08:00
parent a68cfb01d7
commit 0aa9639ae0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
docx/font/TSDocxFont.tsf
View File

@ -450,7 +450,7 @@ End;
Function TSDocxFont.ReadName();virtual;
Begin
return pr_.rFont.Value("EastAsia");
return pr_.rFont.EastAsia;
End;
Function TSDocxFont.WriteNameAscii(value);virtual;
@ -459,7 +459,7 @@ Begin
End;
Function TSDocxFont.ReadNameAscii();virtual;
Begin
return pr_.rFont.Value("Ascii");
return pr_.rFont.Ascii;
End;
Function TSDocxFont.WriteNameBi(value);virtual;
@ -468,7 +468,7 @@ Begin
End;
Function TSDocxFont.ReadNameBi();virtual;
Begin
return pr_.rFont.Value("Cs");
return pr_.rFont.Cs;
End;
Function TSDocxFont.WriteNameFarEast(value);virtual;
@ -477,8 +477,8 @@ Begin
End;
Function TSDocxFont.ReadNameFarEast();virtual;
Begin
ret := pr_.rFont.Value("EastAsia");
return ret ? ret : "宋体";
ret := pr_.rFont.EastAsia;
return ret ? ret : class(TSXml).Utf8ToCurCodePage("宋体");
End;
Function TSDocxFont.WriteNameOther(value);virtual;
@ -488,7 +488,7 @@ End;
Function TSDocxFont.ReadNameOther();virtual;
Begin
return pr_.rFont.Value("HAnsi");
return pr_.rFont.HAnsi;
End;
Function TSDocxFont.WriteNumberForm(value);virtual;