preview.pas

销售帐目管理

unit Preview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FR_View, FR_Ctrls, ExtCtrls, ComCtrls, FR_Dock, ToolWin,
  SUIToolBar, SUIStatusBar, SUIForm, ImgList, SUIDlg;

type
  TFrmPreview = class(TForm)
    suiForm1: TsuiForm;
    frPreview1: TfrPreview;
    suiStatusBar1: TsuiStatusBar;
    suiToolBar1: TsuiToolBar;
    btnZoom: TToolButton;
    btnAutoZoom: TToolButton;
    btnWidth: TToolButton;
    il1: TImageList;
    btn4: TToolButton;
    btnFirst: TToolButton;
    btnPrior: TToolButton;
    btnNext: TToolButton;
    btnLast: TToolButton;
    btn9: TToolButton;
    btnLoad: TToolButton;
    btnSave: TToolButton;
    btnPrint: TToolButton;
    btn13: TToolButton;
    btnClose: TToolButton;
    suiMessageDialog1: TsuiMessageDialog;
    procedure FormActivate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnZoomClick(Sender: TObject);
    procedure BtnAutoZoomClick(Sender: TObject);
    procedure BtnWidthClick(Sender: TObject);
    procedure BtnFirstClick(Sender: TObject);
    procedure BtnPriorClick(Sender: TObject);
    procedure BtnNextClick(Sender: TObject);
    procedure BtnLastClick(Sender: TObject);
    procedure BtnLoadClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure frPreview1PageChanged(Sender: TfrPreview; PageNo: Integer);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPreview: TFrmPreview;

implementation

uses PubUnit;

{$R *.dfm}

procedure TFrmPreview.FormActivate(Sender: TObject);
begin
  BtnZoom.Down := True;
  BtnZoomClick(nil);
end;

procedure TFrmPreview.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  frPreview1.Window.FormKeyDown(Sender, Key, Shift);
end;

procedure TFrmPreview.BtnZoomClick(Sender: TObject);
begin
  frPreview1.Zoom := 100;
  btnZoom.Down := True ;
  btnAutoZoom.Down := False ;
  btnWidth.Down := False ;
end;

procedure TFrmPreview.BtnAutoZoomClick(Sender: TObject);
begin
  frPreview1.OnePage;
  btnZoom.Down := False ;
  btnAutoZoom.Down := True ;
  btnWidth.Down := False ;
end;

procedure TFrmPreview.BtnWidthClick(Sender: TObject);
begin
  frPreview1.PageWidth;
  btnZoom.Down := False ;
  btnAutoZoom.Down := False ;
  btnWidth.Down := True ;
end;

procedure TFrmPreview.BtnFirstClick(Sender: TObject);
begin
  frPreview1.First;
end;

procedure TFrmPreview.BtnPriorClick(Sender: TObject);
begin
  frPreview1.Prev;
end;

procedure TFrmPreview.BtnNextClick(Sender: TObject);
begin
  frPreview1.Next;
end;

procedure TFrmPreview.BtnLastClick(Sender: TObject);
begin
  frPreview1.Last;
end;

procedure TFrmPreview.BtnLoadClick(Sender: TObject);
begin
  frPreview1.LoadFromFile;
end;

procedure TFrmPreview.BtnSaveClick(Sender: TObject);
begin
  frPreview1.SaveToFile;
end;

procedure TFrmPreview.BtnPrintClick(Sender: TObject);
begin
  frPreview1.Print;
end;

procedure TFrmPreview.BtnCloseClick(Sender: TObject);
begin
  Close ;
end;

procedure TFrmPreview.frPreview1PageChanged(Sender: TfrPreview;
  PageNo: Integer);
begin
  suiStatusBar1.SimpleText := '共'+IntToStr(frPreview1.Page)+'页，第'+
                              IntToStr(PageNo)+'页';  
end;

procedure TFrmPreview.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := suiMessageDialog1.ShowModal = mrYes ; 
end;

procedure TFrmPreview.FormCreate(Sender: TObject);
begin
  ChangeInterface(self,suiForm1);
end;

end.