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-03-05 09:13:33 +08:00
parent a68cfb01d7
commit 0aa9639ae0
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
docx/font/TSDocxFont.tsf
+6 -6
View File
@@ -450,7 +450,7 @@ End;
Function TSDocxFont.ReadName();virtual; Function TSDocxFont.ReadName();virtual;
Begin Begin
return pr_.rFont.Value("EastAsia"); return pr_.rFont.EastAsia;
End; End;
Function TSDocxFont.WriteNameAscii(value);virtual; Function TSDocxFont.WriteNameAscii(value);virtual;
@@ -459,7 +459,7 @@ Begin
End; End;
Function TSDocxFont.ReadNameAscii();virtual; Function TSDocxFont.ReadNameAscii();virtual;
Begin Begin
return pr_.rFont.Value("Ascii"); return pr_.rFont.Ascii;
End; End;
Function TSDocxFont.WriteNameBi(value);virtual; Function TSDocxFont.WriteNameBi(value);virtual;
@@ -468,7 +468,7 @@ Begin
End; End;
Function TSDocxFont.ReadNameBi();virtual; Function TSDocxFont.ReadNameBi();virtual;
Begin Begin
return pr_.rFont.Value("Cs"); return pr_.rFont.Cs;
End; End;
Function TSDocxFont.WriteNameFarEast(value);virtual; Function TSDocxFont.WriteNameFarEast(value);virtual;
@@ -477,8 +477,8 @@ Begin
End; End;
Function TSDocxFont.ReadNameFarEast();virtual; Function TSDocxFont.ReadNameFarEast();virtual;
Begin Begin
ret := pr_.rFont.Value("EastAsia"); ret := pr_.rFont.EastAsia;
return ret ? ret : "宋体"; return ret ? ret : class(TSXml).Utf8ToCurCodePage("宋体");
End; End;
Function TSDocxFont.WriteNameOther(value);virtual; Function TSDocxFont.WriteNameOther(value);virtual;
@@ -488,7 +488,7 @@ End;
Function TSDocxFont.ReadNameOther();virtual; Function TSDocxFont.ReadNameOther();virtual;
Begin Begin
return pr_.rFont.Value("HAnsi"); return pr_.rFont.HAnsi;
End; End;
Function TSDocxFont.WriteNumberForm(value);virtual; Function TSDocxFont.WriteNumberForm(value);virtual;