Class TPPreviewForm (unit PPreview)

Inherits from

TForm

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.

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.

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;



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;