1. 修复表格遇到边界报错问题

2. 支持表格的奇数行、偶数行样式
2024-09-26 11:40:23 +08:00
parent 5dc201c1a2
commit 68ce759668
5 changed files with 58 additions and 11 deletions
@@ -21,6 +21,7 @@ end;
 function TSPdfTextRange.Do();
 begin
    // println("text = {}, endx = {}, endy = {}, width = {}, page = {}", ansiToUtf8(text), endx, endy, width, page);
+    // println("Text = {}, sz = {}, szcs = {}, rpr.I = {}", ansiToUtf8({self.}Text), {self.}RPr.Sz.Val, {self.}RPr.SzCs.Val, {self.}RPr.I);
    [r, g, b] := array(0, 0, 0);
    if {self.}RPr.Color.Val then [r, g, b] := TSColorToolKit.HexToRGB({self.}RPr.Color.Val);
    {self.}TSPage.PdfPage.SetRGBFill(r / 255, g / 255, b / 255);