Class TRyPrinter (unit Rprev)

Inherits from

TObject

Public declarations

Constructors


constructor Create;

these aren't needed in EMF's SetMapMode(Canvases[Result].


Functions

destructor Destroy;


procedure DisplayPage(Page : Integer);


procedure DonePrinting;


procedure ExtTextOut(const X, Y : Integer; const Right : Integer; const Text : String);


procedure ExtTextOutCenter(const X, Y : Integer; const Left, Right : Integer; const Text : String);


procedure ExtTextOutRight(const X, Y : Integer; const Left : Integer; const Text : String);


procedure Line(const a, b : TPoint);


function MemoOut(const aRect : TRect; p : PChar; DisposePChar : Boolean; DontPrint : Boolean): Integer;


procedure NewJob;


function NewPage : Integer;


function PageSize : TPoint;


procedure Preview;


procedure PrintIt;


procedure PrintPage(const PageNum : Integer);


function PrintSize : TPoint;


procedure PutPageNums(const X, Y : Integer; Alignment : TAlignment);


procedure Rectangle(const aRect : TRect);


procedure SaveToFile(const TheFile : String);


function TextHeight: Integer;


procedure TextOut(const X, Y : Integer; const Text : String);


procedure TextOutCenter(const X, Y : Integer; const Text : String);


procedure TextOutRight(const X, Y : Integer; const Text : String);


procedure TextRect(const aRect : TRect; const X, Y : Integer; const Text : String);


function TextWidth(const Text : String): Integer;


function XInch(const aSingle : Single): Integer;


function YInch(const aSingle : Single): Integer;


function GetCanvas(Index : Integer): TMetafileCanvas;


function GetFont : TFont;


function GetMetafile(Index : Integer): TMetafile;


function GetPageCount : Integer;


function GetPen : TPen;


procedure SetCurrentPage(Index : Integer);


procedure SetFont(Value : TFont);


procedure SetOrientation(Value : TPrinterOrientation);


procedure SetPen(Value : TPen);


Properties

property Canvases : TMetafileCanvas


property CurrentPage : Integer


property Font : TFont


property Metafiles : TMetafile


property Orientation : TPrinterOrientation


property PageCount : Integer


property Pen : TPen


Events

Variables

pXppi : Integer;

Public declarations

pYppi : Integer;


Title : String;


XOff : Integer;


YOff : Integer;


FCanvases : TList;


FCurrentPage : Integer;

Private declarations

FDonePrinting : Boolean;


FMetafiles : TList;


FOrientation : TPrinterOrientation;


FRyPreviewForm : TRyPreviewFrm;



Constructors


constructor Create;

these aren't needed in EMF's SetMapMode(Canvases[Result].Handle, MM_ANISOTROPIC); SetWindowExtEx(Canvases[Result].Handle, Printer.PageWidth, Printer.PageHeight, nil);


Functions


destructor Destroy;


procedure DisplayPage(Page : Integer);


procedure DonePrinting;


procedure ExtTextOut(const X, Y : Integer; const Right : Integer; const Text : String);


procedure ExtTextOutCenter(const X, Y : Integer; const Left, Right : Integer; const Text : String);


procedure ExtTextOutRight(const X, Y : Integer; const Left : Integer; const Text : String);


procedure Line(const a, b : TPoint);


function MemoOut(const aRect : TRect; p : PChar; DisposePChar : Boolean; DontPrint : Boolean): Integer;


procedure NewJob;


function NewPage : Integer;


function PageSize : TPoint;


procedure Preview;


procedure PrintIt;


procedure PrintPage(const PageNum : Integer);


function PrintSize : TPoint;


procedure PutPageNums(const X, Y : Integer; Alignment : TAlignment);


procedure Rectangle(const aRect : TRect);


procedure SaveToFile(const TheFile : String);


function TextHeight: Integer;


procedure TextOut(const X, Y : Integer; const Text : String);


procedure TextOutCenter(const X, Y : Integer; const Text : String);


procedure TextOutRight(const X, Y : Integer; const Text : String);


procedure TextRect(const aRect : TRect; const X, Y : Integer; const Text : String);


function TextWidth(const Text : String): Integer;


function XInch(const aSingle : Single): Integer;


function YInch(const aSingle : Single): Integer;


function GetCanvas(Index : Integer): TMetafileCanvas;


function GetFont : TFont;


function GetMetafile(Index : Integer): TMetafile;


function GetPageCount : Integer;


function GetPen : TPen;


procedure SetCurrentPage(Index : Integer);


procedure SetFont(Value : TFont);


procedure SetOrientation(Value : TPrinterOrientation);


procedure SetPen(Value : TPen);


Properties


property Canvases : TMetafileCanvas


property CurrentPage : Integer


property Font : TFont


property Metafiles : TMetafile


property Orientation : TPrinterOrientation


property PageCount : Integer


property Pen : TPen


Events


Variables


pXppi : Integer;

Public declarations


pYppi : Integer;


Title : String;


XOff : Integer;


YOff : Integer;


FCanvases : TList;


FCurrentPage : Integer;

Private declarations


FDonePrinting : Boolean;


FMetafiles : TList;


FOrientation : TPrinterOrientation;


FRyPreviewForm : TRyPreviewFrm;