rpreview.pas

this is sample for traders

unit RPreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FR_Ctrls, ExtCtrls, frxClass, frxPreview, StdCtrls, NumEdit,
  frxExportXLS, frxExportRTF, frxExportPDF;

type
  TRPreviewForm = class(TForm)
    frxPreview1: TfrxPreview;
    Panel1: TPanel;
    frSpeedButton1: TfrSpeedButton;
    frSpeedButton2: TfrSpeedButton;
    frSpeedButton3: TfrSpeedButton;
    frSpeedButton4: TfrSpeedButton;
    frSpeedButton5: TfrSpeedButton;
    frSpeedButton6: TfrSpeedButton;
    frSpeedButton7: TfrSpeedButton;
    frSpeedButton10: TfrSpeedButton;
    PageN: TNumEdit;
    frxXLSExport1: TfrxXLSExport;
    frSpeedButton8: TfrSpeedButton;
    frxRTFExport1: TfrxRTFExport;
    frxPDFExport1: TfrxPDFExport;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure frSpeedButton10Click(Sender: TObject);
    procedure frSpeedButton2Click(Sender: TObject);
    procedure frSpeedButton1Click(Sender: TObject);
    procedure frSpeedButton3Click(Sender: TObject);
    procedure frSpeedButton4Click(Sender: TObject);
    procedure frSpeedButton5Click(Sender: TObject);
    procedure frSpeedButton6Click(Sender: TObject);
    procedure frSpeedButton7Click(Sender: TObject);
    procedure frxPreview1PageChanged(Sender: TfrxPreview; PageNo: Integer);
    procedure frSpeedButton8Click(Sender: TObject);
  private
  public
  end;

var
  RPreviewForm: TRPreviewForm;

implementation

{$R *.dfm}

procedure TRPreviewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TRPreviewForm.frSpeedButton10Click(Sender: TObject);
begin
  frxPreview1.Report.Print;
  //frxPreview1.Print;
end;

procedure TRPreviewForm.frSpeedButton2Click(Sender: TObject);
begin
  frxPreview1.ZoomMode := zmDefault;
end;

procedure TRPreviewForm.frSpeedButton1Click(Sender: TObject);
begin
  frxpreview1.ZoomMode:=zmWholePage;
end;

procedure TRPreviewForm.frSpeedButton3Click(Sender: TObject);
begin
  frxPreview1.ZoomMode:=zmPageWidth;
end;

procedure TRPreviewForm.frSpeedButton4Click(Sender: TObject);
begin
  frxpreview1.First;
end;

procedure TRPreviewForm.frSpeedButton5Click(Sender: TObject);
begin
  frxpreview1.Prior;
end;

procedure TRPreviewForm.frSpeedButton6Click(Sender: TObject);
begin
  frxpreview1.Next;
end;

procedure TRPreviewForm.frSpeedButton7Click(Sender: TObject);
begin
  frxpreview1.Last;
end;

procedure TRPreviewForm.frxPreview1PageChanged(Sender: TfrxPreview;
  PageNo: Integer);
begin
  PageN.Value:=PageNo;
end;

procedure TRPreviewForm.frSpeedButton8Click(Sender: TObject);
begin
  //frxpreview1.Report.PrepareReport(true);
  //frxXLSExport1.CurPage:=False;
  //frxpreview1.Report.Export(frxXLSExport1);
  frxpreview1.Report.Export(frxPDFExport1);
  self.Close;
end;

end.