修复填充色shd的值是clear表示不填充

2024-11-20 17:06:41 +08:00 · 2024-11-20 17:06:41 +08:00 · 8ab1670eea
parent 57f673f457
commit 8ab1670eea
1 changed files with 1 additions and 1 deletions
--- a/range/basic/TSPdfBordersRange.tsf
+++ b/range/basic/TSPdfBordersRange.tsf
@ -28,7 +28,7 @@ end;
 function TSPdfBordersRange.Do();override;
 begin
    // println("Left = {}, Top = {}, Right = {}, Bottom = {}, Tl2Br = {}, Tr2Bl = {}", Left, Top, Right, Bottom, Tl2Br, Tr2Bl);
-    if {self.}TcPr.Shd.Fill then
+    if {self.}TcPr.Shd.Fill and {self.}TcPr.Shd.Val <> "clear" then
    begin
        [r, g, b] := array(0, 0, 0);
        if {self.}TcPr.Shd.Fill <> "auto" then [r, g, b] := TSColorToolKit.HexToRGB({self.}TcPr.Shd.Fill);