Class tpolygon

Unit

msepolygon

Declaration

type tpolygon = class(tpaintbox)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tactcomponent
• twidget
• tactionwidget
• tactionpublishedwidgetnwr
• tpublishedwidgetnwr
• tpublishedwidget
• tcustomscalingwidget
• tscalingwidget
• tscrollbox
• tpaintbox
• tpolygon

Overview

Fields

fstate: polygonstatesty;

Methods

	procedure change;
	procedure dopaintforeground(const canvas: tcanvas); override;
	procedure checkgeometry(const appmm: real);
	procedure clientrectchanged; override;
	procedure bitmapchanged(const sender: tobject);
	constructor create(aowner: tcomponent); override;
	destructor destroy; override;

Properties

	property poly_edgecount: integer read finfo.edgecount write setpoly_edgecount default 0;
	property poly_edgeradiusmm: real read finfo.edgeradiusmm write setpoly_edgeradiusmm;
	property poly_edgeradiusvertexcount: integer read finfo.edgeradiusvertexcount write setpoly_edgeradiusvertexcount default 2;
	property poly_rotation: real read finfo.rotation write setpoly_rotation;
	property poly_color: colorty read finfo.color write setpoly_color default cl_white;
	property poly_colorline: colorty read finfo.colorline write setpoly_colorline default cl_black;
	property poly_colorlinegap: colorty read finfo.colorlinegap write setpoly_colorlinegap default cl_transparent;
	property poly_linewidthmm: real read finfo.linewidthmm write setpoly_linewidthmm;
	property poly_dashes: ansistring read finfo.dashes write setpoly_dashes;
	property poly_joinstyle: joinstylety read finfo.joinstyle write setpoly_joinstyle default js_miter;
	property poly_brush: tmaskedbitmap read finfo.brush write setpoly_brush;
	property poly_brushoffset_x: integer read finfo.brushoffset.x write setpoly_brushoffset_x;
	property poly_brushoffset_y: integer read finfo.brushoffset.y write setpoly_brushoffset_y;
	property poly_smooth: boolean read finfo.smooth write setpolysmooth default false;

Description

Fields

	fstate: polygonstatesty;

Methods

	procedure change;

	procedure dopaintforeground(const canvas: tcanvas); override;

	procedure checkgeometry(const appmm: real);

	procedure clientrectchanged; override;

	procedure bitmapchanged(const sender: tobject);

	constructor create(aowner: tcomponent); override;

	destructor destroy; override;

Properties

	property poly_edgecount: integer read finfo.edgecount write setpoly_edgecount default 0;

	property poly_edgeradiusmm: real read finfo.edgeradiusmm write setpoly_edgeradiusmm;

	property poly_edgeradiusvertexcount: integer read finfo.edgeradiusvertexcount write setpoly_edgeradiusvertexcount default 2;

	property poly_rotation: real read finfo.rotation write setpoly_rotation;

	property poly_color: colorty read finfo.color write setpoly_color default cl_white;

	property poly_colorline: colorty read finfo.colorline write setpoly_colorline default cl_black;

	property poly_colorlinegap: colorty read finfo.colorlinegap write setpoly_colorlinegap default cl_transparent;

	property poly_linewidthmm: real read finfo.linewidthmm write setpoly_linewidthmm;

	property poly_dashes: ansistring read finfo.dashes write setpoly_dashes;

	property poly_joinstyle: joinstylety read finfo.joinstyle write setpoly_joinstyle default js_miter;

	property poly_brush: tmaskedbitmap read finfo.brush write setpoly_brush;

	property poly_brushoffset_x: integer read finfo.brushoffset.x write setpoly_brushoffset_x;

	property poly_brushoffset_y: integer read finfo.brushoffset.y write setpoly_brushoffset_y;

	property poly_smooth: boolean read finfo.smooth write setpolysmooth default false;