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

отредактировано November 2011 Раздел: FastReport 4.0
Добрый день!

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

Комментарии

  • отредактировано 12:12
    Служба поддержки, отзовитесь, пожалуйста.
    Вопрос, вроде бы простой?!
  • gpigpi
    отредактировано 12:12
    написал:
    Служба поддержки, отзовитесь, пожалуйста.
    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.
    
  • отредактировано 12:12
    Спасибо большое! Все работает!

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.