Class tcolheader

Unit

msegrids

Declaration

type tcolheader = class(tindexpersistent, iframe, iface, iimagelistinfo)

Description

Hierarchy

• TObject
• tpersistent
• tvirtualpersistent
• tnullinterfacedpersistent
• tlinkedpersistent
• townedeventpersistent
• tindexpersistent
• tcolheader

Overview

Fields

	fgrid: tcustomgrid;
	fframe: tfixcellframe;
	fface: tfixcellface;
	fautocellsize: sizety;

Methods

	procedure defineproperties(filer: tfiler); override;
	procedure changed;
	procedure fontchanged(const sender: tobject);
	procedure drawcell(const acanvas: tcanvas; const adest: rectty); virtual;
	function getwidget: twidget;
	procedure setframeinstance(instance: tcustomframe);
	function getwidgetrect: rectty;
	procedure setstaticframe(value: boolean);
	function getstaticframe: boolean;
	function widgetstate: widgetstatesty;
	procedure scrollwidgets(const dist: pointty);
	procedure clientrectchanged;
	function getcomponentstate: tcomponentstate;
	function getmsecomponentstate: msecomponentstatesty;
	procedure invalidate;
	procedure invalidatewidget;
	procedure invalidaterect(const rect: rectty; const org: originty = org_client; const noclip: boolean = false);
	function getframestateflags: framestateflagsty;
	function getclientrect: rectty;
	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil);
	procedure widgetregioninvalid;
	function translatecolor(const acolor: colorty): colorty;
	function getimagelist: timagelist;
	constructor create(const aowner: tobject; const aprop: tindexpersistentarrayprop); override;
	destructor destroy; override;
	procedure createfont;
	procedure createframe;
	procedure createface;

Properties

	property mergedcx: integer read fmergedcx;
	property mergedx: integer read fmergedx;
	property mergedcy: integer read fmergedcy;
	property mergedy: integer read fmergedy;
	property color: colorty read fcolor write setcolor default cl_parent;
	property caption: msestring read finfo.caption.text write setcaption;
	property textflags: textflagsty read finfo.textflags write settextflags default defaultcaptiontextflags;
	property font: tcolheaderfont read getfont write setfont stored isfontstored;
	property frame: tfixcellframe read getframe write setframe;
	property face: tfixcellface read getface write setface;
	property mergecols: integer read fmergecols write setmergecols default 0;
	property mergerows: integer read fmergerows write setmergerows default 0;
	property hint: msestring read fhint write fhint;
	property imagelist: timagelist read finfo.imagelist write setimagelist;
	property imagenr: imagenrty read finfo.imagenr write setimagenr default -1;
	property imagedist: integer read finfo.imagedist write setimagedist default 0;
	property captiondist: integer read finfo.captiondist write setcaptiondist default defaultshapecaptiondist;
	property imagepos: imageposty read finfo.imagepos write setimagepos default ip_center;
	property colorglyph: colorty read finfo.colorglyph write setcolorglyph default cl_glyph;

Description

Fields

	fgrid: tcustomgrid;

	fframe: tfixcellframe;

	fface: tfixcellface;

	fautocellsize: sizety;

Methods

	procedure defineproperties(filer: tfiler); override;

	procedure changed;

	procedure fontchanged(const sender: tobject);

	procedure drawcell(const acanvas: tcanvas; const adest: rectty); virtual;

	function getwidget: twidget;

	procedure setframeinstance(instance: tcustomframe);

	function getwidgetrect: rectty;

	procedure setstaticframe(value: boolean);

	function getstaticframe: boolean;

	function widgetstate: widgetstatesty;

	procedure scrollwidgets(const dist: pointty);

	procedure clientrectchanged;

	function getcomponentstate: tcomponentstate;

	function getmsecomponentstate: msecomponentstatesty;

	procedure invalidate;

	procedure invalidatewidget;

	procedure invalidaterect(const rect: rectty; const org: originty = org_client; const noclip: boolean = false);

	function getframestateflags: framestateflagsty;

	function getclientrect: rectty;

	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil);

	procedure widgetregioninvalid;

	function translatecolor(const acolor: colorty): colorty;

	function getimagelist: timagelist;

	constructor create(const aowner: tobject; const aprop: tindexpersistentarrayprop); override;

	destructor destroy; override;

	procedure createfont;

	procedure createframe;

	procedure createface;

Properties

	property mergedcx: integer read fmergedcx;

	property mergedx: integer read fmergedx;

	property mergedcy: integer read fmergedcy;

	property mergedy: integer read fmergedy;

	property color: colorty read fcolor write setcolor default cl_parent;

	property caption: msestring read finfo.caption.text write setcaption;

	property textflags: textflagsty read finfo.textflags write settextflags default defaultcaptiontextflags;

	property font: tcolheaderfont read getfont write setfont stored isfontstored;

	property frame: tfixcellframe read getframe write setframe;

	property face: tfixcellface read getface write setface;

	property mergecols: integer read fmergecols write setmergecols default 0;

	property mergerows: integer read fmergerows write setmergerows default 0;

	property hint: msestring read fhint write fhint;

	property imagelist: timagelist read finfo.imagelist write setimagelist;

	property imagenr: imagenrty read finfo.imagenr write setimagenr default -1;

	property imagedist: integer read finfo.imagedist write setimagedist default 0;

	property captiondist: integer read finfo.captiondist write setcaptiondist default defaultshapecaptiondist;

	property imagepos: imageposty read finfo.imagepos write setimagepos default ip_center;

	property colorglyph: colorty read finfo.colorglyph write setcolorglyph default cl_glyph;