'Process_Globals
Public GameViewHelper As GameViewHelper
Public KeyAlt, KeyShift,KeyCtrl As Boolean
'AppStart
GameViewHelper.AddKeyListener("GVH",MainForm) ', Main.MainForm)
'Main Module
Sub GVH_KeyPressed (KeyCode As String) As Boolean
If KeyCode = "Shift" Then KeyShift = True '"Alt" & "Ctrl" also work
End Sub
Sub GVH_KeyReleased(Keycode As String) As Boolean
If Keycode = "Shift" Then KeyShift = False
End Sub
Sub B4XTable_CellClicked
If KeyShift = True Then Return