| Class TPreviewForm (unit PrevForm) |
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);
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);
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;