1 TCHUI.TControl 0 Zie routine vhLib voor de mogelijke formateringen %Integer $$$edtString, ... %String %Integer %Boolean 0 %String $$$fsLabel %String %Integer $$$lsAuto %Boolean 0 Value:%Integer %Status %String Value:%String %Status Value:%Boolean %Status Value:%Boolean %Status Value:%Boolean %Status Value:%Boolean %Status %String %Integer FontSelected ..Height) Lines=..Height For Loop=1:1:Lines Do . Set DisplayValueSingleLine=$P(DisplayValue,$$$NL,Loop) . Do ..Canvas.MoveTo(..Top+Loop-1,..Left) . If ..Sizing=$$$lsUnknown Do .. Do ..Canvas.TextOut(DisplayValueSingleLine) . Else Do .. Do ..Canvas.TextAlign(i%Width,Align,DisplayValueSingleLine,..Ellipsis) If ..WidthSeparator Do . Do ..Canvas.MoveTo(..Top,..Left+..WidthSeparator-1) . Do ..Canvas.TextOutWithStyle(":", $$$fsNoUnderline) ]]> Sender:TControlBasis,KeyCode:%String initvalue:%CacheString %Status