Баг или я что-то не так делаю?

Комментарии

• -=Den=-

  December 2009 отредактировано 07:20

  Смотрите документацию , там описано поведение переменных Line и Line# , а так же чем они отличаются.
  Добавлю, что эти переменные и не должны сбрасываться на новой странице.
  
• SINys

  December 2009 отредактировано December 2009

  написал: »

  Смотрите документацию , там описано поведение переменных Line и Line# , а так же чем они отличаются.
  Добавлю, что эти переменные и не должны сбрасываться на новой странице.

  Как работают эти переменные и чем они отличаются я знаю. Я на них сослался потому, что их функционал меня не устраивает для данного отчета. Поэтому я и завел переменную. Вопрос не в этом. Почему первый элемент на втором листе начинается не с единицы, а с продолжения предыдущей нумерации? При этом события AfterPrint у обоих бандов похоже вызывается, т.к. нумерация дальше идет в нужном порядке.
  
  To -=Den=-: Прежде чем отвечать и отправлять к документации, неплохо бы скачать тестовый отчет и посмотреть в чем проблема. Там сразу станет ясно, что Line и Line# там никаким боком не затрагиваются и речь вообще не о них...
• -=Den=-

  December 2009 отредактировано 07:20

  Я просто пояснил , что переменный Line для этого не предназначены.
  Возможно, не дочитал ваше сообщение
  По поводу скрипта - это нормально поведение, бэнд сначала выводится с вызовом всех событий и только потом переносится при нехватке места.
  Для корректной работы в OnAfterCalcHeight проверяйте высоту бэнда и тут же переносите его.
  В этом же событии прибавляйте к своей переменной.
  

  procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent);
  begin
   if MasterData1.Height > Engine.FreeSpace then
     Engine.NewPage;
   Inc(lineIdx);  
  end;
  
• SINys

  December 2009 отредактировано 07:20

  Убрал событие MasterData1OnAfterPrint и вместо него создал MasterData1OnAfterCalcHeight с описанным выше кодом. Результат такой же, как и в первом сообщении. Т.е. визуально ничего не изменилось: нумерация первого пункта неправильная.
  
  Вот отчёт:
  
• -=Den=-

  December 2009 отредактировано December 2009

  Для простых отчетов код нужно перенести в OnBeforePrint(попутал события в пер. сообщении).
  А для сложных (растягиваемых) придется делать 2 прохода и использовать OnAfterCalcHeight для вычисления высоты (т.к. он может меняться).
  
  Пример отчета, который может растягиваться приложен.
• SINys

  December 2009 отредактировано December 2009

  В итоге все решилось разнесением переноса на новую страницу и увеличением переменной по разным событиям.
  

  procedure Header1OnAfterPrint(Sender: TfrxComponent);
  begin
    Set('RowNumber', 1);
  end;
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
    if (MasterData.Height > Engine.FreeSpace) then
       Engine.NewPage;
  end;
  
  procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
  begin
    Set('RowNumber', <RowNumber> + 1);        
  end;
  

  Уф, теперь вроде правильно работает.
  
• -=Den=-

  December 2009 отредактировано December 2009

  SINys написал: »

  В итоге все решилось разнесением переноса на новую страницу и увеличением переменной по разным событиям.

  Если бэнд будет растягиваться , такой вариант работать не будет.
  Т.е. этот вариант для фиксированных размеров бенда.
  
  

  SINys написал: »

  PS: Кстати, отчёт из предыдущего ответа тоже не правильно работает:
  у него первые две строчки имеют одинаковый номер (обе равны единице)...

  
  отчет работает, просто забыл убрать обнуление переменной из Header1OnAfterPrint, оно там не нужно.
  Вместо Newpage там обнуляется переменная