| Class TRyPrinter (unit Rprev) |
TObject
Public declarations
| Constructors |
constructor Create;| 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;
pYppi : Integer;
Title : String;
XOff : Integer;
YOff : Integer;
FCanvases : TList;
FCurrentPage : Integer;
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;