Инициализация директории сохранения отчета

alex_ss1

Добрый день!

Открываю отчет командой ShowPreparedReport. Вношу изменения через дизайнер, закрываю дизайнер, затем хочу сохранить итоговый отчет в файл. Нажимаю кнопку с дискетой (значок в верхней панели). При этом открывается диалоговое окно "Сохранить как"... и путь по-умолчанию ведет в произвольную директорию.
Каким образом программно инициализировать путь к нужной мне директории для диалогового окна "Сохранить как"? (по аналогии с OpenDialog.InitialDir)

alex_ss1

Служба поддержки, отзовитесь, пожалуйста.
Вопрос, вроде бы простой?!

gpi

написал:

Служба поддержки, отзовитесь, пожалуйста.

http://www.fast-report.com/ru/support/ticket_list.php
или support@fast-report.com

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, frxPreview, frxRes;

type
  TForm1 = class(TForm)
    frxReport1: TfrxReport;
    frxPreview1: TfrxPreview;
    procedure frxReport1Preview(Sender: TObject);
    procedure MySaveEvent(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.frxReport1Preview(Sender: TObject);
begin
     TfrxPreviewForm(frxReport1.PreviewForm).SaveB.OnClick := MySaveEvent;
end;

procedure TForm1.MySaveEvent(Sender: TObject);
var
  SaveDlg: TSaveDialog;
begin
  if frxReport1.Engine.Running  then Exit;
  SaveDlg := TSaveDialog.Create(Application);
  try
    SaveDlg.InitialDir := 'C:\';
    SaveDlg.Options := SaveDlg.Options + [ofNoChangeDir];
    SaveDlg.Filter := frxResources.Get('clFP3files') + ' (*.fp3)|*.fp3';
    if SaveDlg.Execute then
    begin
      TfrxPreview(frxReport1.Preview).Workspace.Repaint;
      frxReport1.PreviewPages.SaveToFile(ChangeFileExt(SaveDlg.FileName, '.fp3'));
    end;
  finally
    SaveDlg.Free;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     frxREport1.ShowReport();
end;

end.

alex_ss1

Спасибо большое! Все работает!