private Sub txt_FocusChanged (HasFocus As Boolean)
Dim txt As TextField = Sender
Dim iAmInRow As Int = txt.Tag
tw_SelectedRowChanged(iAmInRow,Null)
End Sub
private Sub tw_SelectedRowChanged(Index As Int, Row() As Object)
Dim tw As TableView
Row = tw.SelectedRowValues
End Sub
Sub tf_action
Dim r As Int = 0
For Each row() As Object In tv.Items
If row(0) = Sender Then 'textfield is in col 0
Log("row " & r)
tv.SelectedRow = r
Exit
Else
r = r + 1
End If
Next
End Sub
Sub tf_mouseclicked(eventdata As MouseEvent)
Dim r As Int = 0
For Each row() As Object In tv.Items
If row(0) = Sender Then 'textfield is in col 0
Log("row " & r)
tv.SelectedRow = r
Exit
Else
r = r + 1
End If
Next
End Sub
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
