#DesignerProperty: Key: NumDec, DisplayName: Decimal Position, FieldType: Int, DefaultValue: 2, Description: Decimal Position.
#DesignerProperty: Key: NumLen, DisplayName: Number Lenght, FieldType: Int, DefaultValue: 10, Description: Number Lenght.
Sub Class_Globals
Private mTarget As Object
Private mEventName As String
Private EventName As String 'ignore
Private CallBack As Object 'ignore
Private mBase As Panel
Private NumberInput As EditText
Private mBase As Panel
Private mLeft, mTop, mWidth, mHeight As Int
Private mValue As String
Dim FormatInput As Boolean = True
Dim PosAttNum, PosAttDec, NumDec, NumLen As Int
Dim CorPosAtt, CorPosDec As Boolean = False
Dim AHNumeric1 As AHNumeric
Dim IME As IME
End Sub
Public Sub Initialize (vCallback As Object, vEventName As String)
EventName = vEventName
CallBack = vCallback
End Sub
Public Sub DesignerCreateView (Base As Panel, Lbl As Label, Props As Map)
'
mLeft = Base.Left
mTop = Base.Top
mWidth = Base.Width
mHeight = Base.Height
'
mBase.Initialize("")
mBase = Base
NumberInput.Initialize("NumberInput")
'
mBase.AddView(NumberInput, mBase.Height, 0, mBase.Width - (2*mBase.Height), mBase.Height)
'
Base.Color = Colors.Transparent
'
NumberInput.Gravity = Gravity.RIGHT
'
End Sub
