Unit PPreview

Classes

TPPreviewForm -
TPreview -

Functions

register -

Types

tabrec
TDevCaps
TMtabs
TOrientation
TPrintJustify

Constants

BOXLINEALL
BOXLINEBOTTOM
BOXLINEHORIZ
BOXLINELEFT
BOXLINELEFTBOTTOM
BOXLINELEFTRIGHT
BOXLINELEFTTOP
BOXLINENOBOTTOM
BOXLINENOLEFT
BOXLINENONE
BOXLINENORIGHT
BOXLINENOTOP
BOXLINERIGHT
BOXLINERIGHTBOTTOM
BOXLINERIGHTTOP
BOXLINETOP
BOXLINETOPBOTTOM
BOXLINEVERT
maxtabs
NA

Variables


Functions


procedure register;


Types


tabrec = record
X : double;
left : double;
width : double;
Types : TPrintJustify;
BoxType : byte;
Shade : byte;
end;

TDevCaps = function(DeviceName, Port: PChar; index: Word;
    OutPut: PChar; DevMode: PDevMode): Longint
forward
TMtabs = array[1..maxtabs] of tabrec;

TOrientation = (portrait,lanscape);

TPrintJustify = (pjCenter,pjLeft,pjRight,pjBlock);

Constants

BOXLINEALL = 15

BOXLINEBOTTOM = 8

BOXLINEHORIZ = BOXLINETOPBOTTOM

BOXLINELEFT = 1

BOXLINELEFTBOTTOM = 9

BOXLINELEFTRIGHT = 3

BOXLINELEFTTOP = 5

BOXLINENOBOTTOM = 7

BOXLINENOLEFT = 14

BOXLINENONE = 0

n/a value

BOXLINENORIGHT = 13

BOXLINENOTOP = 11

BOXLINERIGHT = 2

BOXLINERIGHTBOTTOM = 10

BOXLINERIGHTTOP = 6

BOXLINETOP = 4

BOXLINETOPBOTTOM = 12

BOXLINEVERT = BOXLINELEFTRIGHT

maxtabs = 10

NA = -32768

presume maximum 10 col in a table print

Variables