Class tactionsimplebutton

Unit

msewidgets

Declaration

type tactionsimplebutton = class(tactionpublishedwidget)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tactcomponent
• twidget
• tactionwidget
• tactionpublishedwidgetnwr
• tactionpublishedwidget
• tactionsimplebutton

Overview

Fields

	foptions: buttonoptionsty;
	finfo: shapeinfoty;

Methods

	class function classskininfo: skininfoty; override;
	procedure setoptions(const avalue: buttonoptionsty); virtual;
	procedure internalexecute();
	procedure doshapeexecute(const atag: integer; const info: mouseeventinfoty);
	procedure doexecute; virtual;
	procedure doasyncevent(var atag: integer); override;
	procedure statechanged; override;
	procedure clientmouseevent(var info: mouseeventinfoty); override;
	procedure dokeydown(var info: keyeventinfoty); override;
	procedure dokeyup(var info: keyeventinfoty); override;
	procedure dopaintforeground(const canvas: tcanvas); override;
	procedure clientrectchanged; override;
	function getframestateflags: framestateflagsty; override;
	function navigstartrect: rectty; override;
	function getassistiveflags(): assistiveflagsty override;
	function getdisabled(): boolean virtual;
	constructor create(aowner: tcomponent); override;
	procedure execute;
	procedure pressbutton;
	function releasebutton(const aexecute: boolean): boolean;

Properties

	property options: buttonoptionsty read foptions write setoptions default defaultbuttonoptions;
	property colorglyph: colorty read finfo.ca.colorglyph write setcolorglyph default cl_black;
	property focusrectdist: integer read finfo.focusrectdist write finfo.focusrectdist default defaultshapefocusrectdist;
	property optionswidget default defaultoptionswidget - [ow_mousefocus];

Description

Fields

	foptions: buttonoptionsty;

	finfo: shapeinfoty;

Methods

	class function classskininfo: skininfoty; override;

	procedure setoptions(const avalue: buttonoptionsty); virtual;

	procedure internalexecute();

	procedure doshapeexecute(const atag: integer; const info: mouseeventinfoty);

	procedure doexecute; virtual;

	procedure doasyncevent(var atag: integer); override;

	procedure statechanged; override;

	procedure clientmouseevent(var info: mouseeventinfoty); override;

	procedure dokeydown(var info: keyeventinfoty); override;

	procedure dokeyup(var info: keyeventinfoty); override;

	procedure dopaintforeground(const canvas: tcanvas); override;

	procedure clientrectchanged; override;

	function getframestateflags: framestateflagsty; override;

	function navigstartrect: rectty; override;

	function getassistiveflags(): assistiveflagsty override;

	function getdisabled(): boolean virtual;

	constructor create(aowner: tcomponent); override;

	procedure execute;

	procedure pressbutton;

	function releasebutton(const aexecute: boolean): boolean;

Properties

	property options: buttonoptionsty read foptions write setoptions default defaultbuttonoptions;

	property colorglyph: colorty read finfo.ca.colorglyph write setcolorglyph default cl_black;

	property focusrectdist: integer read finfo.focusrectdist write finfo.focusrectdist default defaultshapefocusrectdist;

	property optionswidget default defaultoptionswidget - [ow_mousefocus];