Class tframebutton

Unit

mseedit

Declaration

type tframebutton = class(townedeventpersistent, iframe, iimagelistinfo)

Description

Hierarchy

• TObject
• tpersistent
• tvirtualpersistent
• tnullinterfacedpersistent
• tlinkedpersistent
• townedeventpersistent
• tframebutton

Overview

Fields

	fframerect: rectty;
	finfo: shapeinfoty;
	fframe: tframe;
	freadonly: boolean;

Methods

	procedure doexec();
	procedure mouseevent(var info: mouseeventinfoty; const intf: iframe; const buttonintf: ibutton; const index: integer);
	constructor create(aowner: tobject); override;
	destructor destroy; override;
	procedure createface;
	procedure createframe;
	procedure checktemplate(const sender: tobject);
	procedure updatewidgetstate(const awidget: twidget);
	procedure assign(source: tpersistent); override;

Properties

	property visible: boolean read getvisible write setvisible default true;
	property enabled: boolean read getenabled write setenabled default true;
	property left: boolean read getleft write setleft default false;
	property width: integer read fbuttonwidth write setbuttonwidth default 0;
	property color: colorty read finfo.color write setcolor default cl_default;
	property colorglyph: colorty read finfo.ca.colorglyph write setcolorglyph default cl_default;
	property face: tface read getface write setface;
	property frame: tframe read getframe write setframe;
	property imagelist: timagelist read finfo.ca.imagelist write setimagelist;
	property imagenr: imagenrty read finfo.ca.imagenr write setimagenr default -1;
	property imagenrdisabled: imagenrty read finfo.imagenrdisabled write setimagenrdisabled default -2;
	property options: framebuttonoptionsty read foptions write setoptions default [];
	property shortcut: shortcutty read fshortcut write fshortcut default ord(key_none) ;
	property action: taction read faction write setaction;
	property onexecute: notifyeventty read fonexecute write fonexecute;

Description

Fields

	fframerect: rectty;

	finfo: shapeinfoty;

	fframe: tframe;

	freadonly: boolean;

Methods

	procedure doexec();

	procedure mouseevent(var info: mouseeventinfoty; const intf: iframe; const buttonintf: ibutton; const index: integer);

	constructor create(aowner: tobject); override;

	destructor destroy; override;

	procedure createface;

	procedure createframe;

	procedure checktemplate(const sender: tobject);

	procedure updatewidgetstate(const awidget: twidget);

	procedure assign(source: tpersistent); override;

Properties

	property visible: boolean read getvisible write setvisible default true;

	property enabled: boolean read getenabled write setenabled default true;

	property left: boolean read getleft write setleft default false;

	property width: integer read fbuttonwidth write setbuttonwidth default 0;

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

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

	property face: tface read getface write setface;

	property frame: tframe read getframe write setframe;

	property imagelist: timagelist read finfo.ca.imagelist write setimagelist;

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

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

	property options: framebuttonoptionsty read foptions write setoptions default [];

	property shortcut: shortcutty read fshortcut write fshortcut default ord(key_none) ;

	property action: taction read faction write setaction;

	property onexecute: notifyeventty read fonexecute write fonexecute;