| Class TPPreviewForm (unit PPreview) |
TForm
| Constructors |
| Functions |
procedure clear;
procedure FilePreview1PageChange(Sender: TObject);
procedure FilePreview1ZoomChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
Procedure Home;
procedure Image1DblClick(Sender: TObject);
procedure PageEditExit(Sender: TObject);
procedure PageEditKeyPress(Sender: TObject; var Key: Char);
procedure PrintCENTER(Text: string);
procedure PrintFooter(Text: string;Justify: TPrintJustify);
procedure Println(Text: string);
procedure printpage(pagenumber:integer);
procedure SBDoneClick(Sender: TObject);
procedure SBFirstPageClick(Sender: TObject);
procedure SBLastPageClick(Sender: TObject);
procedure SBNextPageClick(Sender: TObject);
procedure SBPrevPageClick(Sender: TObject);
procedure SBPrintClick(Sender: TObject);
procedure SBZoomInClick(Sender: TObject);
procedure SBZoomOutClick(Sender: TObject);
procedure SBZoomPageClick(Sender: TObject);
procedure SBZoomPageWidthClick(Sender: TObject);
procedure SetFont(f:string;s:integer);
procedure TabSet1Click(Sender: TObject);
procedure ZoomEditChange(Sender: TObject);
Function checkpage(tmp:string):integer;
procedure ClearTabs;
function ConvX(x : integer) : integer;
function ConvY(y : integer) : integer;
procedure dosetup;
procedure DrawMargins;
procedure ExecuteCustom(frm,tto,copies:Integer);
Procedure PrintTxt (Txt: string);
procedure processtxt(Txt: string);
procedure ResetPrinter;
procedure SetSize( pixelsperinch : longint );
PROCEDURE SETTAB(S:STRING);| Properties |
| Events |
| Variables |
Aborted : boolean;
currentpage : integer;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Mcanvas : tcanvas;
PageEdit : TEdit;
PageLabel : TLabel;
Panel2 : TPanel;
PrintDialog1 : TPrintDialog;
resox : real;
resoy : real;
SBDone : TSpeedButton;
SBFirstPage : TSpeedButton;
SBLastPage : TSpeedButton;
SBNextPage : TSpeedButton;
SBPrevPage : TSpeedButton;
SBPrint : TSpeedButton;
SBZoomIn : TSpeedButton;
SBZoomOut : TSpeedButton;
SBZoomPage : TSpeedButton;
SBZoomPageWidth : TSpeedButton;
ScrollBox1 : TScrollBox;
Showmargin : boolean;
TabSet1 : TTabSet;
ToPrinter : Boolean;
ZoomEdit : TEdit;
bold : boolean;
bottommargin : Integer;
center : boolean;
FOnPrintFooter : TnotifyEvent;
FONTHEIGHt : integer;
italic : boolean;
Leftmargin : Integer;
Maxx : longint;
Maxy : longint;
Mtabs : TMtabs;
OffsetX : longint;
OffsetY : longint;
pages : array[1..99] of integer;
Prevw : TPreview;
rightjustify : boolean;
rightmargin : Integer;
screenScaleX : real;
screenScaleY : real;
Tabct : integer;
topmargin : Integer;
totalpages : integer;
twipX : real;
twipY : real;
wherex : integer;
wherey : integer;
zoom : integer;
ZoomFactor : real;| Constructors |
| Functions |
procedure clear;fontheight +
procedure FilePreview1PageChange(Sender: TObject);
procedure FilePreview1ZoomChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
Procedure Home;
procedure Image1DblClick(Sender: TObject);
procedure PageEditExit(Sender: TObject);
procedure PageEditKeyPress(Sender: TObject; var Key: Char);case
procedure PrintCENTER(Text: string);/ resox
procedure PrintFooter(Text: string;Justify: TPrintJustify);there is a way to print!
procedure Println(Text: string);ShadeToColor
procedure printpage(pagenumber:integer);
procedure SBDoneClick(Sender: TObject);
procedure SBFirstPageClick(Sender: TObject);with
procedure SBLastPageClick(Sender: TObject);
procedure SBNextPageClick(Sender: TObject);
procedure SBPrevPageClick(Sender: TObject);
procedure SBPrintClick(Sender: TObject);
procedure SBZoomInClick(Sender: TObject);
procedure SBZoomOutClick(Sender: TObject);
procedure SBZoomPageClick(Sender: TObject);
procedure SBZoomPageWidthClick(Sender: TObject);
procedure SetFont(f:string;s:integer);tabset1.tabs.clear;
procedure TabSet1Click(Sender: TObject);
procedure ZoomEditChange(Sender: TObject);
Function checkpage(tmp:string):integer;
procedure ClearTabs;
function ConvX(x : integer) : integer;
function ConvY(y : integer) : integer;
procedure dosetup;
procedure DrawMargins;PrintFooter
procedure ExecuteCustom(frm,tto,copies:Integer);
Procedure PrintTxt (Txt: string);scrollbox1.vertscrollbar.range := Image1.height + 10;
procedure processtxt(Txt: string);
procedure ResetPrinter;
procedure SetSize( pixelsperinch : longint );end;} { LeftMargin := FLeftWaste; RightMargin := FrightWaste; TopMargin := FTopWaste; BottomMargin := FbottomWaste;
PROCEDURE SETTAB(S:STRING);| Properties |
| Events |
| Variables |
Aborted : boolean;
currentpage : integer;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Mcanvas : tcanvas;
PageEdit : TEdit;
PageLabel : TLabel;
Panel2 : TPanel;
PrintDialog1 : TPrintDialog;
resox : real;
resoy : real;
SBDone : TSpeedButton;
SBFirstPage : TSpeedButton;
SBLastPage : TSpeedButton;
SBNextPage : TSpeedButton;
SBPrevPage : TSpeedButton;
SBPrint : TSpeedButton;
SBZoomIn : TSpeedButton;
SBZoomOut : TSpeedButton;
SBZoomPage : TSpeedButton;
SBZoomPageWidth : TSpeedButton;
ScrollBox1 : TScrollBox;
Showmargin : boolean;
TabSet1 : TTabSet;
ToPrinter : Boolean;
ZoomEdit : TEdit;
bold : boolean;
bottommargin : Integer;
center : boolean;
FOnPrintFooter : TnotifyEvent;
FONTHEIGHt : integer;
italic : boolean;
Leftmargin : Integer;
Maxx : longint;
Maxy : longint;
Mtabs : TMtabs;
OffsetX : longint;
OffsetY : longint;
pages : array[1..99] of integer;
Prevw : TPreview;
rightjustify : boolean;
rightmargin : Integer;
screenScaleX : real;
screenScaleY : real;
Tabct : integer;
topmargin : Integer;
totalpages : integer;
twipX : real;
twipY : real;
wherex : integer;
wherey : integer;
zoom : integer;
ZoomFactor : real;