B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
	Private Root As B4XView
	Private xui As XUI
	Private B4XFloatTextField1 As B4XFloatTextField
	Private Button1 As B4XView
	Private Button2 As B4XView
	Private Button3 As B4XView
	Private Button4 As B4XView
End Sub

Public Sub Initialize
'	B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	Root.LoadLayout("MainPage")
End Sub

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

Private Sub Button1_Click
	B4XFloatTextField1.mBase.Color = Colors.Yellow
End Sub

Private Sub Button2_Click
	xui.MsgboxAsync ("Change background colour" , "B4X")
	wait for msgbox_result
	B4XFloatTextField1.mBase.Color = Colors.Magenta
End Sub


Private Sub Button3_Click
	B4XFloatTextField1.mBase.GetView(0).TextColor = Colors.Green
End Sub

Private Sub Button4_Click
	xui.MsgboxAsync ("Change text colour"  , "B4X")
	wait for msgbox_result
	B4XFloatTextField1.mBase.GetView(0).TextColor = Colors.DarkGray
End Sub