Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Public dialog As B4XDialog
Public token As String
Private ScanHereMC As B4XView
Private NewPaletteBtnMC As B4XView
Private QuantityMC As B4XView
Private AcceptInputBtnMC As B4XView
Private i As Int = 0
Public url As String
Private PanelMC As B4XView
Private LogOutMainPage As B4XView
Private LogIn As B4XMainPage
Private Activity1 As Activity
End Sub
Public Sub Initialize As Object
Return Me
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
' should i use Activity1 instead of Root1 here?
Root = Root1
'load the layout to Root
Root.LoadLayout("Lay_MoveContainer")
ScanHereMC.RequestFocus()
Dim cs As CSBuilder
cs.Initialize
cs.Image(LoadBitmap(File.DirAssets, "image002.png"), 40dip, 40dip, True).Append(CRLF).Append(" Μετακίνηση Περιεκτών").Alignment("ALIGN_NORMAL")
cs.PopAll
TitleSplit.Text = cs
LogIn.Initialize
B4XPages.AddPageAndCreate("MainPage", LogIn)
End Sub
Private Sub B4XPage_Disappear()
Try
Activity1.Finish()
Catch
Log(LastException)
End Try
End Sub