Предварительный просмотр, сохранить, указать имя файла для сохранения Fp3

KanTomsk

Здравствуйте! Построили отчет, отобразили его в окне предварительного просмотра, нажали кнопку "Сохранить", открылось окно сохранения готового отчета fp3. Имя файла не заполнено. Как предварительно заполнить имя файла в окне "Сохранить как" готового отчета fp3? При экспорте за это отвечает свойство frxReport.FileName. А для сохранения fp3 как программно указать имя файла?

gpi

Для сохранения аналогично

Следующий обработчик переопределяет обработчик кнопки "Открыть"
uses frxClass, frxPreview, frxPreviewPages, frxRes;

type
 TForm1 = class(TForm)
   frxReport1: TfrxReport;
   procedure frxReport1Preview(Sender: TObject);
   procedure NewOnClick(Sender: TObject);
 end;

var
 Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.frxReport1Preview(Sender: TObject);
begin
 if frxReport1.PreviewForm is TfrxPreviewForm then
    begin
     TfrxPreviewForm(frxReport1.PreviewForm).OpenB.OnClick := NewOnClick;
     TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[4].OnClick := NewOnClick;
    end;
end;

procedure TForm1.NewOnClick(Sender: TObject);
 var
 OpenDlg: TOpenDialog;
begin
 if frxReport1.Engine.Running then Exit;
 OpenDlg := TOpenDialog.Create(nil);
 try
   OpenDlg.Options := [ofHideReadOnly];
   OpenDlg.Filter := frxResources.Get('clFP3files') + ' (*.fp3)|*.fp3';
   if OpenDlg.Execute then
   begin
     TfrxPreview(frxReport1.Preview).LoadFromFile(OpenDlg.FileName);
     frxReport1.PreviewForm.Caption := OpenDlg.FileName;
   end;
 finally
   OpenDlg.Free;
 end;
end;

end.

KanTomsk

Спасибо!