在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”中，我只是檢查是否應使其不可見。