在FastReport 5中调整对象位置/尺寸

Question

在生成报告时，我需要在一些备忘录对象周围移动并调整乐队的高度。 我在脚本中添加了以下内容：

procedure MasterDataOnBeforePrint(Sender: TfrxComponent);
begin
  if (DRID = <TRAN_DETAIL."REFERENCEID">) then
  begin
    txChargeDate.Top := 0;
    txChargeDesc.Top := 0;
    txChargeQuant.Top := 0;
    txChargeAmt.Top := 0;

    txDRInfo.Visible := false;
    txDRDesc.Visible := false;

    MasterData.Height := 0.25;
  end
  else
  begin
    MasterData.Height := 0.65;

    txChargeDate.Top := 0.4;
    txChargeDesc.Top := 0.4;
    txChargeQuant.Top := 0.4;
    txChargeAmt.Top := 0.4;

    txDRInfo.Visible := true;
    txDRDesc.Visible := true;
  end;
  DRID := <TRAN_DETAIL."REFERENCEID">;
end;

基本上，如果当前订单项与上一个订单项具有相同的ReferenceID，则我不希望打印txDRInfo和txDRDesc。 我也不希望有很大的空间来显示它们的原位。 因此，我检查参考ID是否已更改，并四处移动项目并隐藏不打印的文本。

这样做的问题是，尽管这是在BeforePrint事件中，但我对位置或大小所做的任何更改都会影响所有订单项，而不仅是该事件正在查看的订单项。

使用Delphi 2007和FastReport VCL 5可以解决此问题吗？

Answer 1

我想出了一种更好的方法。 我发现，如果使子带不可见，您仍然可以让任何带子的孩子打印。 因此，我将所有内容从“主数据”乐队中删除，并将其移至两个子乐队中：

Master Band (Height = 0)
  Child Band 1 with stuff to hide; PrintChildIfInvisible = true
    Child Band 2 with stuff to always show

然后在打印之前的“儿童乐队1”中，我只是检查是否应使其不可见。