Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim li As ListView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
li.Initialize("li")
For a = 0 To 10
li.Items.Add("Item "&a)
Next
MainForm.RootPane.AddNode(li,10,10,200,300)
End Sub
Sub li_MouseClicked (EventData As MouseEvent)
If EventData.ClickCount = 2 Then
Log(li.SelectedItem)
End If
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