Class tguiapplication

Unit

msegui

Declaration

type tguiapplication = class(tcustomapplication)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tcustomapplication
• tguiapplication

Overview

Fields

	flastshowmenuwidget: twidget;
	foptionsgui: guiappoptionsty;
	fgdilockcount: int32;

Methods

	procedure sysevent(const awindow: winidty; var aevent: syseventty; var handled: boolean);
	procedure sethighrestimer(const avalue: boolean); override;
	procedure dopostevent(const aevent: tmseevent); override;
	procedure eventloop(const once: boolean = false);
	procedure exitloop;
	procedure receiveevent(const event: tobjectevent); override;
	procedure doafterrun; override;
	procedure internalinitialize; override;
	procedure internaldeinitialize; override;
	procedure objecteventdestroyed(const sender: tobjectevent); override;
	procedure dragstarted;
	procedure internalpackwindowzorder(); virtual;
	procedure zorderinvalid();
	constructor create(aowner: tcomponent); override;
	procedure destroyforms;
	procedure langchanged; override;
	procedure settimer(const us: integer); override;
	function findwindow(aid: winidty; out window: twindow): boolean;
	procedure checkwindowrect(winid: winidty; var rect: rectty);
	function createform(instanceclass: widgetclassty; var reference): twidget;
	procedure invalidate;
	procedure processmessages; override;
	function idle: boolean; override;
	function modallevel: integer; override;
	function unlockall: integer override;
	procedure relockall(count: integer) override;
	procedure beginnoignorewaitevents;
	procedure endnoignorewaitevents;
	procedure beginwait(const aprocessmessages: boolean = false); override;
	procedure endwait; override;
	function waiting: boolean;
	function waitescaped: boolean; override;
	procedure resetwaitdialog;
	function waitdialog(const athread: tthreadcomp = nil; const atext: msestring = ''; const caption: msestring = ''; const acancelaction: notifyeventty = nil; const aexecuteaction: notifyeventty = nil; const aidleaction: waitidleeventty = nil; const acontinueaction: notifyeventty = nil): boolean;
	procedure terminatewait;
	procedure cancelwait;
	function waitstarted: boolean;
	function waitcanceled: boolean;
	function waitterminated: boolean;
	procedure showexception(e: exception; const leadingtext: msestring = ''); override;
	procedure showasyncexception(e: exception; const leadingtext: msestring = '');
	procedure errormessage(const amessage: msestring); override;
	procedure inithintinfo(var info: hintinfoty; const ahintedwidget: twidget);
	procedure initwidgethintinfo(var info: hintinfoty; const ahintedwidget: twidget);
	procedure showhint(const sender: twidget; const hint: msestring; const aposrect: rectty; const aplacement: captionposty = cp_bottomleft; const ashowtime: integer = defaulthintshowtime; const aflags: hintflagsty = defaulthintflags);
	procedure showhint(const sender: twidget; const hint: msestring; const apos: pointty; const ashowtime: integer = defaulthintshowtime; const aflags: hintflagsty = defaulthintflags);
	procedure showhint(const sender: twidget; const info: hintinfoty);
	procedure showhint(const sender: twidget; const hint: msestring);
	procedure showhint(const sender: twidget; const hintwidget: twidget; const ashowtime: integer = defaulthintshowtime; const aflags: hintflagsty = defaulthintflags);
	procedure hidehint;
	procedure restarthint(const sender: twidget);
	function hintedwidget: twidget;
	function activehintedwidget: twidget;
	procedure help(const sender: tmsecomponent);
	procedure registerhelphandler(const ahandler: helpeventty);
	procedure unregisterhelphandler(const ahandler: helpeventty);
	function activehelpcontext: msestring;
	function mousehelpcontext: msestring;
	function active: boolean;
	procedure activate();
	function screenrect(const awindow: twindow = nil): rectty;
	function workarea(const awindow: twindow = nil): rectty;
	function ppmm(const awindow: twindow = nil): complexty;
	function normalactivewindow: twindow;
	function regularactivewindow: twindow;
	function unreleasedactivewindow: twindow;
	function activewidget: twidget;
	function activerootwidget: twidget;
	function windowatpos(const pos: pointty): twindow;
	function findwidget(const namepath: string; out awidget: twidget): boolean;
	procedure sortzorder();
	procedure packwindowzorder();
	function windowar: windowarty;
	function winidar: winidarty;
	function windowcount: integer;
	function bottomwindow: twindow;
	function topwindow: twindow;
	function candefocus(const caller: tobject = nil): boolean; override;
	procedure registeronkeypress(const method: keyeventty);
	procedure unregisteronkeypress(const method: keyeventty);
	procedure registeronshortcut(const method: keyeventty);
	procedure unregisteronshortcut(const method: keyeventty);
	procedure registeronwidgetactivechanged(const method: widgetchangeeventty);
	procedure unregisteronwidgetactivechanged(const method: widgetchangeeventty);
	procedure registeronwindowactivechanged(const method: windowchangeeventty);
	procedure unregisteronwindowactivechanged(const method: windowchangeeventty);
	procedure registeronwindowdestroyed(const method: windoweventty);
	procedure unregisteronwindowdestroyed(const method: windoweventty);
	procedure registeronwiniddestroyed(const method: winideventty);
	procedure unregisteronwiniddestroyed(const method: winideventty);
	procedure registeronapplicationactivechanged(const method: booleaneventty);
	procedure unregisteronapplicationactivechanged(const method: booleaneventty);
	procedure registersyseventhandler(const method: syseventhandlereventty);
	procedure unregistersyseventhandler(const method: syseventhandlereventty);
	function terminate(const sender: twindow = nil): boolean;
	function terminating: boolean;
	function deinitializing: boolean;
	function shortcutting: boolean;
	procedure mouseparkevent;
	procedure delayedmouseshift(const ashift: pointty);
	procedure calcmousewheeldelta(var info: mousewheeleventinfoty; const fmin,fmax,deltamin,deltamax: real);
	function mousewheelacceleration(const avalue: real): real; overload;
	function mousewheelacceleration(const avalue: integer): integer; overload;
	procedure clearkeyhistory;
	procedure updatecursorshape;

Properties

	property optionsgui: guiappoptionsty read foptionsgui write foptionsgui default [];
	property forcezorder: boolean read getforcezorder write setforcezorder;
	property hintwidgetclass: widgetclassty read fhintwidgetclass write fhintwidgetclass;
	property activewindow: twindow read factivewindow;
	property lastactivewindow: twindow read flastactivewindow;
	property inactivewindow: twindow read finactivewindow;
	property lastshowmenuwidget: twidget read flastshowmenuwidget;
	property windows[constindex:integer]: twindow read getwindows;
	property caret: tcaret read fcaret;
	property mouse: tmouse read fmouse;
	property keyhistory: keyinfoarty read fkeyhistory;
	property lastinputtimestamp: longword read flastinputtimestamp;
	property lastshiftstate: shiftstatesty read flastshiftstate;
	property lastkey: keyty read flastkey;
	property lastbutton: mousebuttonty read flastbutton;
	property mouseeventinfo: pmouseeventinfoty read fmouseeventinfo;
	property mousewheeleventinfo: pmousewheeleventinfoty read fmousewheeleventinfo;
	property keyeventinfo: pkeyeventinfoty read fkeyeventinfo;
	property cursorshape: cursorshapety read fcursorshape write setcursorshape;
	property widgetcursorshape: cursorshapety read fwidgetcursorshape write setwidgetcursorshape;
	property mousewidget: twidget read fmousewidget;
	property clientmousewidget: twidget read fclientmousewidget;
	property mousecapturewidget: twidget read fmousecapturewidget;
	property keyboardcapturewidget: twidget read fkeyboardcapturewidget;
	property mainwindow: twindow read fmainwindow write setmainwindow;
	property thread: threadty read fthread;
	property buttonpresswidgetbefore: twidget read fbuttonpresswidgetbefore;
	property buttonreleasewidgetbefore: twidget read fbuttonreleasewidgetbefore;
	property dblclicktime: integer read fdblclicktime write fdblclicktime default defaultdblclicktime;
	property mousewheelsensitivity: real read fmousewheelsensitivity write fmousewheelsensitivity;
	property mousewheelfrequmin: real read fmousewheelfrequmin write fmousewheelfrequmin;
	property mousewheelfrequmax: real read fmousewheelfrequmax write fmousewheelfrequmax;
	property mousewheeldeltamin: real read fmousewheeldeltamin write fmousewheeldeltamin;
	property mousewheeldeltamax: real read fmousewheeldeltamax write fmousewheeldeltamax;
	property mousewheelaccelerationmax: real read fmousewheelaccelerationmax write fmousewheelaccelerationmax;

Description

Fields

	flastshowmenuwidget: twidget;

	foptionsgui: guiappoptionsty;

	fgdilockcount: int32;

Methods

	procedure sysevent(const awindow: winidty; var aevent: syseventty; var handled: boolean);

	procedure sethighrestimer(const avalue: boolean); override;

	procedure dopostevent(const aevent: tmseevent); override;

	procedure eventloop(const once: boolean = false);

	procedure exitloop;

	procedure receiveevent(const event: tobjectevent); override;

	procedure doafterrun; override;

	procedure internalinitialize; override;

	procedure internaldeinitialize; override;

	procedure objecteventdestroyed(const sender: tobjectevent); override;

	procedure dragstarted;

	procedure internalpackwindowzorder(); virtual;

	procedure zorderinvalid();

	constructor create(aowner: tcomponent); override;

	procedure destroyforms;

	procedure langchanged; override;

	procedure settimer(const us: integer); override;

	function findwindow(aid: winidty; out window: twindow): boolean;

	procedure checkwindowrect(winid: winidty; var rect: rectty);

	function createform(instanceclass: widgetclassty; var reference): twidget;

	procedure invalidate;

	procedure processmessages; override;

	function idle: boolean; override;

	function modallevel: integer; override;

	function unlockall: integer override;

	procedure relockall(count: integer) override;

	procedure beginnoignorewaitevents;

	procedure endnoignorewaitevents;

	procedure beginwait(const aprocessmessages: boolean = false); override;

	procedure endwait; override;

	function waiting: boolean;

	function waitescaped: boolean; override;

	procedure resetwaitdialog;

	function waitdialog(const athread: tthreadcomp = nil; const atext: msestring = ''; const caption: msestring = ''; const acancelaction: notifyeventty = nil; const aexecuteaction: notifyeventty = nil; const aidleaction: waitidleeventty = nil; const acontinueaction: notifyeventty = nil): boolean;

	procedure terminatewait;

	procedure cancelwait;

	function waitstarted: boolean;

	function waitcanceled: boolean;

	function waitterminated: boolean;

	procedure showexception(e: exception; const leadingtext: msestring = ''); override;

	procedure showasyncexception(e: exception; const leadingtext: msestring = '');

	procedure errormessage(const amessage: msestring); override;

	procedure inithintinfo(var info: hintinfoty; const ahintedwidget: twidget);

	procedure initwidgethintinfo(var info: hintinfoty; const ahintedwidget: twidget);

	procedure showhint(const sender: twidget; const hint: msestring; const aposrect: rectty; const aplacement: captionposty = cp_bottomleft; const ashowtime: integer = defaulthintshowtime; const aflags: hintflagsty = defaulthintflags);

	procedure showhint(const sender: twidget; const hint: msestring; const apos: pointty; const ashowtime: integer = defaulthintshowtime; const aflags: hintflagsty = defaulthintflags);

	procedure showhint(const sender: twidget; const info: hintinfoty);

	procedure showhint(const sender: twidget; const hint: msestring);

	procedure showhint(const sender: twidget; const hintwidget: twidget; const ashowtime: integer = defaulthintshowtime; const aflags: hintflagsty = defaulthintflags);

	procedure hidehint;

	procedure restarthint(const sender: twidget);

	function hintedwidget: twidget;

	function activehintedwidget: twidget;

	procedure help(const sender: tmsecomponent);

	procedure registerhelphandler(const ahandler: helpeventty);

	procedure unregisterhelphandler(const ahandler: helpeventty);

	function activehelpcontext: msestring;

	function mousehelpcontext: msestring;

	function active: boolean;

	procedure activate();

	function screenrect(const awindow: twindow = nil): rectty;

	function workarea(const awindow: twindow = nil): rectty;

	function ppmm(const awindow: twindow = nil): complexty;

	function normalactivewindow: twindow;

	function regularactivewindow: twindow;

	function unreleasedactivewindow: twindow;

	function activewidget: twidget;

	function activerootwidget: twidget;

	function windowatpos(const pos: pointty): twindow;

	function findwidget(const namepath: string; out awidget: twidget): boolean;

	procedure sortzorder();

	procedure packwindowzorder();

	function windowar: windowarty;

	function winidar: winidarty;

	function windowcount: integer;

	function bottomwindow: twindow;

	function topwindow: twindow;

	function candefocus(const caller: tobject = nil): boolean; override;

	procedure registeronkeypress(const method: keyeventty);

	procedure unregisteronkeypress(const method: keyeventty);

	procedure registeronshortcut(const method: keyeventty);

	procedure unregisteronshortcut(const method: keyeventty);

	procedure registeronwidgetactivechanged(const method: widgetchangeeventty);

	procedure unregisteronwidgetactivechanged(const method: widgetchangeeventty);

	procedure registeronwindowactivechanged(const method: windowchangeeventty);

	procedure unregisteronwindowactivechanged(const method: windowchangeeventty);

	procedure registeronwindowdestroyed(const method: windoweventty);

	procedure unregisteronwindowdestroyed(const method: windoweventty);

	procedure registeronwiniddestroyed(const method: winideventty);

	procedure unregisteronwiniddestroyed(const method: winideventty);

	procedure registeronapplicationactivechanged(const method: booleaneventty);

	procedure unregisteronapplicationactivechanged(const method: booleaneventty);

	procedure registersyseventhandler(const method: syseventhandlereventty);

	procedure unregistersyseventhandler(const method: syseventhandlereventty);

	function terminate(const sender: twindow = nil): boolean;

	function terminating: boolean;

	function deinitializing: boolean;

	function shortcutting: boolean;

	procedure mouseparkevent;

	procedure delayedmouseshift(const ashift: pointty);

	procedure calcmousewheeldelta(var info: mousewheeleventinfoty; const fmin,fmax,deltamin,deltamax: real);

	function mousewheelacceleration(const avalue: real): real; overload;

	function mousewheelacceleration(const avalue: integer): integer; overload;

	procedure clearkeyhistory;

	procedure updatecursorshape;

Properties

	property optionsgui: guiappoptionsty read foptionsgui write foptionsgui default [];

	property forcezorder: boolean read getforcezorder write setforcezorder;

	property hintwidgetclass: widgetclassty read fhintwidgetclass write fhintwidgetclass;

	property activewindow: twindow read factivewindow;

	property lastactivewindow: twindow read flastactivewindow;

	property inactivewindow: twindow read finactivewindow;

	property lastshowmenuwidget: twidget read flastshowmenuwidget;

	property windows[constindex:integer]: twindow read getwindows;

	property caret: tcaret read fcaret;

	property mouse: tmouse read fmouse;

	property keyhistory: keyinfoarty read fkeyhistory;

	property lastinputtimestamp: longword read flastinputtimestamp;

	property lastshiftstate: shiftstatesty read flastshiftstate;

	property lastkey: keyty read flastkey;

	property lastbutton: mousebuttonty read flastbutton;

	property mouseeventinfo: pmouseeventinfoty read fmouseeventinfo;

	property mousewheeleventinfo: pmousewheeleventinfoty read fmousewheeleventinfo;

	property keyeventinfo: pkeyeventinfoty read fkeyeventinfo;

	property cursorshape: cursorshapety read fcursorshape write setcursorshape;

	property widgetcursorshape: cursorshapety read fwidgetcursorshape write setwidgetcursorshape;

	property mousewidget: twidget read fmousewidget;

	property clientmousewidget: twidget read fclientmousewidget;

	property mousecapturewidget: twidget read fmousecapturewidget;

	property keyboardcapturewidget: twidget read fkeyboardcapturewidget;

	property mainwindow: twindow read fmainwindow write setmainwindow;

	property thread: threadty read fthread;

	property buttonpresswidgetbefore: twidget read fbuttonpresswidgetbefore;

	property buttonreleasewidgetbefore: twidget read fbuttonreleasewidgetbefore;

	property dblclicktime: integer read fdblclicktime write fdblclicktime default defaultdblclicktime;

	property mousewheelsensitivity: real read fmousewheelsensitivity write fmousewheelsensitivity;

	property mousewheelfrequmin: real read fmousewheelfrequmin write fmousewheelfrequmin;

	property mousewheelfrequmax: real read fmousewheelfrequmax write fmousewheelfrequmax;

	property mousewheeldeltamin: real read fmousewheeldeltamin write fmousewheeldeltamin;

	property mousewheeldeltamax: real read fmousewheeldeltamax write fmousewheeldeltamax;

	property mousewheelaccelerationmax: real read fmousewheelaccelerationmax write fmousewheelaccelerationmax;

---

Generated by PasDoc 0.16.0.