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

修复`font.color`报错问题

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docx/font/TSDocxFont.tsf
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;