TCHUI.System 1 %RegisteredObject 0 ================================ PROPERTIES ================================ %String %String %List 1 %String %String %Boolean 0 %String %String %String TForm TTimer array ================================ EVENT PROPERTIES ================================ Event voor alle keys op te vangen %String Event voor alle mouseclicks op te vangen %String Event voor fouten op te vangen %String Event wanneer focus aan ctrl wordt gegeven %String Event wanneer focus van ctrl wordt weggehaald %String Event wanneer focus van ctrl even 'inslaapt' %String ================================ MAIN METHODs ================================ Application object creatie 1 Class,Name,Caption,Top,Left,Height,Width,Font,FormType TControl 1 VBA:%String 1 VBA:%String %String 1 %String %Boolean ================================ TRIGGER EVENTs ================================ EventAddr:%String,Sender:%String %Boolean %Boolean EventAddr:%String,Sender:%String De Args kan hier niet gebruikt worden om argumenten terug te krijgen vermits het eventverwerking uitgesteld wordt (on idle). De events gestockeerd in de event queue verwerken ================================ EVENT PROCESSING ================================ KeyCode:%String,Target:TControlBasis,Sender:TControlBasis Button:%String,Row:%Integer,Col:%Integer Sender:%String,ExceptionType:%String,Msg:%String %Boolean %Boolean Target:%String,ForcedHibernate:%Boolean=0 %Boolean Target:%String Target:%String ================================ APP LEVEL EVENT PROCESSING ================================ Sender:TControlBasis,KeyCode:%String 1 Button:%String,Row:%Integer,Column:%Integer ================================ AVAILABLE DEBUG EVENTs ================================ Sender:%String,Args:%String,ProcessKey:%Boolean Prop. to "_TargetName_SenderName) Else Do . Do WL^vhDBG("[KEY '"_KeyCode_"'] "_TargetName_SenderName) Quit ]]> Target:%String,Args:%String,ProcessClick:%Boolean Target:%String SET FOCUS: "_Name,"BLUE") ]]> Target:%String,Continue:%Boolean Target:%String Sender:%String,Args:%String,HandleException:%Boolean