Class treptabulators

Unit

msereport

Declaration

type treptabulators = class(tcustomtabulators)

Description

Hierarchy

• TObject
• tpersistent
• tarrayprop
• tpersistentarrayprop
• townedpersistentarrayprop
• tcustomtabulators
• treptabulators

Overview

Fields

fband: tcustomrecordband;

Methods

	class function getitemclass: tabulatoritemclassty; override;
	procedure paint(const acanvas: tcanvas; const adest: rectty);
	procedure checksize;
	procedure recchanged;
	procedure sourcechanged;
	procedure dochange(const aindex: integer); override;
	procedure setcount1(acount: integer; doinit: boolean); override;
	procedure dobeforenextrecord(const adatasource: tdatasource);
	procedure initsums;
	procedure scale(const ascale: real);
	constructor create(const aowner: tcustomrecordband);
	procedure resetsums(const skipcurrent: boolean);

Properties

	property items[constindex:integer]: treptabulatoritem read getitems write setitems;
	property litop_widthmm: real read flineinfos[tlk_top].widthmm write setlitop_widthmm;
	property litop_color: colorty read flineinfos[tlk_top].color write setlitop_color default defaulttablinecolor;
	property litop_colorgap: colorty read flineinfos[tlk_top].colorgap write setlitop_colorgap default defaulttablinecolorgap;
	property litop_capstyle: capstylety read flineinfos[tlk_top].capstyle write setlitop_capstyle default defaulttablinecapstyle;
	property litop_dashes: string read flineinfos[tlk_top].dashes write setlitop_dashes;
	property litop_dist: integer read flineinfos[tlk_top].dist write setlitop_dist default defaulttablinedist;
	property litop_visible: linevisiblesty read flineinfos[tlk_top].visible write setlitop_visible default defaulttablinevisible;
	property lileft_widthmm: real read flileft.widthmm write setlileft_widthmm;
	property lileft_color: colorty read flileft.color write setlileft_color default defaulttablinecolor;
	property lileft_colorgap: colorty read flileft.colorgap write setlileft_colorgap default defaulttablinecolorgap;
	property lileft_capstyle: capstylety read flileft.capstyle write setlileft_capstyle default defaulttablinecapstyle;
	property lileft_dashes: string read flileft.dashes write setlileft_dashes;
	property lileft_dist: integer read flileft.dist write setlileft_dist default defaulttablinedist;
	property lileft_visible: linevisiblesty read flileft.visible write setlileft_visible default defaulttablinevisible;
	property livert_widthmm: real read flineinfos[tlk_vert].widthmm write setlivert_widthmm;
	property livert_color: colorty read flineinfos[tlk_vert].color write setlivert_color default defaulttablinecolor;
	property livert_colorgap: colorty read flineinfos[tlk_vert].colorgap write setlivert_colorgap default defaulttablinecolorgap;
	property livert_capstyle: capstylety read flineinfos[tlk_vert].capstyle write setlivert_capstyle default defaulttablinecapstyle;
	property livert_dashes: string read flineinfos[tlk_vert].dashes write setlivert_dashes;
	property livert_dist: integer read flineinfos[tlk_vert].dist write setlivert_dist default defaulttablinedist;
	property livert_visible: linevisiblesty read flineinfos[tlk_vert].visible write setlivert_visible default defaulttablinevisible;
	property liright_widthmm: real read fliright.widthmm write setliright_widthmm;
	property liright_color: colorty read fliright.color write setliright_color default defaulttablinecolor;
	property liright_colorgap: colorty read fliright.colorgap write setliright_colorgap default defaulttablinecolorgap;
	property liright_capstyle: capstylety read fliright.capstyle write setliright_capstyle default defaulttablinecapstyle;
	property liright_dashes: string read fliright.dashes write setliright_dashes;
	property liright_dist: integer read fliright.dist write setliright_dist default defaulttablinedist;
	property liright_visible: linevisiblesty read fliright.visible write setliright_visible default defaulttablinevisible;
	property libottom_widthmm: real read flineinfos[tlk_bottom].widthmm write setlibottom_widthmm;
	property libottom_color: colorty read flineinfos[tlk_bottom].color write setlibottom_color default defaulttablinecolor;
	property libottom_colorgap: colorty read flineinfos[tlk_bottom].colorgap write setlibottom_colorgap default defaulttablinecolorgap;
	property libottom_capstyle: capstylety read flineinfos[tlk_bottom].capstyle write setlibottom_capstyle default defaulttablinecapstyle;
	property libottom_dashes: string read flineinfos[tlk_bottom].dashes write setlibottom_dashes;
	property libottom_dist: integer read flineinfos[tlk_bottom].dist write setlibottom_dist default defaulttablinedist;
	property libottom_visible: linevisiblesty read flineinfos[tlk_bottom].visible write setlibottom_visible default defaulttablinevisible;
	property distleft: real read fdistleft write setdistleft;
	property distright: real read fdistright write setdistright;
	property linksource: tcustomrecordband read flinksource write setlinksource;
	property defaultdist;

Description

Fields

	fband: tcustomrecordband;

Methods

	class function getitemclass: tabulatoritemclassty; override;

	procedure paint(const acanvas: tcanvas; const adest: rectty);

	procedure checksize;

	procedure recchanged;

	procedure sourcechanged;

	procedure dochange(const aindex: integer); override;

	procedure setcount1(acount: integer; doinit: boolean); override;

	procedure dobeforenextrecord(const adatasource: tdatasource);

	procedure initsums;

	procedure scale(const ascale: real);

	constructor create(const aowner: tcustomrecordband);

	procedure resetsums(const skipcurrent: boolean);

Properties

	property items[constindex:integer]: treptabulatoritem read getitems write setitems;

	property litop_widthmm: real read flineinfos[tlk_top].widthmm write setlitop_widthmm;

	property litop_color: colorty read flineinfos[tlk_top].color write setlitop_color default defaulttablinecolor;

	property litop_colorgap: colorty read flineinfos[tlk_top].colorgap write setlitop_colorgap default defaulttablinecolorgap;

	property litop_capstyle: capstylety read flineinfos[tlk_top].capstyle write setlitop_capstyle default defaulttablinecapstyle;

	property litop_dashes: string read flineinfos[tlk_top].dashes write setlitop_dashes;

	property litop_dist: integer read flineinfos[tlk_top].dist write setlitop_dist default defaulttablinedist;

	property litop_visible: linevisiblesty read flineinfos[tlk_top].visible write setlitop_visible default defaulttablinevisible;

	property lileft_widthmm: real read flileft.widthmm write setlileft_widthmm;

	property lileft_color: colorty read flileft.color write setlileft_color default defaulttablinecolor;

	property lileft_colorgap: colorty read flileft.colorgap write setlileft_colorgap default defaulttablinecolorgap;

	property lileft_capstyle: capstylety read flileft.capstyle write setlileft_capstyle default defaulttablinecapstyle;

	property lileft_dashes: string read flileft.dashes write setlileft_dashes;

	property lileft_dist: integer read flileft.dist write setlileft_dist default defaulttablinedist;

	property lileft_visible: linevisiblesty read flileft.visible write setlileft_visible default defaulttablinevisible;

	property livert_widthmm: real read flineinfos[tlk_vert].widthmm write setlivert_widthmm;

	property livert_color: colorty read flineinfos[tlk_vert].color write setlivert_color default defaulttablinecolor;

	property livert_colorgap: colorty read flineinfos[tlk_vert].colorgap write setlivert_colorgap default defaulttablinecolorgap;

	property livert_capstyle: capstylety read flineinfos[tlk_vert].capstyle write setlivert_capstyle default defaulttablinecapstyle;

	property livert_dashes: string read flineinfos[tlk_vert].dashes write setlivert_dashes;

	property livert_dist: integer read flineinfos[tlk_vert].dist write setlivert_dist default defaulttablinedist;

	property livert_visible: linevisiblesty read flineinfos[tlk_vert].visible write setlivert_visible default defaulttablinevisible;

	property liright_widthmm: real read fliright.widthmm write setliright_widthmm;

	property liright_color: colorty read fliright.color write setliright_color default defaulttablinecolor;

	property liright_colorgap: colorty read fliright.colorgap write setliright_colorgap default defaulttablinecolorgap;

	property liright_capstyle: capstylety read fliright.capstyle write setliright_capstyle default defaulttablinecapstyle;

	property liright_dashes: string read fliright.dashes write setliright_dashes;

	property liright_dist: integer read fliright.dist write setliright_dist default defaulttablinedist;

	property liright_visible: linevisiblesty read fliright.visible write setliright_visible default defaulttablinevisible;

	property libottom_widthmm: real read flineinfos[tlk_bottom].widthmm write setlibottom_widthmm;

	property libottom_color: colorty read flineinfos[tlk_bottom].color write setlibottom_color default defaulttablinecolor;

	property libottom_colorgap: colorty read flineinfos[tlk_bottom].colorgap write setlibottom_colorgap default defaulttablinecolorgap;

	property libottom_capstyle: capstylety read flineinfos[tlk_bottom].capstyle write setlibottom_capstyle default defaulttablinecapstyle;

	property libottom_dashes: string read flineinfos[tlk_bottom].dashes write setlibottom_dashes;

	property libottom_dist: integer read flineinfos[tlk_bottom].dist write setlibottom_dist default defaulttablinedist;

	property libottom_visible: linevisiblesty read flineinfos[tlk_bottom].visible write setlibottom_visible default defaulttablinevisible;

	property distleft: real read fdistleft write setdistleft;

	property distright: real read fdistright write setdistright;

	property linksource: tcustomrecordband read flinksource write setlinksource;

	property defaultdist;