preview.pas

导出ORACLE 8/9系列的表空间结构并打印

unit Preview;

interface

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

type
  TFrmPreview = class(TForm)
    suiForm1: TsuiForm;
    frPreview1: TfrPreview;
    suiToolBar1: TsuiToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    suiStatusBar1: TsuiStatusBar;
    procedure FormActivate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    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
  ToolButton1.Down := True;
  ToolButton1Click(nil);
end;

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

procedure TFrmPreview.ToolButton1Click(Sender: TObject);
begin
  frPreview1.Zoom := 100;
  ToolButton1.Down := true ;
  ToolButton2.Down := false ;
  ToolButton3.Down := false ;
end;

procedure TFrmPreview.ToolButton2Click(Sender: TObject);
begin
  frPreview1.OnePage;
  ToolButton2.Down := true ;
  ToolButton1.Down := false ;
  ToolButton3.Down := false ;
end;

procedure TFrmPreview.ToolButton3Click(Sender: TObject);
begin
  frPreview1.PageWidth;
  ToolButton3.Down := true ;
  ToolButton2.Down := false ;
  ToolButton1.Down := false ;
end;

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

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

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

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

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

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

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

procedure TFrmPreview.ToolButton14Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

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

end.