TCHUI.System 1 TECH.RegisteredObject %String %String %Boolean Bevat ID naar THelp object %String TControlBasis %Boolean 0 1 %Boolean 0 Events (DefaultDraw=1: systeem tekent, =0: programmeur schrijft paint rtn zelf) Method OnPaint(Sender As %String, DefaultDraw As %Boolean) %String Method OnClear(Sender As %String, DefaultClear As %Boolean) %String Method OnClick(Sender As %String, Args As %String) Args=$LB(Button,Row,Col) %String Method OnLostFocus(Sender As TControlBasis) %String Method OnSetFocus(Sender As TControlBasis) %String Method OnKeyPress(Sender As TControlBasis, KeyCode As %String) %String Het event 'onPaint' kan XFormat invullen en zo de formatering tijdelijk wijzigen Dit veld wordt steeds leeg gemaakt door de method PrepareForPaint Het is een $LB van FGColor, BGColor, Style, Align, DataType, Format,DispValue elke controle heeft een eigen definities van deze $LB Elk van de elementen kan leeg blijven waardoor de standaardwaarden genomen wordt. De posities in de $LB worden gedefinieerd door #defines beginnend met $$$xf... %String standaard Type = "F" -> Focus Type = "S" -> Selected]]> 1 ClientRect:%Boolean %String %Boolean ClearXFormat:%Boolean=1 FontSelected,ClearXFormat:%Boolean=1 FontSelected 1 FontSelected 1 FontSelected Sender:TControlBasis,KeyCode:%String 1 Sender:TControlBasis,KeyCode:%String Button:%String,Row:%Integer,Col:%Integer