Fr4.4 Preview отчета в одном окне, а хочется в отдельных
отчеты грузятся через Stream в один компонент fr3:TfrxReport примерно так:
fr3.Clear;
fr3.Description := quRepLoad.FieldByName('REP_NAME').asString;
stream := TMemoryStream.Create;
try
TBlobField(quRepLoad.FieldByName('REPORT')).SaveToStream(stream);
stream.Position:=0;
fr3.LoadFromStream(stream);
if fr3.PrepareReport then
begin
fr3.ShowPreparedReport;
end;
finally
stream.Free;
end;
Незаметил с какого обновления версии но разные отчеты загруженные таким образом показываются в одном стандратном preview, а раньше каждый отчет показывался в отдельном MDI окне, в проекте ничего не менял, просто обновил версию Fr, чтоже изменилось и что сделать чтоб каждый загружаемый отчет был отдельном окне
PS: не знаю важноли:
- отчеты наследуемы от одного щаблона
- сам компонент Fr лежит или на DataModule или (в другом проекте) на отдельной форме которая может быть как FormStype := fsNormal (когда скрыта) так и FormStyle := fsMDIChild (когда жэта форма открыта для редактирования отчетов)
- свойство PreviewOptions.MDIChild := True; PreviewOptions.Modal:= False;
fr3.Clear;
fr3.Description := quRepLoad.FieldByName('REP_NAME').asString;
stream := TMemoryStream.Create;
try
TBlobField(quRepLoad.FieldByName('REPORT')).SaveToStream(stream);
stream.Position:=0;
fr3.LoadFromStream(stream);
if fr3.PrepareReport then
begin
fr3.ShowPreparedReport;
end;
finally
stream.Free;
end;
Незаметил с какого обновления версии но разные отчеты загруженные таким образом показываются в одном стандратном preview, а раньше каждый отчет показывался в отдельном MDI окне, в проекте ничего не менял, просто обновил версию Fr, чтоже изменилось и что сделать чтоб каждый загружаемый отчет был отдельном окне
PS: не знаю важноли:
- отчеты наследуемы от одного щаблона
- сам компонент Fr лежит или на DataModule или (в другом проекте) на отдельной форме которая может быть как FormStype := fsNormal (когда скрыта) так и FormStyle := fsMDIChild (когда жэта форма открыта для редактирования отчетов)
- свойство PreviewOptions.MDIChild := True; PreviewOptions.Modal:= False;