Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private TableView1 As TableView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file. (Just contains the Tableview)
MainForm.Show
TableView1.SetColumns(Array As String("Row","Text"))
Dim Items As List
Items.Initialize
For i = 0 To 10
Dim L As Label
L.Initialize("")
Dim TF As TextField
TF.Initialize("TF")
TF.Text = "Row " & i
Dim Row(2) As Object
Row(0) = L
Row(1) = TF
TableView1.Items.Add(Row)
Next
End Sub
Sub TF_MouseClicked (EventData As MouseEvent)
Log("Clicked")
Dim TF As TextField = Sender
TableView1.SelectedRow = ASJO(TF.parent).RunMethodJO("getTableRow",Null).RunMethod("getIndex",Null)
'
End Sub
'
Private Sub ASJO(JO As JavaObject) As JavaObject
Return JO
End Sub