Добавление пустого пространства над полосой данных «Total» в FastReport VCL 5

Delphi , Базы данных , Отчеты

В статье рассматривается проблема добавления пустого пространства над полосой данных «Total» в FastReport VCL 5. Пользователь хочет отделить полосу данных с деталями счета от полосы данных с итогами, но не может найти способ это сделать.

Решением проблемы является добавление пустого дочернего банда к полосе данных «MasterData» и использование кода в событии «OnBeforePrint» этого дочернего банда для отображения или скрытия его в зависимости от положения записи в наборе данных. Пример кода на Object Pascal (Delphi) для этого решения приведен ниже:

procedure SpacerOnBeforePrint(Sender: TfrxComponent);
begin
  Spacer.Visible := MasterData.Dataset.RecNo = MasterData.Dataset.RecordCount - 1;
end;

Этот код проверяет, находится ли текущая запись в наборе данных в последней позиции, и если да, то отображает дочерний банд «Spacer». Таким образом, между полосой данных с деталями и полосой данных с итогами создается пустое пространство.

Альтернативным решением является использование кода в событии «OnBeforePrint» полосы данных «Totals» для смещения текущей позиции Y на заданное значение, если есть достаточно места для полосы данных на странице. Пример кода на Object Pascal (Delphi) для этого решения приведен ниже:

procedure TotalsOnBeforePrint(Sender: TfrxComponent);
begin
  if Engine.FreeSpace > Totals.Height + Footer.Height + PageFooter.Height + 40 then
    Engine.CurY := Engine.CurY + 40;
end;

Однако, это решение может привести к неожиданному результату, если не учитывать высоту полосы данных «Totals» и другие полосы данных на странице. Поэтому, первое решение является более надежным и рекомендуемым.

В заключение, пользователь может добавить пустое пространство над полосой данных «Total» в FastReport VCL 5, добавив пустой дочерний банд к полосе данных «MasterData» и используя код в событии «OnBeforePrint» этого дочернего банда для отображения или скрытия его в зависимости от положения записи в наборе данных.

Создано по материалам из источника по ссылке.

В статье рассматривается проблема добавления пустого пространства над полосой данных «Total» в FastReport VCL 5, где пользователь хочет отделить полосу данных с деталями счета от полосы данных с итогами. Решением является добавление пустого дочернего банд

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::