main.pas

来自「FastReport 设计器一般都在delphi IDE中」· PAS 代码 · 共 218 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  frxDesgn, frxClass, Menus, ExtCtrls, frxExportTXT, frxChart,
  frxDBXComponents, frxDBSet, frxBDEComponents, frxADOComponents, frxCrypt,
  frxGZip, frxDCtrl, frxDMPExport, frxGradient, frxChBox, frxCross,
  frxRich, frxOLE, frxBarcode, frxExportCSV, frxExportImage, frxExportMail,
  frxExportODF, frxExportPDF, frxExportXML, frxExportXLS, frxExportHTML,
  frxExportText, frxExportRTF;

type
  TfrmMain = class(TForm)
    frxReport: TfrxReport;
    frxDesigner: TfrxDesigner;
    mnuMain: TMainMenu;
    mnuFile: TMenuItem;
    NewMI: TMenuItem;
    OpenMI: TMenuItem;
    SaveMI: TMenuItem;
    SaveasMI: TMenuItem;
    mnuFileBreak2: TMenuItem;
    PreviewMI: TMenuItem;
    PagesettingsMI: TMenuItem;
    mnuFileBreak3: TMenuItem;
    ExitMI: TMenuItem;
    mnuEdit: TMenuItem;
    UndoMI: TMenuItem;
    RedoMI: TMenuItem;
    mnuEditBreak1: TMenuItem;
    CutMI: TMenuItem;
    CopyMI: TMenuItem;
    PasteMI: TMenuItem;
    mnuEditBreak2: TMenuItem;
    DeleteMI: TMenuItem;
    DeletePageMI: TMenuItem;
    SelectAllMI: TMenuItem;
    GroupMI: TMenuItem;
    UngroupMI: TMenuItem;
    EditMI: TMenuItem;
    N5: TMenuItem;
    BringtoFrontMI: TMenuItem;
    SendtoBackMI: TMenuItem;
    mnuEditBreak3: TMenuItem;
    FindMI: TMenuItem;
    ReplaceMI: TMenuItem;
    FindNextMI: TMenuItem;
    mnuReport: TMenuItem;
    DataMI: TMenuItem;
    VariablesMI: TMenuItem;
    StylesMI: TMenuItem;
    ReportOptionsMI: TMenuItem;
    mnuView: TMenuItem;
    ToolbarsMI: TMenuItem;
    mnuViewBreak1: TMenuItem;
    RulersMI: TMenuItem;
    GuidesMI: TMenuItem;
    DeleteGuidesMI: TMenuItem;
    mnuViewBreak2: TMenuItem;
    OptionsMI: TMenuItem;
    StandardMI: TMenuItem;
    TextMI: TMenuItem;
    FrameMI: TMenuItem;
    AlignmentPaletteMI: TMenuItem;
    ObjectInspectorMI: TMenuItem;
    DataTreeMI: TMenuItem;
    ReportTreeMI: TMenuItem;
    mnuHelp: TMenuItem;
    HelpContentsMI: TMenuItem;
    AboutFastReportMI: TMenuItem;
    mnuFileBreak1: TMenuItem;
    NewReportMI: TMenuItem;
    NewPageMI: TMenuItem;
    NewDialogMI: TMenuItem;
    frxBMPExport: TfrxBMPExport;
    frxJPEGExport: TfrxJPEGExport;
    frxTIFFExport: TfrxTIFFExport;
    frxRTFExport: TfrxRTFExport;
    frxSimpleTextExport: TfrxSimpleTextExport;
    frxHTMLExport: TfrxHTMLExport;
    frxXLSExport: TfrxXLSExport;
    frxXMLExport: TfrxXMLExport;
    frxPDFExport: TfrxPDFExport;
    frxODSExport: TfrxODSExport;
    frxODTExport: TfrxODTExport;
    frxMailExport: TfrxMailExport;
    frxGIFExport: TfrxGIFExport;
    frxCSVExport: TfrxCSVExport;
    frxUserDataSet: TfrxUserDataSet;
    frxBarCodeObject: TfrxBarCodeObject;
    frxOLEObject: TfrxOLEObject;
    frxRichObject: TfrxRichObject;
    frxCrossObject: TfrxCrossObject;
    frxCheckBoxObject: TfrxCheckBoxObject;
    frxGradientObject: TfrxGradientObject;
    frxDotMatrixExport: TfrxDotMatrixExport;
    frxDialogControls: TfrxDialogControls;
    frxGZipCompressor: TfrxGZipCompressor;
    frxCrypt: TfrxCrypt;
    frxADOComponents: TfrxADOComponents;
    frxBDEComponents: TfrxBDEComponents;
    frxDBDataset: TfrxDBDataset;
    frxDBXComponents: TfrxDBXComponents;
    frxChartObject: TfrxChartObject;
    frxTXTExport: TfrxTXTExport;
    procedure FormShow(Sender: TObject);
    procedure ExitMIClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AboutFastReportMIClick(Sender: TObject);
    procedure HelpContentsMIClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

uses frxRes;

procedure TfrmMain.FormShow(Sender: TObject);
var
  Designer: TfrxDesignerForm;
begin
  // prevent saving/restoring a report when previewing. This will destroy
  // objects that are loaded in the designer and will lead to AV.
  frxReport.EngineOptions.DestroyForms := False;
  // set the custom preview
//  frxReport.Preview := frxPreview;
  // display the designer
//  frxReport.DesignReportInPanel(panelDesigner);
  frxReport.DesignReportInPanel(Self);

  // set FR images for our menu
  mnuMain.Images := frxResources.MainButtonImages;
  // get the reference to the Designer
  Designer := TfrxDesignerForm(frxReport.Designer);

  // assign FR actions to our menu items
  NewMI.Action := Designer.NewItemCmd;
  NewReportMI.Action := Designer.NewReportCmd;
  NewPageMI.Action := Designer.NewPageCmd;
  NewDialogMI.Action := Designer.NewDialogCmd;
  OpenMI.Action := Designer.OpenCmd;
  SaveMI.Action := Designer.SaveCmd;
  SaveasMI.Action := Designer.SaveAsCmd;
  PreviewMI.Action := Designer.PreviewCmd;
  PageSettingsMI.Action := Designer.PageSettingsCmd;

  UndoMI.Action := Designer.UndoCmd;
  RedoMI.Action := Designer.RedoCmd;
  CutMI.Action := Designer.CutCmd;
  CopyMI.Action := Designer.CopyCmd;
  PasteMI.Action := Designer.PasteCmd;
  DeleteMI.Action := Designer.DeleteCmd;
  DeletePageMI.Action := Designer.DeletePageCmd;
  SelectAllMI.Action := Designer.SelectAllCmd;
  GroupMI.Action := Designer.GroupCmd;
  UngroupMI.Action := Designer.UngroupCmd;
  EditMI.Action := Designer.EditCmd;
  FindMI.Action := Designer.FindCmd;
  ReplaceMI.Action := Designer.ReplaceCmd;
  FindNextMI.Action := Designer.FindNextCmd;
  BringtoFrontMI.Action := Designer.BringToFrontCmd;
  SendtoBackMI.Action := Designer.SendToBackCmd;

  DataMI.Action := Designer.ReportDataCmd;
  VariablesMI.Action := Designer.VariablesCmd;
  StylesMI.Action := Designer.ReportStylesCmd;
  ReportOptionsMI.Action := Designer.ReportOptionsCmd;

  ToolbarsMI.Action := Designer.ToolbarsCmd;
  StandardMI.Action := Designer.StandardTBCmd;
  TextMI.Action := Designer.TextTBCmd;
  FrameMI.Action := Designer.FrameTBCmd;
  AlignmentPaletteMI.Action := Designer.AlignTBCmd;
  ObjectInspectorMI.Action := Designer.InspectorTBCmd;
  DataTreeMI.Action := Designer.DataTreeTBCmd;
  ReportTreeMI.Action := Designer.ReportTreeTBCmd;
  RulersMI.Action := Designer.ShowRulersCmd;
  GuidesMI.Action := Designer.ShowGuidesCmd;
  DeleteGuidesMI.Action := Designer.DeleteGuidesCmd;
  OptionsMI.Action := Designer.OptionsCmd;

  HelpContentsMI.Action := Designer.HelpContentsCmd;
  AboutFastReportMI.Action := Designer.AboutCmd;
end;

procedure TfrmMain.ExitMIClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frxReport.Designer.Close;
  Visible := False;
end;

procedure TfrmMain.AboutFastReportMIClick(Sender: TObject);
begin
//    MessageDlg('Report Designer'+#13+#10+#13+#10,mtInformation ,[mbOK],0);
end;

procedure TfrmMain.HelpContentsMIClick(Sender: TObject);
begin
//    MessageDlg('None.'+#13+#10+#13+#10,mtInformation ,[mbOK],0);
end;

end.