Notice! This is obsolete it will no longer developed. There is a better substitute. Look in the Forum at:
TDSLinput (masked extended EditText)
Name:
TDeditTextExt
Type: B4Xlib
Code: B4A
Version: Beta2 -early access-
Lib Name: TDeditTextExt.b4xlib
(C): TechDoc G.Becker, free to use only for forum members
You need to activated this libraries for TDeditTextExt:
Core, AppCompat, IME, JavaObject, XUI,TDeditTextExt
In some situations we need an
editText view with horizontal and vertical scrolling capability and extra features.
TDeditTextExt is a custom control that is desginerable and it is based on the native
editText view..
- In SingleLine Mode text is scrolled in horizontal direction.
- In Multiline Mode text is scrolled in vertical and horizontal direction.
In addition of the scrolling possibility TDeditTextExt has this features:
- Preset and check Input length.
- Set Input Spellchecking On/Off.
- Show/Hide a Border (Tint) if the view is focused or not. Set Bordercolor and width.
- Preset a Mask and check the input against it.
- Give Access to all native properties of the inbuild editTextView.
To set the
properties values by code follow this example:
[CODE lang="b4x" title="Set standard or extended properties"]Sub setStandardProperties
TDeditTextExt1.edt.TextColor=Colors.Red
End Sub
Sub SetExtendedProperties
TDeditTextExt1.Length=5
TDeditTextExt1.Mask = "###.##"
TDeditTextExt1.Tint=True
TDeditTextExt1.SpellChecking=True
End Sub[/CODE]
For the use in the Designer the native
editText and the extended properties are shown in the
Custom Properties Section (see attached picture).
Length:
The minimum input length is 0. If you set the length value every text change the current input length ich ckecked. If you pass the limit the just added character is stripped of.
Spellchecking:
If SellChecking is True than the phones in build spellchecking is turned on. Wrong or not recognized text is underlind by a red waveline.
Tint:
IF Tint is True than a border around the view is shown. You are able to set a different color for the focus state and the the border width.
Mask:
The
Mask is usefull
and only working if SingleLine property is 'True'.
Use 'A' for Character and '#' for Digit Place like: TDeditTextExt1.Mask = "AA##B" or TDeditTextExt1.Mask = "#,###.##"
Working with a
Mask seperator depends on the used
editText.InputType.
| Inputtype | Seperator |
| NUMBERS | None |
| DECIMAL_NUMBERS | comma (,) dot (.) |
| PHONE | ( ) + - , . ; / N |
| TEXT / NONE | not used |
If you set a Mask the
Input length is set automatically equal to mask length and extended
Length property is not used.
If there is an
input violation like a not allowed digit or char at the mask/ input position or
the input length is less mask length than the background of the view is flashing in red color and an error message is shown. To set the
message text and title of the error message use the designer custom properties.
The complete Mask check is started by pressing the ENTER Button at the end of the input. After checking the result is reported by the
Event "InputError" to the parent object of
TDeditTextExt view.
If you like to look into the
TDeditTextExt code please examine the module in the attached example project.
Notice:
This project is in Beta Status at present. In some situations errors may occure. If you find and error feel free to report them by replying to this article.
If you have ideas or whishes for optimization please let me know.
