#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Button1 As B4XView
Private Label1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.WindowWidth = fx.PrimaryScreen.MaxX * 0.7
MainForm.WindowHeight = fx.PrimaryScreen.MaxY * 0.5
MainForm.RootPane.LoadLayout("main") 'Load the layout file.
MainForm.SetFormStyle("UTILITY")
MainForm.AlwaysOnTop= True
MainForm.Show
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Private Sub Button1_Click
Log($"Button clicked"$)
Label1.Text = $"Tapped at $DateTime{DateTime.Now}"$
End Sub
Private Sub Button1_MouseClicked (EventData As MouseEvent)
Log($"Button MouseClick"$)
End Sub
Private Sub Button1_MousePressed (EventData As MouseEvent)
Log($"Button MousePressed"$)
End Sub
Private Sub Button1_MouseEntered (EventData As MouseEvent)
Log($"Button MouseEntered"$)
End Sub
Private Sub Button1_MouseReleased (EventData As MouseEvent)
Log($"Button MouseReleased"$)
End Sub
Private Sub Button1_FocusChanged (HasFocus As Boolean)
Log($"Button FocusChanged : ${HasFocus}"$)
End Sub