Class tmsecomponent

Unit

mseclasses

Declaration

type tmsecomponent = class(tcomponent, ievent, iificommand, iificlient)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent

Overview

Fields

	fmsecomponentstate: msecomponentstatesty;
	fobjectlinker: tobjectlinker;
	factualclassname: pshortstring;
	fancestorclassname: string;
	fhelpcontext: msestring;
	fifiserverintf: iifiserver;

Methods

	procedure setifiserverintf(const aintf: iifiserver);
	function getdefaultifilink: iificlient; virtual;
	function getifidatatype: listdatatypety virtual;
	procedure executeificommand(var acommand: ificommandcodety); virtual;
	function getancestorclassname: string;
	function getmsecomponentstate: msecomponentstatesty;
	function getobjectlinker: tobjectlinker;
	procedure objectevent(const sender: tobject; const event: objecteventty); virtual;
	procedure dobeginread; virtual;
	procedure doendread; virtual;
	procedure readstate(reader: treader); override;
	procedure loaded; override;
	procedure validaterename(acomponent: tcomponent; const curname, newname: string); override;
	procedure setchildorder(child: tcomponent; order: integer); override;
	procedure sendchangeevent(const aevent: objecteventty = oe_changed);
	function linkcount: integer;
	function candestroyevent(const event: tmethod): boolean;
	function gethelpcontext: msestring; virtual;
	class function classskininfo: skininfoty; virtual;
	function skininfo: skininfoty; virtual;
	function hasskin: boolean; virtual;
	function getcomponentinstance: tcomponent;
	procedure getcompchildren(const proc: tgetchildproc; const root: tcomponent);
	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false);
	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil); virtual;
	procedure objevent(const sender: iobjectlink; const event: objecteventty); virtual;
	function getinstance: tobject;
	function getcomponent: tcomponent;
	procedure receiveevent(const event: tobjectevent); virtual;
	procedure designselected(const selected: boolean); virtual;
	procedure setlinkedvar(const source: iobjectlink; var dest: iobjectlink; const linkintf: iobjectlink = nil); overload;
	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil); overload;
	procedure setlinkedvar(const source: tlinkedobject; var dest: tlinkedobject; const linkintf: iobjectlink = nil); overload;
	procedure setlinkedvar(const source: tlinkedpersistent; var dest: tlinkedpersistent; const linkintf: iobjectlink = nil); overload;
	function getactualclassname: string;
	class function getmoduleclassname: string; virtual;
	class function hasresource: boolean; virtual;
	procedure defineproperties(filer: tfiler); override;
	procedure componentevent(const event: tcomponentevent); virtual;
	procedure doasyncevent(var atag: integer); virtual;
	procedure doafterload; virtual;
	destructor destroy; override;
	procedure writestate(writer: twriter); override;
	procedure updateskin(const recursive: boolean = false); virtual;
	function loading: boolean; reintroduce;
	procedure setsubcompref;
	function canevent(const event: tmethod): boolean;
	procedure setoptionalobject(const value: tpersistent; var instance; createproc: createprocty);
	procedure getoptionalobject(const instance: tobject; createproc: createprocty);
	function getcorbainterface(const aintf: ptypeinfo; out obj) : boolean;
	procedure initnewcomponent(const ascale: real); virtual;
	function checkowned(component: tcomponent): boolean;
	function checkowner(component: tcomponent): boolean;
	function rootowner: tcomponent;
	function getrootcomponentpath: componentarty;
	function linkedobjects: objectarty;
	procedure sendcomponentevent(const event: tcomponentevent; const destroyevent: boolean = true);
	procedure sendrootcomponentevent(const event: tcomponentevent; const destroyevent: boolean = true);
	procedure asyncevent(atag: integer = 0; const aoptions: posteventoptionsty = []);
	procedure postcomponentevent(const event: tcomponentevent; const aoptions: posteventoptionsty = []);

Properties

	property moduleclassname: string read getmoduleclassname;
	property actualclassname: string read getactualclassname;
	property msecomponentstate: msecomponentstatesty read fmsecomponentstate;
	property onbeforeupdateskin: notifyeventty read fonbeforeupdateskin write fonbeforeupdateskin;
	property onafterupdateskin: notifyeventty read fonafterupdateskin write fonafterupdateskin;
	property helpcontext: msestring read gethelpcontext write fhelpcontext;

Description

Fields

	fmsecomponentstate: msecomponentstatesty;

	fobjectlinker: tobjectlinker;

	factualclassname: pshortstring;

	fancestorclassname: string;

	fhelpcontext: msestring;

	fifiserverintf: iifiserver;

Methods

	procedure setifiserverintf(const aintf: iifiserver);

	function getdefaultifilink: iificlient; virtual;

	function getifidatatype: listdatatypety virtual;

	procedure executeificommand(var acommand: ificommandcodety); virtual;

	function getancestorclassname: string;

	function getmsecomponentstate: msecomponentstatesty;

	function getobjectlinker: tobjectlinker;

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

	procedure dobeginread; virtual;

	procedure doendread; virtual;

	procedure readstate(reader: treader); override;

	procedure loaded; override;

	procedure validaterename(acomponent: tcomponent; const curname, newname: string); override;

	procedure setchildorder(child: tcomponent; order: integer); override;

	procedure sendchangeevent(const aevent: objecteventty = oe_changed);

	function linkcount: integer;

	function candestroyevent(const event: tmethod): boolean;

	function gethelpcontext: msestring; virtual;

	class function classskininfo: skininfoty; virtual;

	function skininfo: skininfoty; virtual;

	function hasskin: boolean; virtual;

	function getcomponentinstance: tcomponent;

	procedure getcompchildren(const proc: tgetchildproc; const root: tcomponent);

	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false);

	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil); virtual;

	procedure objevent(const sender: iobjectlink; const event: objecteventty); virtual;

	function getinstance: tobject;

	function getcomponent: tcomponent;

	procedure receiveevent(const event: tobjectevent); virtual;

	procedure designselected(const selected: boolean); virtual;

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

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

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

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

	function getactualclassname: string;

	class function getmoduleclassname: string; virtual;

	class function hasresource: boolean; virtual;

	procedure defineproperties(filer: tfiler); override;

	procedure componentevent(const event: tcomponentevent); virtual;

	procedure doasyncevent(var atag: integer); virtual;

	procedure doafterload; virtual;

	destructor destroy; override;

	procedure writestate(writer: twriter); override;

	procedure updateskin(const recursive: boolean = false); virtual;

	function loading: boolean; reintroduce;

	procedure setsubcompref;

	function canevent(const event: tmethod): boolean;

	procedure setoptionalobject(const value: tpersistent; var instance; createproc: createprocty);

	procedure getoptionalobject(const instance: tobject; createproc: createprocty);

	function getcorbainterface(const aintf: ptypeinfo; out obj) : boolean;

	procedure initnewcomponent(const ascale: real); virtual;

	function checkowned(component: tcomponent): boolean;

	function checkowner(component: tcomponent): boolean;

	function rootowner: tcomponent;

	function getrootcomponentpath: componentarty;

	function linkedobjects: objectarty;

	procedure sendcomponentevent(const event: tcomponentevent; const destroyevent: boolean = true);

	procedure sendrootcomponentevent(const event: tcomponentevent; const destroyevent: boolean = true);

	procedure asyncevent(atag: integer = 0; const aoptions: posteventoptionsty = []);

	procedure postcomponentevent(const event: tcomponentevent; const aoptions: posteventoptionsty = []);

Properties

	property moduleclassname: string read getmoduleclassname;

	property actualclassname: string read getactualclassname;

	property msecomponentstate: msecomponentstatesty read fmsecomponentstate;

	property onbeforeupdateskin: notifyeventty read fonbeforeupdateskin write fonbeforeupdateskin;

	property onafterupdateskin: notifyeventty read fonafterupdateskin write fonafterupdateskin;

	property helpcontext: msestring read gethelpcontext write fhelpcontext;

---

Generated by PasDoc 0.16.0.