Не отображается кнопочная панель на Frxpreview

JetuS

Обстановка:
Delphi 2007 + FastReports 4.7.1

Задача:
Сделать отображение предварительного просмотра не в отдельном окне, а на закладке PageControl'a

Как делаю:
Создаю форму с TfrxPreview, указываю ей закладку PageControl'a как Parent'a, указываю отчёту использовать превью с новосозданной формы и делаю ему ShowReport();

Всё работает, но не отображается кнопочная панель с кнопками экспорта, печати и т.д.
Пробую просто выводить отчёт - панель есть.

В чём может быть проблема?

-=Serg=-

И не должна. На то это и TfrxPreview - что бы вы могли создавать свои кнопки.

JetuS

написал: »

И не должна. На то это и TfrxPreview - что бы вы могли создавать свои кнопки.

В другом проекте (MDI) отображается с кнопочной панелью.

JetuS

Вот аналогичный проект на Delphi 7 + FastReports 4.6.1
Приложение MDI. Отчёт выводиться на отдельной форме и с панелькой.

-=Serg=-

не путайте компонент TfrxPreview и стандартное превью в MDI режиме.

Zoran

Я сделал отдельную форму и на на нее вывел стандартное превью. Получилось в нужном окне и с кнопками
Еще и достучаться удалось до основной формы и отключить ненужные кнопки.


В коде есть лишнее, но думаю разберешься.

procedure ShowFloatReportForm(AReport: TfrxReport; AParent: TWinControl = nil);
var
  AStream: TMemoryStream;
  FRM: TSPFastReportFrame;
begin
  Frm := TSPFastReportFrame.Create(Application);
  try
    Frm.Parent := MainForm.pnlApplets;
    ARDFrameList.Add(Frm);
    AStream := TMemoryStream.Create;
    try
      AReport.PreviewPages.SaveToStream(AStream); //AReport.EMFPages.SaveToStream(AStream);
      AStream.Position := 0;
      Frm.frRealReport.PreviewPages.LoadFromStream(AStream);//Frm.frRealReport.EMFPages.LoadFromStream(AStream);

      Frm.frRealReport.ReportOptions.Name :=  AReport.ReportOptions.Name; //Frm.frRealReport.caTitle := AReport.Title;
      Frm.frRealReport.ShowPreparedReport;
      Frm.frRealReport.PreviewForm.Parent := Frm.pnlFrame;
      Frm.frRealReport.PreviewForm.BorderStyle := bsNone;
      Frm.frRealReport.PreviewForm.Align := alClient;
      TfrxPreviewForm(Frm.frRealReport.PreviewForm).CancelB.Visible := false;
      TfrxPreviewForm(Frm.frRealReport.PreviewForm).PopupMenu.Items[1].Visible := false;
      TfrxPreviewForm(Frm.frRealReport.PreviewForm).PopupMenu.Items[0].Visible := false;
      TfrxPreviewForm(Frm.frRealReport.PreviewForm).PopupMenu.OwnerDraw := true;
      TfrxPreviewForm(Frm.frRealReport.PreviewForm).PopupMenu.ParentBiDiMode := true;

      Frm.Caption := Frm.frRealReport.ReportOptions.Name;
      MainForm.AddReportToPPM(Frm);
    finally
      AStream.Free;
    end;
    Frm.MakeFloatClone;
    Frm.Show;
    Frm.SetFocus;
  except
    MainForm.DelReportFromPPM(Frm);
    Frm.Free;
    raise;
  end;
end;

JetuS

Zoran написал: »

Я сделал отдельную форму и на на нее вывел стандартное превью. Получилось в нужном окне и с кнопками

Большое спасибо!!!
Всё заработало, ура!

bn1978

Можешь попробовать эту вещь:
TfrxBNPreviewToolBar