Что сделать чтобы не показывался диалог?

Комментарии

• Fokewolf Киев

  October 2008 отредактировано 07:40

  А почему это он у вас показывается каждый раз ? Код в студию.
• Konst

  October 2008 отредактировано 07:40

  Открой демку в дизайнере
  отчет Drill down groups 97.fr3
  Добавь диалог DialogPage1
  туда же кнопку Button1 в свойствах ее ModalResult поставь mrOk
  Запусти превью.
• Konst

  October 2008 отредактировано 07:40

  Вставьте обработчик
  procedure DialogPage1OnShow(Sender: TfrxComponent);
  begin
  if Engine.FinalPass then
  DialogPage1.Visible := False;
  end;
  Работает!!!
  Сохраняем выходим из дизайнера.
  
  Нажимаем кнопку превью.
  Сколько раз диалог появился?
  Я еще не смотрел дергает ли он запрос Но судя по всему дергает так как медленно группа открывается.
  Версия последняя 4.7.3
  
  
• gpi

  October 2008 отредактировано October 2008

  procedure DialogPage1OnHide(Sender: TfrxComponent);
  begin
       DialogPage1.Visible:=False;                                      
  end;
  

  И не забыть frxReport1.EngineOptions.DestroyForms:=False;
  А запрос будет дёргать, т.к. отчёт перестраивается заново
• -=Den=-

  October 2008 отредактировано 07:40

  Да, такая проблема есть, т.к. отчет перестраивается после разворачивания группы.
  
  Можно сделать так:
  - добавить в отчет переменную (не в скрипт , а в отчет).
  - установить ее перед вызовом Preparereport (или showreport).
  - установить Report.EngineOptions.DestroyForms := False.
  - в скрипте проверять эту переменную и в зависимости от ее значения устанавливать Visible у диалога.
  
  Выглядеть это будет приблизительно так:
  В отчете создать переменную bFlag.
  
  
  Код программы:

  Report.LoadFromFile(...);
  Report.EngineOptions.DestroyForms := False;
  Report.Variables['bFlag'] := True;
  Report.ShowReport();
  

  
  Скрипт:

  procedure frxReport1OnStopReport(Sender: TfrxComponent);
  begin
    Set(<bFlag>, False);                                
  end;
  
  begin
   DialogPage1.Visible := <bFlag>;                        
  end.
  
• Konst

  October 2008 отредактировано 07:40

  gpi написал: »

  И не забыть frxReport1.EngineOptions.DestroyForms:=False;
  А запрос будет дёргать, т.к. отчёт перестраивается заново

  
  Данные же все с сервера отфечены зачем по новой их все тянуть(А если запрос тяжелый)?
  Если только датасет закрывается...
  
  Отчеты лежат в БД в Блобах
  
• Konst

  October 2008 отредактировано 07:40

  написал: »

  begin
  DialogPage1.Visible := <bFlag>;
  end.[/code]

  
  Попробовал сделать так как выше - что-то не работает.
  Может что я не правильно делаю?
  
  Отчеты лежат в БД. Код который их вытаскивает - менять не могу.
  
  97.fr3 - из стандартной демки
• -=Den=-

  October 2008 отредактировано 07:40

  Вот этот код :
  Report.EngineOptions.DestroyForms := False;
  Report.Variables := True;
  Report.ShowReport();
  
  я его показывал не просто так, через скрипт сделать можно как предложил gpi (Report.EngineOptions.DestroyForms нужно устанавливать в False в обоих случаях, в демке это св-во по умолчанию True).
  Но в примере предложенным gpi не учитывается, что отчет может перестраиваться повторно через preparereport.
  Из дизайнера такой вариант будет работать (т.к. он перегружает шаблон), а вот при вызове preparereport нужно либо перезагружать шаблон самостоятельно, либо использовать вариант с переменной, которая устанавливается перед вызовом prepareport/showreport.
  
• Konst

  October 2008 отредактировано 07:40

  Во что нашел.!!!!
  Если в отчете прописать

  procedure frxReport1OnStopReport(Sender: TfrxComponent);
  begin
     Set(<bFlag>, False);     
  end;
  
  procedure frxReport1OnStartReport(Sender: TfrxComponent);
  begin
      Set(<bFlag>, True);  
  end;
  

  
  Сохранить его и запустить на просмотр FRDemo.exe - падет ничего не сказав.
  
  вроде бы добился чтобы диалог показывался один раз. Ничего не меняя в клиенте
• -=Den=-

  October 2008 отредактировано 07:40

  Ваш пример вызывает переполнение стека, получается что, переменные в отчете c именами True и False ссылаются сами на себя.
  При вычислении выражений сначала проверяется список переменных отчета (т.к. он меньше и это в большинстве случаев экономит время), а последним идет список переменных скрипта.
  Не используйте рекурсивных вызовов в переменных.
  
  Добавил проверку на рекурсивный вызов переменных, теперь будет выдавать ошибку и завершать построение отчета.
  
• vamphook

  March 2012 отредактировано 07:40

  написал: »

  Да, такая проблема есть, т.к. отчет перестраивается после разворачивания группы.
  
  ...
  
  Скрипт:

  procedure frxReport1OnStopReport(Sender: TfrxComponent);
  begin
    Set(<bFlag>, False);                                
  end;
  
  begin
   DialogPage1.Visible := <bFlag>;                        
  end.
  

  написал: »

  Set(<bFlag>, False);

  неправильно, должно быть

  Set('bFlag', False)
  

  убил час