Class tcustommenu

Unit

msemenus

Declaration

type tcustommenu = class(tmsecomponent)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tcustommenu

Overview

Fields

	ftransientfor: twidget;
	fmouseinfopo: pmouseeventinfoty;

Methods

	procedure settransientfor(const awidget: twidget);
	procedure doidle(var again: boolean);
	procedure readstate(reader: treader); override;
	procedure loaded; override;
	procedure setexecitem(const avalue: tmenuitem);
	procedure assigntemplate(const source: tcustommenu);
	procedure templateevent(const sender: tobject; const event: objecteventty; var template: menutemplatety);
	procedure objectevent(const sender: tobject; const event: objecteventty); override;
	function gettemplatefont(const sender: tmenuitem): tmenufont; virtual;
	function gettemplatefontactive( const sender: tmenuitem): tmenufontactive; virtual;
	constructor create(aowner: tcomponent); overload; override;
	constructor createtransient(const atransientfor: twidget; const amouseinfopo: pmouseeventinfoty); overload;
	destructor destroy; override;
	function checkexec: boolean;
	procedure assign(source: tpersistent); override;
	procedure doshortcut(var info: keyeventinfoty);
	procedure doupdate;
	procedure updatehotkeys();
	function count: integer;
	function transientfor: twidget;
	function mouseinfopo: pmouseeventinfoty;
	function shortcutseparator: msechar;
	class function getshortcutseparator(const ainstance: tcustommenu): msechar;

Properties

	property execitem: tmenuitem write setexecitem;
	property menu: tmenuitem read fmenu write setmenu;
	property frametemplate: tframecomp read ftemplate.frame write setframetemplate;
	property facetemplate: tfacecomp read ftemplate.face write setfacetemplate;
	property itemframetemplate: tframecomp read ftemplate.itemframe write setitemframetemplate;
	property itemfacetemplate: tfacecomp read ftemplate.itemface write setitemfacetemplate;
	property itemframetemplateactive: tframecomp read ftemplate.itemframeactive write setitemframetemplateactive;
	property itemfacetemplateactive: tfacecomp read ftemplate.itemfaceactive write setitemfacetemplateactive;
	property separatorframetemplate: tframecomp read ftemplate.separatorframe write setseparatorframetemplate;
	property checkboxframetemplate: tframecomp read ftemplate.checkboxframe write setcheckboxframetemplate;
	property template: menutemplatety read ftemplate;
	property options: menuoptionsty read foptions write setoptions default defaultmenuoptions;
	property onupdate: menueventty read fonupdate write fonupdate;

Description

Fields

	ftransientfor: twidget;

	fmouseinfopo: pmouseeventinfoty;

Methods

	procedure settransientfor(const awidget: twidget);

	procedure doidle(var again: boolean);

	procedure readstate(reader: treader); override;

	procedure loaded; override;

	procedure setexecitem(const avalue: tmenuitem);

	procedure assigntemplate(const source: tcustommenu);

	procedure templateevent(const sender: tobject; const event: objecteventty; var template: menutemplatety);

	procedure objectevent(const sender: tobject; const event: objecteventty); override;

	function gettemplatefont(const sender: tmenuitem): tmenufont; virtual;

	function gettemplatefontactive( const sender: tmenuitem): tmenufontactive; virtual;

	constructor create(aowner: tcomponent); overload; override;

	constructor createtransient(const atransientfor: twidget; const amouseinfopo: pmouseeventinfoty); overload;

	destructor destroy; override;

	function checkexec: boolean;

	procedure assign(source: tpersistent); override;

	procedure doshortcut(var info: keyeventinfoty);

	procedure doupdate;

	procedure updatehotkeys();

	function count: integer;

	function transientfor: twidget;

	function mouseinfopo: pmouseeventinfoty;

	function shortcutseparator: msechar;

	class function getshortcutseparator(const ainstance: tcustommenu): msechar;

Properties

	property execitem: tmenuitem write setexecitem;

	property menu: tmenuitem read fmenu write setmenu;

	property frametemplate: tframecomp read ftemplate.frame write setframetemplate;

	property facetemplate: tfacecomp read ftemplate.face write setfacetemplate;

	property itemframetemplate: tframecomp read ftemplate.itemframe write setitemframetemplate;

	property itemfacetemplate: tfacecomp read ftemplate.itemface write setitemfacetemplate;

	property itemframetemplateactive: tframecomp read ftemplate.itemframeactive write setitemframetemplateactive;

	property itemfacetemplateactive: tfacecomp read ftemplate.itemfaceactive write setitemfacetemplateactive;

	property separatorframetemplate: tframecomp read ftemplate.separatorframe write setseparatorframetemplate;

	property checkboxframetemplate: tframecomp read ftemplate.checkboxframe write setcheckboxframetemplate;

	property template: menutemplatety read ftemplate;

	property options: menuoptionsty read foptions write setoptions default defaultmenuoptions;

	property onupdate: menueventty read fonupdate write fonupdate;