sailpreview.pas

ceshixitongzhuceshifouwanshan

unit sailpreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin,sailreport,StrUtils, ExtCtrls, Buttons,printers, CustomSailPrint,StdCtrls;

type
  Tpreviewfrm = class(TForm)
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton17: TToolButton;
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Image1: TImage;
    StatusBar1: TStatusBar;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    ImageList3: TImageList;
    ToolButton8: TToolButton;
    Bevel1: TBevel;
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);

  private
     SailReport:TSailReport;
  public
    constructor Create(AOwner: TComponent;sender:TSailReport); 
  end;

var
    previewfrm: Tpreviewfrm;

implementation
{$R *.dfm}

constructor Tpreviewfrm.Create(AOwner: TComponent; sender:TSailReport);
begin
  inherited create(aowner);
  SailReport:=sender;
end;
procedure Tpreviewfrm.ToolButton6Click(Sender: TObject);
begin
  previewfrm.StatusBar1.Panels[1].Text:=inttostr(SailReport.PreviewPage(self.Image1,strtoint(previewfrm.StatusBar1.Panels[1].Text)+1));
end;

procedure Tpreviewfrm.ToolButton7Click(Sender: TObject);
begin
  previewfrm.StatusBar1.Panels[1].Text:=inttostr(SailReport.PreviewPage(self.Image1,SailReport.GetPageCount));
end;

procedure Tpreviewfrm.ToolButton5Click(Sender: TObject);
begin
  previewfrm.StatusBar1.Panels[1].Text:=inttostr(SailReport.PreviewPage(self.Image1,strtoint(previewfrm.StatusBar1.Panels[1].Text)-1));
end;

procedure Tpreviewfrm.ToolButton4Click(Sender: TObject);

begin
  previewfrm.StatusBar1.Panels[1].Text:=inttostr(SailReport.PreviewPage(self.Image1,1));
end;

procedure Tpreviewfrm.ToolButton3Click(Sender: TObject);
var i:variant;
begin
  i:=image1.Width/image1.Height;
  image1.Width:=ScrollBox1.ClientWidth-30;
  image1.Height:=image1.Width/i;
  Panel1.WIDTH:=Image1.Width+2;
  Panel1.height:=Image1.Height+2;
  Panel1.Left:=(ScrollBox1.ClientWidth-Panel1.WIDTH) div 2;
  ToolButton1.Down:=false;
  ToolButton2.Down:=false;
end;

procedure Tpreviewfrm.ToolButton1Click(Sender: TObject);
var i:variant;
begin
  i:=image1.Height/image1.Width;
  image1.Height:=ScrollBox1.ClientHeight-10;
  image1.Width:=image1.Height/i;
  Panel1.WIDTH:=Image1.Width+2;
  Panel1.height:=Image1.Height+2;
  Panel1.Left:=(ScrollBox1.ClientWidth-Panel1.WIDTH) div 2;
  ToolButton3.Down:=false;
  ToolButton2.Down:=false;
end;

procedure Tpreviewfrm.FormClose(Sender: TObject; var Action: TCloseAction);
var I:integer;
begin
Action:=cafree;
previewfrm:=nil;
end;

procedure Tpreviewfrm.SpeedButton1Click(Sender: TObject);
var I:integer;
begin
previewfrm.Close;
end;

procedure Tpreviewfrm.ToolButton2Click(Sender: TObject);
begin
  image1.Width:=image1.Picture.Width;
  image1.Height:=image1.Picture.Height;
  Panel1.WIDTH:=Image1.Width+2;
  Panel1.height:=Image1.Height+2;
  Panel1.Left:=(ScrollBox1.ClientWidth-Panel1.WIDTH) div 2;
  Panel1.Left:=1;
  ToolButton1.Down:=false;
  ToolButton3.Down:=false;
end;

procedure Tpreviewfrm.ToolButton9Click(Sender: TObject);
begin
SailReport.Print;
end;

procedure Tpreviewfrm.ToolButton10Click(Sender: TObject);
begin
  if SaveDialog1.Execute then  SailReport.SaveToFile(SaveDialog1.FileName);
end;

procedure Tpreviewfrm.ToolButton11Click(Sender: TObject);
begin
if OpenDialog1.Execute then SailReport.LoadFromFile(SaveDialog1.FileName);
end;

procedure Tpreviewfrm.ToolButton8Click(Sender: TObject);
begin
self.Close;
end;

end.