serial %Const Default %Library.TMComboBox

csAlpha: Matches any of the 52 ASCII upper- and lower-case alphabetic characters (that is, A through Z and a through z)

csLowerCase: Matches any of the 26 ASCII lower-case alphabetic characters (that is, a through z," ").

csLowerCaseAC: Matches any of the 26 ASCII lower-case alphabetic characters (that is, a through z," "), autoconvert uppercases.

csUpperCase: Matches any of the 26 ASCII upper-case alphabetic characters (that is, A through Z," ").

csUpperCaseAC: Matches any of the 26 ASCII upper-case alphabetic characters (that is, A through Z," "), autoconvert lowercases..

csAll: Matches any of the characters in the printable ASCII character set (ASCII codes 0 through 255).

csInteger: Matches any of the 10 ASCII numeric characters (that is, 0 through 9).

csFloat: Matches any of the 10 ASCII numeric characters (that is, 0 through 9)+ CommaDelimiter (default ".") (Set scale for number of digits).

csUserDefined: Matches any of the ASCII characters specified in UserDefinedCharSet PS: Property "RawAllowedCharSet" can be used for TAB, ... ]]> %Library.String "csAll" %Library.String $$$clWhite %Library.String $$$clBlack %Library.String "." %Library.String %Library.String %Library.String %Library.String $$$clRed %Library.String $$$clYellow %Library.String %Library.String %Library.String %Library.Integer 0 %Library.Integer 0 %Library.String "?" %Library.Integer 0 %Library.String %Library.String Default: Tab (8) %Library.String $C(8,9,10,13,27) %Library.Integer 0 %Library.Boolean 1 %Library.String %Library.String For internal use. generator initvalue:%String cache 0 %Library.Status document literal Value:%String cache 0 %Library.Status document literal Value:%String cache 0 %Library.Status document literal Value:%String cache 0 document literal Value:%String cache 0 %Library.Status document literal cache 0 document literal Args:%String cache 0 document literal ..Scale Do .. Do ..TriggerMessage($LB(%this,"moUser",$$$MBICONINFORMATION,"Cijferbeperking","Het aantal cijfers achter de komma is beperkt tot "_ ..Scale _" voor het veld '" _ ..CoupledProperty _ "'.")) .. Do ..SetFocus() .. Set ..SelStart=$Find(Value,..CommaDelimiter) //Overbodige digits selecteren, de gebruiker hoeft enkel DEL in te drukken .. Set ..SelLength=DotLength .. Set Error=1 //MinLen If ..MinLen If $L(Value)<..MinLen Do . Do ..TriggerMessage($LB(%this,"moUser",$$$MBICONINFORMATION,"Minimum lengte","De minimum lengte van het veld '" _ ..CoupledProperty _ "' is "_ ..MinLen _" karakter(s).")) . Do ..ReFocusAndSelect() . Set Error=1 //MinLen If ..MaxLen If $L(Value)>..MaxLen Do . Do ..TriggerMessage($LB(%this,"moUser",$$$MBICONINFORMATION,"Maximum lengte","De maximum lengte van het veld '" _ ..CoupledProperty _ "' is "_ ..MaxLen _" karakter(s).")) . Do ..SetFocus() . Set ..SelStart=..MaxLen //Overbodige tekens selecteren, de gebruiker hoeft enkel DEL in te drukken . Set ..SelLength=$L(Value)-..MaxLen . Set Error=1 //Data - aware If (..FOldValue'=Value) && 'Error Do //Geen fout, eventueel gekoppeld object bijwerken . If (..FCoupledORef) && (..CoupledProperty'="") Do .. Do ..FAssignValue(Value) Set ..FOldValue=Value ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal 64) && ($ASCII(Key)<91) Do .. Set Key=$C($ASCII(Key)+32) . Else If Key'?1(1L,1" ") Set InSet=0 Else If ..AllowedCharSet="csUpperCase" Set:(Key'?1(1U,1" ")) InSet=0 //csUpperCase Else If ..AllowedCharSet="csUpperCaseAC" Do //csUpperCaseAC . If ($ASCII(Key)>96) && ($ASCII(Key)<123) Do .. Set Key=$C($ASCII(Key)-32) . Else If Key'?1(1U,1" ") Set InSet=0 Else If ..AllowedCharSet="csAll" Set:(Key'?1E) InSet=0 //csAll Else If ..AllowedCharSet="csInteger" Set:(Key'?0.1"-".N) InSet=0 //csNumeric Else If ..AllowedCharSet="csFloat" Do //csFloatNumeric . If (Key'=..CommaDelimiter) Set:(Key'?0.1"-".N) InSet=0 //Geen komma, set error wanneer ook geen cijfer . Else Do .. Set:($F(..Text,..CommaDelimiter)'=0) InSet=0 //Wel komma, geen error wanneer er nog geen komma in voorkomt .. Set:(..Text="") InSet=0 //Wel komma, echter nog geen getallen ervoor Else If ..AllowedCharSet="csUserDefined" Set:(..UserDefinedCharSet'[Key) InSet=0 //csUserDefined //Key in NavigatieSet of CharSet? Zoniet, negeer key dr gebruiker ingetoetst If 'InRaw && 'InSet Do . Do ..TriggerMessage($LB(%this,"moUser",$$$MBICONINFORMATION,"Keyboard input","De ingedrukte toets ' " _ Key _ " ' is niet geldig.")) . Set Key=$C(0) ;End of user code s Args=$lb(Sender,Key) q ]]> Triggers just about nothing Value:%String cache 0 document literal cache 0 document literal Method for setting 'Text' property. Value:%String cache 0 %Library.Status document literal ..Scale Do .. Do ..TriggerMessage($LB(%this,"moIntern",$$$MBICONINFORMATION,"Cijferbeperking","Het aantal cijfers achter de komma is beperkt tot "_ ..Scale _" voor het veld '" _ ..CoupledProperty _ "'.")) .. Set Value=$E(Value,$Find(Value,..CommaDelimiter)+Scale,99999) //MinLen If ..MinLen If $L(Value)<..MinLen Do . Do ..TriggerMessage($LB(%this,"moIntern",$$$MBICONINFORMATION,"Minimum lengte","De minimum lengte van het veld '" _ ..CoupledProperty _ "' is "_ ..MinLen _" karakter(s).")) . New Loop,Min,Start . Set Min=..MinLen,Start=$L(Value)+1 . For Loop=Start:1:Min Set $E(Value,Loop)=..MinLenFillChar //MinLen If ..MaxLen If $L(Value)>..MaxLen Do . Do ..TriggerMessage($LB(%this,"moIntern",$$$MBICONINFORMATION,"Maximum lengte","De maximum lengte van het veld '" _ ..CoupledProperty _ "' is "_ ..MaxLen _" karakter(s).")) . Set Value=$E(Value,1,..MaxLen) Do %this.SetProperty("Text",Value) q $$$OK ]]> Args:%String cache 0 document literal Value:%String cache 0 %Library.Status document literal %Library.CacheSerialState TDAComboBoxState list AllowedCharSet BaseColor BaseFontColor CommaDelimiter CoupledClassName CoupledProperty DisplayList ErrorColor ErrorFontColor FCoupledORef FOldValue LastMO MaxLen MinLen MinLenFillChar MsgHint OnMessage Pattern RawAllowedCharSet Scale ShowMessages UserDefinedCharSet ValueList Address Brush Canvas ClassName CloseFromClient Constraints Font Items OnCanResize OnChange OnClick OnConstrainedResize OnDblClick OnDockDrop OnDockOver OnDragDrop OnDragOver OnDrawItem OnDropDown OnEndDock OnEndDrag OnEnter OnExit OnGetSiteInfo OnKeyDown OnKeyPress OnKeyUp OnMeasureItem OnMouseDown OnMouseMove OnMouseUp OnMouseWheel OnMouseWheelDown OnMouseWheelUp OnResize OnStartDock OnStartDrag Parent PopupMenu PropName Query Tag Address ClassName CloseFromClient Parent Align Anchors AutoSize BiDiMode Caption ClientHeight ClientWidth Color Constraints Cursor DockOrientation DragCursor DragKind DragMode Enabled Font Height Hint Left Name OnCanResize OnClick OnConstrainedResize OnDblClick OnDragDrop OnDragOver OnEndDock OnEndDrag OnMouseDown OnMouseMove OnMouseUp OnResize OnStartDock OnStartDrag ParentBiDiMode ParentColor ParentFont ParentShowHint PopupMenu ScalingFlags ShowHint Tag Text Top Visible Width BevelEdges BevelInner BevelKind BevelOuter BevelWidth BorderWidth Brush ControlCount Ctl3D DockSite HelpContext OnDockDrop OnDockOver OnEnter OnExit OnGetSiteInfo OnKeyDown OnKeyPress OnKeyUp OnMouseWheel OnMouseWheelDown OnMouseWheelUp ParentCtl3D TabOrder TabStop UseDockManager WheelAccumulator AutoSelect BorderStyle CanUndo CharCase HideSelection MaxLength Modified OEMConvert OnChange PasswordChar ReadOnly SelLength SelStart SelText PropName CoupledORef CoupledProperty OnMessage AllowedCharSet UserDefinedCharSet AllowedNavigationSet CommaDelimiter CoupledClassName FCoupledORef MaxLen MinLen MinLenFillChar RawAllowedCharSet FOldValue Scale Pattern DisplayList ValueList Canvas DropDownCount DroppedDown ItemHeight ItemIndex Items OnDrawItem OnDropDown OnMeasureItem Query Sorted Style BaseColor BaseFontColor LastMO ErrorColor ErrorFontColor MsgHint ShowMessages