Class TPreviewForm (unit PrevForm)

Inherits from

TForm

Constructors



Functions

procedure CloseButClick(Sender: TObject);


procedure FirstPageSpeedClick(Sender: TObject);


procedure FitPageButClick(Sender: TObject);


procedure FitWidthButClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GridButClick(Sender: TObject);

PB2

procedure HandCursorButClick(Sender: TObject);


procedure LastPageSpeedClick(Sender: TObject);


procedure NextPageButClick(Sender: TObject);


procedure OnePageButMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PageNumSpeedClick(Sender: TObject);


procedure PB1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PB1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure PB1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PBPaint(Sender: TObject);


procedure PrevPageButClick(Sender: TObject);


procedure PrintButClick(Sender: TObject);


procedure ScrollBox1Resize(Sender: TObject);


procedure TwoPageButClick(Sender: TObject);


procedure ZoomBoxChange(Sender: TObject);


procedure ZoomCursorButClick(Sender: TObject);


procedure CheckEnable;


procedure DrawMetaFile(PB: TPaintBox; mf: TMetaFile);

Set the Zoom Variable

procedure OnHint(Sender: TObject);


procedure SetCurPage(Val: integer);


Properties

property CurPage : integer


Events

Variables

AboutBut : TButton;


CloseBut : TButton;


ContainPanel : TPanel;


CurPageLabel : TPanel;


FirstPageSpeed : TSpeedButton;


FitPageBut : TSpeedButton;


FitWidthBut : TSpeedButton;


GridBut : TSpeedButton;


HandCursorBut : TSpeedButton;


HintLabel : TLabel;


LastPageSpeed : TSpeedButton;


MoveButPanel : TPanel;


NextPageBut : TButton;


NextPageSpeed : TSpeedButton;


OnePageBut : TSpeedButton;


PageNumSpeed : TSpeedButton;


PagePanel : TPanel;


PagePanel2 : TPanel;


Panel1 : TPanel;


PB1 : TPaintBox;


PB2 : TPaintBox;


PrevPageBut : TButton;


PrevPageSpeed : TSpeedButton;


PrintBut : TButton;


PrintDialog1 : TPrintDialog;


ScrollBox1 : TScrollBox;


StatBarPanel : TPanel;


ToolBarPanel : TPanel;


TwoPageBut : TSpeedButton;


ZoomBox : TComboBox;


ZoomCursorBut : TSpeedButton;


ZoomLabel : TPanel;


PrevPrinter : TPreviewPrinter;


Zoom : double;


DownX : integer;


DownY : integer;


FCurPage : integer;


Moving : boolean;


OldHint : TNotifyEvent;



Constructors


Functions


procedure CloseButClick(Sender: TObject);


procedure FirstPageSpeedClick(Sender: TObject);


procedure FitPageButClick(Sender: TObject);


procedure FitWidthButClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GridButClick(Sender: TObject);

PB2


procedure HandCursorButClick(Sender: TObject);


procedure LastPageSpeedClick(Sender: TObject);


procedure NextPageButClick(Sender: TObject);


procedure OnePageButMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PageNumSpeedClick(Sender: TObject);


procedure PB1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PB1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure PB1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PBPaint(Sender: TObject);


procedure PrevPageButClick(Sender: TObject);


procedure PrintButClick(Sender: TObject);


procedure ScrollBox1Resize(Sender: TObject);


procedure TwoPageButClick(Sender: TObject);


procedure ZoomBoxChange(Sender: TObject);


procedure ZoomCursorButClick(Sender: TObject);


procedure CheckEnable;


procedure DrawMetaFile(PB: TPaintBox; mf: TMetaFile);

Set the Zoom Variable


procedure OnHint(Sender: TObject);


procedure SetCurPage(Val: integer);


Properties


property CurPage : integer


Events


Variables


AboutBut : TButton;


CloseBut : TButton;


ContainPanel : TPanel;


CurPageLabel : TPanel;


FirstPageSpeed : TSpeedButton;


FitPageBut : TSpeedButton;


FitWidthBut : TSpeedButton;


GridBut : TSpeedButton;


HandCursorBut : TSpeedButton;


HintLabel : TLabel;


LastPageSpeed : TSpeedButton;


MoveButPanel : TPanel;


NextPageBut : TButton;


NextPageSpeed : TSpeedButton;


OnePageBut : TSpeedButton;


PageNumSpeed : TSpeedButton;


PagePanel : TPanel;


PagePanel2 : TPanel;


Panel1 : TPanel;


PB1 : TPaintBox;


PB2 : TPaintBox;


PrevPageBut : TButton;


PrevPageSpeed : TSpeedButton;


PrintBut : TButton;


PrintDialog1 : TPrintDialog;


ScrollBox1 : TScrollBox;


StatBarPanel : TPanel;


ToolBarPanel : TPanel;


TwoPageBut : TSpeedButton;


ZoomBox : TComboBox;


ZoomCursorBut : TSpeedButton;


ZoomLabel : TPanel;


PrevPrinter : TPreviewPrinter;


Zoom : double;


DownX : integer;


DownY : integer;


FCurPage : integer;


Moving : boolean;


OldHint : TNotifyEvent;