Unit PrevPrinter

Classes

TPreviewPrinter -
TTextOptions -

Functions

Register -

Types

TDrawStyle
TNewPageProc
TOwnerDrawProc
TOwnerHeightProc
TPrintPageNumber
TStatusProc
TStatusType
TUnits
TZoomOption

Constants

INCH_TO_CM

Variables


Functions


procedure Register;


Types


TDrawStyle = (dsStandard, dsOwnerDrawFixed, dsOwnerDrawVariable);

TNewPageProc = procedure(Sender: TObject; Page: integer) of object

TOwnerDrawProc = procedure(Sender: TObject; Page, Line: integer; R: TRect; Canvas: TCanvas) of object

TOwnerHeightProc = procedure(Sender: TObject; Line: integer; var Height: integer; var ForceNewPage: boolean) of object

TPrintPageNumber = (pnBottom, pnTop, pnNone);

TStatusProc = procedure(Sender: TObject; const StatMsg: string; PageNum: integer; StatusType: TStatusType) of object

TStatusType = (stPaginating, stPrinting, stPaginationFinished, stPrintFinished);

TUnits = (unInches, unCentimeters);

TZoomOption = (zoFitToPage, zoFitToWidth, zoTwoPages, zoCustom);

Constants

INCH_TO_CM = 2.54


Variables