Android Question Pages and Background Colors and Choices

Sub Class_Globals
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
    Public txtUser As B4XFloatTextField
    Public txtGameOne As B4XFloatTextField
    Public btncolor As SwiftButton
    Private btnLogin As B4XView
    Public Page2 As B4XPage2
    Public Page3 As B4XPage3
    Private Base As B4XView
    Private Dialog As B4XDialog
    Private xui As XUI
    Private ColorTemplate As B4XColorTemplate
  

End Sub

'You can add more parameters here.
Public Sub Initialize
  
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("welcome")
    Page2.Initialize
    B4XPages.AddPage("Page 2", Page2)
    Page3.Initialize
    B4XPages.AddPage("Page 3", Page3)

    Dialog.Initialize (Base)
    Base = Root1
    ColorTemplate.Initialize
  

End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Sub btnColor_Click
    Wait For (Dialog.ShowTemplate(ColorTemplate, "OK", "", "CANCEL")) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Base.Color = ColorTemplate.SelectedColor
    End If
End Sub

Sub btnLogin_Click
    B4XPages.ShowPageAndRemovePreviousPages("Page 2")
End Sub

Sub txtUser_TextChanged (Old As String, New As String)
    btnLogin.Enabled = New.Length > 0
  
End Sub

Sub txtUser_EnterPressed
    If btnLogin.Enabled Then btnLogin_Click
End Sub

Sub B4XPage_Appear
    txtUser.Text = ""
    txtGameOne.Text = ""
End Sub

    Dialog.Initialize (Base)
    Base = Root1

'You can add more parameters here.
Public Sub Initialize
   
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Dialog.Initialize (Root)
    ColorTemplate.Initialize
   
    'load the layout to Root
    Root.LoadLayout("welcome")
    Page2.Initialize
    B4XPages.AddPage("Page 2", Page2)
    Page3.Initialize
    B4XPages.AddPage("Page 3", Page3)
End Sub