#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private B4XFloatTextField1 As B4XFloatTextField
Private mEditable As Boolean
Private mRefreshing As Boolean
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
mRefreshing = True
B4XFloatTextField1.Text = "precipitevolissimevolmente"
Sleep(0)
mRefreshing = False
mEditable = False
End Sub
Private Sub B4XFloatTextField1_TextChanged (Old As String, New As String)
If Not(mEditable) Then
If Not(mRefreshing) Then
mRefreshing = True
B4XFloatTextField1.Text = Old
Sleep(0)
mRefreshing = False
End If
End If
End Sub