修复font.color报错问题

2024-02-05 17:56:39 +08:00
parent b2040b1db5
commit 5196e6424c
1 changed files with 2 additions and 2 deletions
@@ -225,9 +225,9 @@ Begin
 End;
 Function TSDocxFont.ReadColor();virtual;
 Begin
-	v := pr.Value("Color");
+	v := pr_.Value("Color");
 	value := color_index_[v];
-	if ifnil(value) then return color_[v];
+	return ifnil(value) ? color_[v] : value;
 End;

 Function TSDocxFont.WriteColorIndex(value);virtual;