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

修复单元格合并，边框显示不正确问题

This commit is contained in:
csh 2024-07-30 14:34:27 +08:00
parent e5dfdeadc0
commit 151eef66b7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
range/Advanced/TSPdfTableRange.tsf
View File

@ -76,6 +76,11 @@ begin
cell_range.StartY := tc_y; cell_range.StartY := tc_y;
cell_range.Width := grid_cols[i].W; cell_range.Width := grid_cols[i].W;
cell_range.FixedHeight := tc_h; cell_range.FixedHeight := tc_h;
if i = length(tcs)-1 and i <> length(grid_cols)-1 then
begin
for j:=i+1 to length(grid_cols)-1 do
cell_range.Width += grid_cols[j].W;
end
cell_range.Calc(); cell_range.Calc();
tc_x += grid_cols[i].W; tc_x += grid_cols[i].W;
if cell_range.DynamicHeight > max_height then max_height := cell_range.DynamicHeight; if cell_range.DynamicHeight > max_height then max_height := cell_range.DynamicHeight;