uprintview.pas

来自「天涯進銷存系統」· PAS 代码 · 共 112 行

unit uPrintview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LBCtrls, ExtCtrls, StdCtrls, FR_View, jpeg;

type
  TfrmPrintview = class(TForm)
    plToolbar: TPanel;
    RepSizeBox: TLBComboBox;
    RepPreview: TfrPreview;
    Image1: TImage;
    Shape22: TShape;
    Shape23: TShape;
    Panel2: TPanel;
    LBSpeecButton2: TLBSpeecButton;
    LBSpeecButton1: TLBSpeecButton;
    LBSpeecButton3: TLBSpeecButton;
    LBSpeecButton4: TLBSpeecButton;
    LBSpeecButton6: TLBSpeecButton;
    Image2: TImage;
    procedure RepSizeBoxChange(Sender: TObject);
    procedure LBSpeecButton1Click(Sender: TObject);
    procedure LBSpeecButton2Click(Sender: TObject);
    procedure LBSpeecButton3Click(Sender: TObject);
    procedure LBSpeecButton4Click(Sender: TObject);
    procedure LBSpeecButton6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrintview: TfrmPrintview;

implementation

uses uPublicvar;

{$R *.dfm}

procedure TfrmPrintview.RepSizeBoxChange(Sender: TObject);
begin
  case RepSizeBox.ItemIndex of
    0: RepPreview.Zoom := 200;
    1: RepPreview.Zoom := 150;
    2: RepPreview.Zoom := 100;
    3: RepPreview.Zoom := 75;
    4: RepPreview.Zoom := 50;
    5: RepPreview.Zoom := 35;
    6: RepPreview.PageWidth;
    7: RepPreview.OnePage;
    8: RepPreview.TwoPages
  end;
end;

procedure TfrmPrintview.LBSpeecButton1Click(Sender: TObject);
begin
  RepPreview.First;
end;

procedure TfrmPrintview.LBSpeecButton2Click(Sender: TObject);
begin
  RepPreview.Prev;
end;

procedure TfrmPrintview.LBSpeecButton3Click(Sender: TObject);
begin
  RepPreview.Next;
end;

procedure TfrmPrintview.LBSpeecButton4Click(Sender: TObject);
begin
  RepPreview.Last;
end;

procedure TfrmPrintview.LBSpeecButton6Click(Sender: TObject);
begin
  RepPreview.Print;
end;

procedure TfrmPrintview.FormActivate(Sender: TObject);
begin
  GetWindowsItem(Caption, Self);
end;

procedure TfrmPrintview.FormShow(Sender: TObject);
begin
  RepSizeBox.ItemIndex:=2;
end;

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

procedure TfrmPrintview.FormDestroy(Sender: TObject);
begin
  WindowItem.Delete(WindowItem.IndexOfObject(Self)); 
end;

end.