From b1cb66fd48e6268b0a8cd4bfc4d5c419189f08b6 Mon Sep 17 00:00:00 2001 From: csh Date: Wed, 20 Nov 2024 17:20:41 +0800 Subject: [PATCH] update --- range/basic/TSPdfBordersRange.tsf | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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();