Frexport - ошибки

lexa_mad

Если я создаю ExportFilter без создания Report и потом пытаюсь вызвать формы настроек этих фильтров - вываливаются ошибки.
Пришлось пофиксить.... Не знаю, может быть это уже исправлено... но все-таки...

function TfrxPDFExport.ShowModal: TModalResult

поменял 
  if FTitle = '' then
    FTitle := Report.ReportOptions.Name
на 
  if (FTitle = '') and (not SlaveExport) then
    FTitle := Report.ReportOptions.Name

поменял 
   if Assigned(Report) then
      FOutline := Report.PreviewOptions.OutlineVisible
    else
      FOutline := True;
на
   if Assigned(Report) and (not SlaveExport) then
      FOutline := Report.PreviewOptions.OutlineVisible
    else
      FOutline := True;

---

function TfrxTXTExport.ShowModal: TModalResult;

поменял 
  if FileName = '' then
      frExportSet.SaveDialog1.FileName := ChangeFileExt(ExtractFileName(frxUnixPath2WinPath(Report.FileName)), frExportSet.SaveDialog1.DefaultExt)
    else
      frExportSet.SaveDialog1.FileName := FileName;
на
  if (FileName = '') and (not SlaveExport) then 
      frExportSet.SaveDialog1.FileName := ChangeFileExt(ExtractFileName(frxUnixPath2WinPath(Report.FileName)), frExportSet.SaveDialog1.DefaultExt)
    else
      frExportSet.SaveDialog1.FileName := FileName;

поменял 
    frExportSet.PagesCount := Report.PreviewPages.Count;
на
    if not SlaveExport then
      frExportSet.PagesCount := Report.PreviewPages.Count;