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

Комментарии

• alex_ss1

  November 2011 отредактировано 05:49

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

  November 2011 отредактировано 05:49

  написал:

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

  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

  November 2011 отредактировано 05:49

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