frPrintGrid & MDI

Комментарии

• -=Serg=-

  February 2005 отредактировано 10:42

  Возможно нужно подправить исходники:
  в модуле FR_PTabl:
  
  стр 890:
  ...
  procedure TfrCustomPrintDataSet.ShowReport;
  var
  r: TfrCompositeReport;
  begin
  r:=TfrCompositeReport.Create(nil);
  r.PreviewButtons := FPreviewButtons;
  r.DoublePass := FDoublePass;
  r.MDIPreview := true;
  ...
  
• Vascom

  February 2005 отредактировано 10:42

  Сделал так...
  
  procedure TfrCustomPrintDataSet.ShowReport(MDIWin:Boolean);
  var
  r: TfrCompositeReport;
  begin
  r:=TfrCompositeReport.Create(nil);
  r.PreviewButtons := FPreviewButtons;
  r.DoublePass := FDoublePass;
  r.MDIPreview := MDIWin;
  r.ModalPreview := not MDIWin;
  ...
  Пакет перекомпилировался без проблем, но окно отчета моргает как MDIChild все вроде хорошо и тут же исчезает, даже буквы толком заметить невозможно
  В чем может быть проблема не пойму...
• -=Serg=-

  February 2005 отредактировано 10:42

  Исчезает из-за r.Free; (в той же процедуре ниже)
• Vascom

  February 2005 отредактировано 10:42

  -=Serg=- Огромное спасибо за подсказку, все получилось
• -=Serg=-

  February 2005 отредактировано 10:42

  Вот только если ты закоментируешь r.Free, как бы не получилась утечка памяти....
• Vascom

  February 2005 отредактировано 10:42

  Не получится я ее не закоментировал, а поправил на такой код
  if not MDIWin then r.Free;
  Это в случае, если показывать отчет модально. А при формировании MDI Child окна, чтобы оно спряталось, а не свернулось его нужно разрушить Action:=caFree.
  Соответственно, если окно просмотра отчета при нажатии на кнопку закрыть не сворачивается, значит разрушается, вот в принципе и все.
  Если я в чем-то ошибаюсь буду очень признателен за поправку.