diff --git a/range/basic/TSPdfBordersRange.tsf b/range/basic/TSPdfBordersRange.tsf index d738cf4..8b3a7cf 100644 --- a/range/basic/TSPdfBordersRange.tsf +++ b/range/basic/TSPdfBordersRange.tsf @@ -28,10 +28,9 @@ end; function TSPdfBordersRange.Do();override; begin // println("Left = {}, Top = {}, Right = {}, Bottom = {}, Tl2Br = {}, Tr2Bl = {}", Left, Top, Right, Bottom, Tl2Br, Tr2Bl); - if {self.}TcPr.Shd.Fill and {self.}TcPr.Shd.Val <> "clear" then + if {self.}TcPr.Shd.Fill and {self.}TcPr.Shd.Fill <> "auto" 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); + [r, g, b] := TSColorToolKit.HexToRGB({self.}TcPr.Shd.Fill); {self.}TSPage.PdfPage.SetRGBFill(r/255, g/255, b/255); {self.}TSPage.PdfPage.Rectangle({self.}EndX, {self.}EndY - {self.}DynamicHeight, {self.}Width, {self.}DynamicHeight); {self.}TSPage.PdfPage.Fill();