serial %Const,MakovaDrawTextCnts,KeyCodesCNTs Default %Library.TMEdit %Library.String Args:%String cache 0 document literal

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 Indien leeg: geen MaxValue %Library.String %Library.Integer 0 %Library.String "?" %Library.String 200 %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 0 %Library.Status Value:%String 0 %Library.Status Value:%String 0 Value:%String 0 %Library.Status 0 Args:%String 0 ..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 //MaxValue If ..MaxValue'="" If Value>..MaxValue Do . Do ..TriggerMessage($LB(%this,"moUser",$$$MBICONINFORMATION,"Maximum waarde","De maximum waarde van het veld '" _ ..CoupledProperty _ "' is "_ ..MaxValue _" karakter(s).")) . Do ..ReFocusAndSelect() . 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 //MaxLen 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'=$$$NULLOREF) && (..CoupledProperty'="") Do .. Do ..FAssignValue(Value) Set ..FOldValue=Value ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 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'?1N) InSet=0 //csNumeric Else If ..AllowedCharSet="csFloat" Do //csFloatNumeric . If (Key'=..CommaDelimiter) Set:(Key'?1N) 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 0 0 Method for setting 'Text' property. Value:%String 0 %Library.Status ..Scale Do .. Do ..TriggerMessage($LB(%this,"moIntern",$$$MBICONINFORMATION,"Cijferbeperking","Het aantal cijfers achter de komma is beperkt tot "_ ..Scale _" voor het veld '" _ ..CoupledProperty _ "'. De oorspronkelijke inhoud was '" _ Value _ "'.")) .. Set Value=$E(Value,$Find(Value,..CommaDelimiter)+..Scale,99999) //MaxValue If ..MaxValue'="" If Value>..MaxValue Do . Do ..TriggerMessage($LB(%this,"moIntern",$$$MBICONINFORMATION,"Maximum waarde","De maximum waarde van het veld '" _ ..CoupledProperty _ "' is "_ ..MaxValue _" karakter(s). De oorspronkelijke inhoud was '" _ Value _ "'.")) . Set Value=..MaxValue //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). De oorspronkelijke inhoud was '" _ Value _ "'.")) . 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). De oorspronkelijke inhoud was '" _ Value _ "'.")) . Set Value=$E(Value,1,..MaxLen) Do %this.SetProperty("Text",Value) q $$$OK ]]> Args:%String 0 %Library.CacheSerialState 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 BaseColor ErrorColor BaseFontColor ErrorFontColor LastMO FMsgPaintBox ShowMessages FMsgIcon FMsgPanel FMsgCopy MsgHint MinimumHintWidth MaxValue FRealValue