;  SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton2: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ToolButton6: TToolButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ToolButton7: TToolButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ToolButton8: TToolButton;
    SpeedButton9: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
  private
  FPageCount : integer;  //生成报表的总页数
    { Private declarations }
  public
  CurRep : TQuickRep;    // 所预览的报表
  procedure UpdatePanelShow;  //更新显示
    { Public declarations }
  end;

var
  Form_MyPreview: TForm_MyPreview;

implementation

{$R *.DFM}

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

procedure TForm_MyPreview.ToolButton2Click(Sender: TObject);
begin
  QRPreview1.ZoomToFit;
  //缩放至全屏
end;

procedure TForm_MyPreview.FormCreate(Sender: TObject);
begin
  ToolButton4.Down:=true;
end;

procedure TForm_MyPreview.ToolButton3Click(Sender: TObject);
begin
  QRPreview1.Zoom:=100;
end;

procedure TForm_MyPreview.UpdatePanelShow;
begin   
     StatusBar1.Panels.text :=
'' 第 ''+inttostr(QRPreview1.PageNumber)+
   '' 页  总 ''+inttostr(FPageCount)+'' 页'';
end;


procedure TF