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

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

This commit is contained in:
csh 2024-11-20 17:06:41 +08:00
parent 57f673f457
commit 8ab1670eea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
range/basic/TSPdfBordersRange.tsf
View File

@ -28,7 +28,7 @@ end;
function TSPdfBordersRange.Do();override; function TSPdfBordersRange.Do();override;
begin begin
// println("Left = {}, Top = {}, Right = {}, Bottom = {}, Tl2Br = {}, Tr2Bl = {}", Left, Top, Right, Bottom, Tl2Br, Tr2Bl); // 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 begin
[r, g, b] := array(0, 0, 0); [r, g, b] := array(0, 0, 0);
if {self.}TcPr.Shd.Fill <> "auto" then [r, g, b] := TSColorToolKit.HexToRGB({self.}TcPr.Shd.Fill); if {self.}TcPr.Shd.Fill <> "auto" then [r, g, b] := TSColorToolKit.HexToRGB({self.}TcPr.Shd.Fill);