Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private B2 As B4XView 'button
Private B3 As B4XView 'button
Private BT1 As B4XFloatTextField
Dim btv1 As B4XView
Dim ccya, cblk , cblu, ctrs As Int
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
btv1=BT1.mBase.GetView(0)
ccyan = xui.color_cyan
cblk = xui.Color_Black
cblu = xui.Color_Blue
End Sub
Private Sub B2_Click
btv1.Color = cblk
btv1.TextColor = ccya
B3.Color=ctrs
End Sub
Private Sub B3_Click
Dim btv2 As B4XView = BT1.TextField
btv2.Color = ccya
btv2.TextColor = cblu
End Sub