Class tcustomtoolbutton

Unit

msetoolbar

Declaration

type tcustomtoolbutton = class(tindexpersistent, iactionlink, iimagelistinfo)

Description

Hierarchy

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

Overview

Fields

	ftag: integer;
	ftagpo: pointer;

Methods

	procedure doexecute(const tag: integer; const info: mouseeventinfoty);
	procedure objectevent(const sender: tobject; const event: objecteventty); override;
	procedure defineproperties(filer: tfiler); override;
	procedure actionchanged;
	function getactioninfopo: pactioninfoty;
	procedure doshortcut(var info: keyeventinfoty);
	function getinstance: tobject; override;
	function loading: boolean;
	function shortcutseparator: msechar;
	procedure calccaptiontext(var ainfo: actioninfoty);
	constructor create(const aowner: tobject; const aprop: tindexpersistentarrayprop); overload; override;
	constructor create(aowner: tcustomtoolbar); reintroduce; overload;
	function toolbar: tcustomtoolbar;
	function index: integer;
	procedure execute;
	procedure doupdate;

Properties

	property checked: boolean read getchecked write setchecked;
	property visible: boolean read getvisible write setvisible default true;
	property enabled: boolean read getenabled write setenabled default true;
	property shortcuts: shortcutarty read finfo.shortcut write setshortcuts;
	property shortcuts1: shortcutarty read finfo.shortcut1 write setshortcuts1;
	property imagelist: timagelist read getimagelist write setimagelist stored isimageliststored;
	property imagenr: imagenrty read finfo.imagenr write setimagenr stored isimagenrstored default -1;
	property imagenrdisabled: imagenrty read finfo.imagenrdisabled write setimagenrdisabled stored isimagenrdisabledstored default -2;
	property colorglyph: colorty read finfo.colorglyph write setcolorglyph stored iscolorglyphstored default cl_default;
	property color: colorty read finfo.color write setcolor stored iscolorstored default cl_default;
	property imagecheckedoffset: integer read finfo.imagecheckedoffset write setimagecheckedoffset stored isimagecheckedoffsetstored default 0;
	property hint: msestring read finfo.hint write sethint stored ishintstored;
	property action: tcustomaction read finfo.action write setaction;
	property state: actionstatesty read getstate write setstate stored isstatestored default [];
	property shortcut: shortcutty read getshortcut write setshortcut stored isshortcutstored default 0;
	property shortcut1: shortcutty read getshortcut1 write setshortcut1 stored isshortcut1stored default 0;
	property options: menuactionoptionsty read finfo.options write setoptions default [];
	property group: integer read finfo.group write setgroup stored isgroupstored default 0;
	property tag: integer read ftag write ftag default 0;
	property tagpo: pointer read ftagpo write ftagpo;
	property tagpointer: pointer read ftagpo write ftagpo; deprecated 'Use tagpo instead';
	property onexecute: notifyeventty read finfo.onexecute write setonexecute stored isonexecutestored;
	property onbeforeexecute: accepteventty read finfo.onbeforeexecute write setonbeforeexecute stored isonbeforeexecutestored;
	property onafterexecute: notifyeventty read finfo.onafterexecute write setonafterexecute stored isonafterexecutestored;

Description

Fields

	ftag: integer;

	ftagpo: pointer;

Methods

	procedure doexecute(const tag: integer; const info: mouseeventinfoty);

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

	procedure defineproperties(filer: tfiler); override;

	procedure actionchanged;

	function getactioninfopo: pactioninfoty;

	procedure doshortcut(var info: keyeventinfoty);

	function getinstance: tobject; override;

	function loading: boolean;

	function shortcutseparator: msechar;

	procedure calccaptiontext(var ainfo: actioninfoty);

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

	constructor create(aowner: tcustomtoolbar); reintroduce; overload;

	function toolbar: tcustomtoolbar;

	function index: integer;

	procedure execute;

	procedure doupdate;

Properties

	property checked: boolean read getchecked write setchecked;

	property visible: boolean read getvisible write setvisible default true;

	property enabled: boolean read getenabled write setenabled default true;

	property shortcuts: shortcutarty read finfo.shortcut write setshortcuts;

	property shortcuts1: shortcutarty read finfo.shortcut1 write setshortcuts1;

	property imagelist: timagelist read getimagelist write setimagelist stored isimageliststored;

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

	property imagenrdisabled: imagenrty read finfo.imagenrdisabled write setimagenrdisabled stored isimagenrdisabledstored default -2;

	property colorglyph: colorty read finfo.colorglyph write setcolorglyph stored iscolorglyphstored default cl_default;

	property color: colorty read finfo.color write setcolor stored iscolorstored default cl_default;

	property imagecheckedoffset: integer read finfo.imagecheckedoffset write setimagecheckedoffset stored isimagecheckedoffsetstored default 0;

	property hint: msestring read finfo.hint write sethint stored ishintstored;

	property action: tcustomaction read finfo.action write setaction;

	property state: actionstatesty read getstate write setstate stored isstatestored default [];

	property shortcut: shortcutty read getshortcut write setshortcut stored isshortcutstored default 0;

	property shortcut1: shortcutty read getshortcut1 write setshortcut1 stored isshortcut1stored default 0;

	property options: menuactionoptionsty read finfo.options write setoptions default [];

	property group: integer read finfo.group write setgroup stored isgroupstored default 0;

	property tag: integer read ftag write ftag default 0;

	property tagpo: pointer read ftagpo write ftagpo;

	property tagpointer: pointer read ftagpo write ftagpo; deprecated 'Use tagpo instead';
Warning: this symbol is deprecated: Use tagpo instead

	property onexecute: notifyeventty read finfo.onexecute write setonexecute stored isonexecutestored;

	property onbeforeexecute: accepteventty read finfo.onbeforeexecute write setonbeforeexecute stored isonbeforeexecutestored;

	property onafterexecute: notifyeventty read finfo.onafterexecute write setonafterexecute stored isonafterexecutestored;