Class tcustomprintercanvas

Unit

mseprinter

Declaration

type tcustomprintercanvas = class(tcanvas)

Description

Hierarchy

• TObject
• tpersistent
• tcanvas
• tcustomprintercanvas

Overview

Fields

	fpstate: printercanvasstatesty;
	fgcoffsetx: real;
	fgcoffsety: real;
	fgcscale: real;
	foriginx: real;
	foriginy: real;
	fscale: real;
	foffset: pointty;
	fclientrect: rectty;
	fpapersize: sizety;
	fboundingbox: framety;
	ftitle: msestring;
	flinenumber: integer;
	fpagelinenumber: integer;
	fliney: integer;
	fprinter: tcustomprinter;
	fcolorspace: colorspacety;
	fpreamble: string;

Methods

	function createfont: tcanvasfont; override;
	procedure initprinting(const apreamble: string = '');
	procedure checkgcstate(state: canvasstatesty); override;
	function getfitrect: rectty; override;
	procedure setppmm(avalue: real); override;
	function defaultcliprect: rectty; override;
	procedure updatescale; virtual;
	procedure updateframe;
	procedure beginpage; virtual;
	procedure endpage; virtual;
	procedure dotextout(const text: richstringty; const dest: rectty; const flags: textflagsty; const tabdist: real; afontcolorshadow: colorty);
	procedure textout(const text: richstringty; const dest: rectty; const flags: textflagsty; const tabdist: real); virtual; abstract;
	procedure begintextclip(const arect: rectty); virtual; abstract;
	procedure endtextclip; virtual; abstract;
	procedure checknextpage;
	procedure internalwriteln(const avalue: richstringty);
	procedure setpagesstring(const avalue: msestring);
	procedure internaldrawtext(var info); override;
	constructor create(const user: tcustomprinter; const intf: icanvas); reintroduce;
	procedure initflags(const dest: tcanvas); override;
	procedure drawtext(var info: drawtextinfoty); overload; virtual;
	procedure drawtext(const atext: richstringty; const adest: rectty; aflags: textflagsty = []; afont: tfont = nil; atabulators: ttabulators = nil); overload;
	procedure drawtext(const atext: richstringty; const adest,aclip: rectty; aflags: textflagsty = []; afont: tfont = nil; atabulators: ttabulators = nil); overload;
	procedure drawtext(const atext: msestring; const adest: rectty; aflags: textflagsty = []; afont: tfont = nil; atabulators: ttabulators = nil); overload;
	procedure writeln(const avalue: msestring = ''); overload;
	procedure writeln(const avalue: richstringty); overload;
	procedure writelines(const alines: array of msestring); overload;
	procedure writelines(const alines: msestringarty); overload;
	procedure writelines(const alines: richstringarty); overload;
	function remaininglines: integer;
	function liney1: integer;
	function lineheight: integer;
	procedure nextpage; override;
	function active: boolean;

Properties

	property indentx: integer read findentx write findentx;
	property indenty: integer read findenty write findenty;
	property headerheight: integer read fheaderheight write fheaderheight;
	property footerheight: integer read ffooterheight write ffooterheight;
	property linenumber: integer read flinenumber;
	property pagelinenumber: integer read fpagelinenumber;
	property liney: integer read getliney write setliney;
	property title: msestring read ftitle write ftitle;
	property clientrect: rectty read fclientrect;
	property clientpos: pointty read fclientrect.pos;
	property clientsize: sizety read fclientrect.size;
	property clientleft: integer read fclientrect.x;
	property clienttop: integer read fclientrect.y;
	property clientwidth: integer read fclientrect.cx;
	property clientheight: integer read fclientrect.cy;
	property colorspace: colorspacety read fcolorspace write setcolorspace default cos_gray;
	property pagenumber: integer read fpagenumber;
	property pageskind: pageskindty read fpageskind write fpageskind;
	property pages: pagerangearty read fpages write setpages;
	property pagesstring: msestring read fpagesstring write setpagesstring;
	property printorientation: pageorientationty read fprintorientation write setprintorientation default pao_portrait;

Description

Fields

	fpstate: printercanvasstatesty;

	fgcoffsetx: real;

	fgcoffsety: real;

	fgcscale: real;

	foriginx: real;

	foriginy: real;

	fscale: real;

	foffset: pointty;

	fclientrect: rectty;

	fpapersize: sizety;

	fboundingbox: framety;

	ftitle: msestring;

	flinenumber: integer;

	fpagelinenumber: integer;

	fliney: integer;

	fprinter: tcustomprinter;

	fcolorspace: colorspacety;

	fpreamble: string;

Methods

	function createfont: tcanvasfont; override;

	procedure initprinting(const apreamble: string = '');

	procedure checkgcstate(state: canvasstatesty); override;

	function getfitrect: rectty; override;

	procedure setppmm(avalue: real); override;

	function defaultcliprect: rectty; override;

	procedure updatescale; virtual;

	procedure updateframe;

	procedure beginpage; virtual;

	procedure endpage; virtual;

	procedure dotextout(const text: richstringty; const dest: rectty; const flags: textflagsty; const tabdist: real; afontcolorshadow: colorty);

	procedure textout(const text: richstringty; const dest: rectty; const flags: textflagsty; const tabdist: real); virtual; abstract;

	procedure begintextclip(const arect: rectty); virtual; abstract;

	procedure endtextclip; virtual; abstract;

	procedure checknextpage;

	procedure internalwriteln(const avalue: richstringty);

	procedure setpagesstring(const avalue: msestring);

	procedure internaldrawtext(var info); override;

	constructor create(const user: tcustomprinter; const intf: icanvas); reintroduce;

	procedure initflags(const dest: tcanvas); override;

	procedure drawtext(var info: drawtextinfoty); overload; virtual;

	procedure drawtext(const atext: richstringty; const adest: rectty; aflags: textflagsty = []; afont: tfont = nil; atabulators: ttabulators = nil); overload;

	procedure drawtext(const atext: richstringty; const adest,aclip: rectty; aflags: textflagsty = []; afont: tfont = nil; atabulators: ttabulators = nil); overload;

	procedure drawtext(const atext: msestring; const adest: rectty; aflags: textflagsty = []; afont: tfont = nil; atabulators: ttabulators = nil); overload;

	procedure writeln(const avalue: msestring = ''); overload;

	procedure writeln(const avalue: richstringty); overload;

	procedure writelines(const alines: array of msestring); overload;

	procedure writelines(const alines: msestringarty); overload;

	procedure writelines(const alines: richstringarty); overload;

	function remaininglines: integer;

	function liney1: integer;

	function lineheight: integer;

	procedure nextpage; override;

	function active: boolean;

Properties

	property indentx: integer read findentx write findentx;

	property indenty: integer read findenty write findenty;

	property headerheight: integer read fheaderheight write fheaderheight;

	property footerheight: integer read ffooterheight write ffooterheight;

	property linenumber: integer read flinenumber;

	property pagelinenumber: integer read fpagelinenumber;

	property liney: integer read getliney write setliney;

	property title: msestring read ftitle write ftitle;

	property clientrect: rectty read fclientrect;

	property clientpos: pointty read fclientrect.pos;

	property clientsize: sizety read fclientrect.size;

	property clientleft: integer read fclientrect.x;

	property clienttop: integer read fclientrect.y;

	property clientwidth: integer read fclientrect.cx;

	property clientheight: integer read fclientrect.cy;

	property colorspace: colorspacety read fcolorspace write setcolorspace default cos_gray;

	property pagenumber: integer read fpagenumber;

	property pageskind: pageskindty read fpageskind write fpageskind;

	property pages: pagerangearty read fpages write setpages;

	property pagesstring: msestring read fpagesstring write setpagesstring;

	property printorientation: pageorientationty read fprintorientation write setprintorientation default pao_portrait;

---

Generated by PasDoc 0.16.0.