Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private etMail As AS_TextFieldAdvanced
Private etPassword As AS_TextFieldAdvanced
Private lblRestore As Label
Private pnlLogin As Panel
' Private ime As IME
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
Return Me
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("login")
' ime.Initialize("")
End Sub
Sub B4XPage_CloseRequest As ResumableSub
Return True
End Sub
Private Sub etPassword_EnterPressed
btnLogin_Click
End Sub
Private Sub lblRegister_Click
B4XPages.ShowPage("registerPage")
End Sub
Private Sub lblRestore_Click
B4XPages.ShowPage("restorePasswordPage")
End Sub
Sub IME_HeightChanged (NewHeight As Int, OldHeight As Int)
pnlLogin.Top=NewHeight-pnlLogin.Height
End Sub
Private Sub etPassword_TextChanged(Text As String)
Log("SD")
End Sub
Private Sub etMail_TextChanged(Text As String)
Log("SD2")
End Sub
