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

修复font.color报错问题

Browse Source
This commit is contained in:
csh
2024-02-05 17:56:39 +08:00
parent b2040b1db5
commit 5196e6424c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
docx/font/TSDocxFont.tsf
+2 -2
View File
@@ -225,9 +225,9 @@ Begin
End; End;
Function TSDocxFont.ReadColor();virtual; Function TSDocxFont.ReadColor();virtual;
Begin Begin
v := pr.Value("Color"); v := pr_.Value("Color");
value := color_index_[v]; value := color_index_[v];
if ifnil(value) then return color_[v]; return ifnil(value) ? color_[v] : value;
End; End;
Function TSDocxFont.WriteColorIndex(value);virtual; Function TSDocxFont.WriteColorIndex(value);virtual;