conversie van de storage value naar een display value {Set Value=xxxToDisplay(Value)} onPaint -> voordat de control wordt gedisplayed {Do xxxOnPaint}]]> 1 TControl 0 %String %String %String Als er wordt getypt dan wordt het veld automatisch gewist als de eerste entry een karakter is Als de eerste entry een functietoets is dan wordt het veld NIET gewist en wordt AutoErase afgezet %Boolean Indien true dan wordt door een druk op F2 een messagebox geopend met daarin een editveld dat mogelijk groter is dan de beperkte plaats die werd bepaald door ..Width %Boolean %Integer Zie routine vhLib voor de mogelijke formateringen %Integer Veld mag niet leeg zijn %Integer Bij integer en float kleinste waarde Bij datum, week, ... +$H Bij tijd $P($H,",",2) %String Bij integer en float kleinste waarde Bij datum, week, ... +$H Bij tijd $P($H,",",2) %String %String String]]> %Integer %String %String $$$fsEdit %String ;HO;WIS;EN;LE;RI;BSP;DEL;EOL; Events Method OnChanged(Sender As %String) Wordt bij elke keypres opgeroepen %String Method OnDisplay(Sender As %String, Value As %String) Omvormen van Value naar de display value Wordt elke keer opgeroepen bij OnPaint %String Method OnEdit(Sender As %String, Value As %String) Omvormen van Value naar een editdisplay value Wordt elke keer opgeroepen als het veld de focus krijgt en de EditWaarde wordt getoond, deze kan verschillend zijn van de DisplayWaarde %String Method OnStorage(Sender As %String, Value As %String) Omvormen van Value naar een storage value Wordt elke keer opgeroepen als het veld de focus verliest en veranderd is %String Method OnValidate(Sender As %String, Value As %string, ValidateOk As %String) Event om te controleren of de zuivere edit-input (hetgeen werd ingetypt, niet de transformatie) in orde is %String KillFocusOk:%Boolean Button:%String,Row:%Integer,Col:%Integer Char FontSelected 1 %String NewPos en Dir zijn optioneel NewPos is de nieuwe absolute cursorpositie, kan gecorrigeerd worden na controle Dir is de relatieve verplaatsing NewPos,Dir ($L(..DisplayValue)+1) NewPos=$L(..DisplayValue)+1 Set:NewPos>..EditWidth NewPos=..EditWidth Set ..CursorPos=NewPos Do %Input.CursorShow(..Canvas,..Top,..Left+..CursorPos-1) ]]> Value:%String %Status v %Status voor compatibiliteit met Checkbox en Label %String Sender:TControlBasis,KeyCode:%String Value:%String %Boolean ..MaxValue)&&(Value'="") Set Ok=$$$MsgBoxSimple("Fout: "_..Caption,"De ingave is groter dan de bovengrens") Quit 0 Quit '%Application.TriggerControllableEvent(..OnValidate,%this,.Value) ;Voor datum en tijd is Value in het $H formaat ]]> Value Value,EditWidth,DataType,Format,Required,MinValue,MaxValue