查找使用 eDocEngine 生成的表的末尾

Question

我们有几个报告，使用 Gnostice 的 eDocEngine 将单独的表格输出到 PDF 中，只要数据正确地适合单元格。

问题是当数据换行时，它会改变行高，使表格变大。这意味着当我们输出下一个表时，它会重叠并破坏报告输出。目前，我们使用一些解决方法，例如测试字符串长度以查看是否会换行或向下一个表格顶部添加一个常量以添加一点空间，以防顶部表格增长一点。

我希望能够做的是在调用 EndTable 后获取表格高度或底部，以便我可以相应地调整后续表格。

我们使用的是Delphi 2007，eDocEngine 2.5

Answer 1

Type TExposeProtectedeDocEngine = Class (TgtCustomDocumentEngine)
    public
        function GetTableBottom: Double;
        function GetTableTop: Double;
        Function GetTableHeight: Double;
End;

{ TExposeProtectedeDocEngine }

function TExposeProtectedeDocEngine.GetTableTop: Double;
begin
    if Assigned(FTableItem) then
    begin
        Result := FTableItem.Y;
    end
    else
        Result := 0;
end;

function TExposeProtectedeDocEngine.GetTableHeight: Double;
var
  i: Integer;
begin
    Result := 0;
    if Assigned(FTableItem) then
    begin
        for i := 0 to FTableItem.RowHeights.Count - 1 do
            Result := Result + Int64(FTableItem.RowHeights[i]);
    end;
end;

function TExposeProtectedeDocEngine.GetTableBottom: Double;
begin
    Result := GetTableHeight + GetTableTop;
end;

function GetPreviousTableBottom(Engine : TgtCustomDocumentEngine): Double;
begin
    Result := TExposeProtectedeDocEngine(Engine).GetTableBottom;
end;