| Class TPreview (unit PPreview) |
TComponent
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
Procedure Abort;
Procedure ClearTabs;
procedure CRLF;
Destructor Destroy;
Function Execute: boolean;
procedure home;
procedure Newpage;
procedure Print(Text: string);
procedure PrintCENTER(Text: string;n: reaL);
procedure PrintFooter(Text: string; Justify: TPrintJustify);
procedure Println(Text: string);
Procedure Selectbin(n:integer);
procedure SetFont(f:string;s:integer);
procedure SetTab(NewPos: double;
NewJustify: TPrintJustify;
NewWidth: double;
NewMargin: double;
NewLines: byte;
NewShade: byte);
Function SUPPORTBIN(N:integer):boolean;
procedure Tab(LeftWidth: integer;
RightWidth: integer;
TopWidth: integer;
BottomWidth: integer;
ShadeOverride: integer);
procedure getbins;
procedure setbold(value:boolean);
procedure setItalic(value:boolean);
procedure setUnderline(value:boolean);| Properties |
property Orientation : Torientation
property PreviewMode : boolean
property ShowMargin : Boolean
property Bold : boolean
property Italic : boolean
property Underline : boolean| Events |
event OnNewPage : TnotifyEvent
event OnPrint : TnotifyEvent
event OnPrintAPage : TnotifyEvent
event OnPrintFooter : TnotifyEvent
event OnPrintHeader : TnotifyEvent| Variables |
Aborted : boolean;
currentpage : integer;
LinesLeft : INTEGER;
marginbottom : double;
marginleft : double;
marginright : double;
margintop : double;
Pageheight : integer;
Pagewidth : integer;
Plist : TStrings;
SectionBottom : real;
SectionLeft : double;
title : string[60];
bitmap : TBitmap;
FDrawMargins : Boolean;
FonNewpage : TnotifyEvent;
Fonprint : TnotifyEvent;
FonPrintApage : TnotifyEvent;
FOnPrintFooter : TnotifyEvent;
FOnPrintHeader : TnotifyEvent;
FPageCount : Longint;
Fpreview : boolean;
fPrintPreview : TPPreviewForm;
Numbins : integer;
PageNumber : Longint;
PageOriented : Torientation;
TMPSTR : STRING;| Constructors |
constructor Create(AOwner : TComponent);| Functions |
Procedure Abort;
Procedure ClearTabs;GETDEVICECAPS
procedure CRLF;
Destructor Destroy;
Function Execute: boolean;
procedure home;----------------------tpreview--------------------------
procedure Newpage;
procedure Print(Text: string);getbins;
procedure PrintCENTER(Text: string;n: reaL);'' +
procedure PrintFooter(Text: string; Justify: TPrintJustify);
procedure Println(Text: string);
Procedure Selectbin(n:integer);
procedure SetFont(f:string;s:integer);
procedure SetTab(NewPos: double;
NewJustify: TPrintJustify;
NewWidth: double;
NewMargin: double;
NewLines: byte;
NewShade: byte);
Function SUPPORTBIN(N:integer):boolean;
procedure Tab(LeftWidth: integer;
RightWidth: integer;
TopWidth: integer;
BottomWidth: integer;
ShadeOverride: integer);
procedure getbins;
procedure setbold(value:boolean);
procedure setItalic(value:boolean);
procedure setUnderline(value:boolean);| Properties |
property Orientation : Torientation
property PreviewMode : boolean
property ShowMargin : Boolean
property Bold : boolean
property Italic : boolean
property Underline : boolean| Events |
event OnNewPage : TnotifyEvent
event OnPrint : TnotifyEvent
event OnPrintAPage : TnotifyEvent
event OnPrintFooter : TnotifyEvent
event OnPrintHeader : TnotifyEvent| Variables |
Aborted : boolean;
currentpage : integer;
LinesLeft : INTEGER;
marginbottom : double;
marginleft : double;
marginright : double;
margintop : double;
Pageheight : integer;
Pagewidth : integer;
Plist : TStrings;
SectionBottom : real;
SectionLeft : double;
title : string[60];
bitmap : TBitmap;
FDrawMargins : Boolean;
FonNewpage : TnotifyEvent;
Fonprint : TnotifyEvent;
FonPrintApage : TnotifyEvent;
FOnPrintFooter : TnotifyEvent;
FOnPrintHeader : TnotifyEvent;
FPageCount : Longint;
Fpreview : boolean;
fPrintPreview : TPPreviewForm;
Numbins : integer;
PageNumber : Longint;
PageOriented : Torientation;
TMPSTR : STRING;