' SecondaryButtonPressed is the right mouse button
Sub tvMenuSettings_MouseClicked( EventData As MouseEvent )
Dim x, y As Int
' this event is called *after* SelectedRowChanged()
If CurrentNVP.Length > 2 And EventData.SecondaryButtonPressed = True Then
If GetMenuCellValue( CurrentNVP( 0 ), 3 ).Length > 0 Then
'Log( "SecondaryButtonPressed" )
x = EventData.X
y = EventData.y
lvMouseMenu.Items.Clear
lvMouseMenu.Items.Add( "===> Cancel" )
lvMouseMenu.Items.Add( "Load Default")
lvMouseMenu.SetSize( lvMouseMenu.Width, lvMouseMenu.Items.Size * 30dip )
lvMouseMenu.Top = y + 50dip
lvMouseMenu.Left = x
lvMouseMenu.Visible = True
BringToFront( pnMenuSettings ) ' the Pane
BringToFront( tvMenuSettings ) ' the TableView
BringToFront( lvMouseMenu ) ' the ListView
DisplayTimer.Enabled = True
EventData.Consume
End If
End If
End Sub ' tvMenuSettings_MouseClicked()