TCHUI.System 1 %RegisteredObject wordt ingevuld bij initialisatie opgebouwd als delimited string \Key1;Label1\Key2;Label2\... %String %Integer Hide or Show van de cursor Dit property bepaalt op welke canvas de cursor moet geplaatst worden, indien de Canvas niet is ingevuld wordt de cursor verborgen TCanvas Left positie van de cursor in dien deze moet getoond worden %Integer Top positie van de cursor in dien deze moet getoond worden %Integer %Integer Mouse clicks verwerken of niet... %Boolean 1 Canvas,Top,Left 1 TimeOut:%Integer 96&(Input<123)):$C(Input-32),1:$C(Input)) ;Use 0:(:$S($P(ZMode,"\")["U":"+",1:"-")_"U":$C(13)) ; herzetten uppercase Use 0:(:"-S") ; herzetten silent Do ..CursorHideRaw() If KeyCode'="" Do . Do %Application.ProcessKey(KeyCode) Else If (MouseCode'="") && ..ProcessMouseClicks Do . Do %Application.ProcessClick($E(MouseCode),1+$E(MouseCode,2,4),1+$E(MouseCode,5,7)) ]]> %Close method to provide notification that the current object is being closed.

The return value of this method is ignored.]]> 1 1 %Status