LookupGrid: Version 3.2.3

Controls.LookupGrid/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("LookupGrid")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("3.2.2.0")>
+<Assembly: AssemblyTrademark("3.2.3.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.2.2.0")>
+<Assembly: AssemblyVersion("3.2.3.0")>
-<Assembly: AssemblyFileVersion("3.2.2.0")>
+<Assembly: AssemblyFileVersion("3.2.3.0")>

Controls.LookupGrid/frmLookupGrid.vb

@@ -57,9 +57,12 @@ Public Class frmLookupGrid
         If MultiSelect Then
             ' Selected Spalte anpassen
             Dim oCheckboxColumn = _View.Columns.Item(0)
+            'oCheckboxColumn.Visible = False
             oCheckboxColumn.Caption = " "
             oCheckboxColumn.MaxWidth = 30
             oCheckboxColumn.MinWidth = 30
+            oCheckboxColumn.OptionsColumn.AllowFocus = False
+
 
             Text = _R.GetString("PopupForm_Text")
             _DataColumn = 1
@@ -191,6 +194,7 @@ Public Class frmLookupGrid
     Private Sub HandleCustomKeys(e As KeyEventArgs)
         If e.KeyCode = Keys.Escape Then
             Close()
+
         ElseIf e.KeyCode = Keys.F2 Then
             ' Make sure the currently focused row's state is saved
             viewLookup.PostEditor()
@@ -201,15 +205,6 @@ Public Class frmLookupGrid
         End If
     End Sub
 
-    Private Sub viewLookup_CellValueChanging(sender As Object, e As Views.Base.CellValueChangedEventArgs) Handles viewLookup.CellValueChanging
-        If e.RowHandle = GridControl.NewItemRowHandle Then
-            Exit Sub
-        End If
-
-        Dim rowHandle = e.RowHandle
-        Dim column = e.Column
-    End Sub
-
     Private Sub viewLookup_ShowingEditor(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles viewLookup.ShowingEditor
         Dim rowHandleIsNewItemRow = (_View.FocusedRowHandle = GridControl.NewItemRowHandle)
         Dim columnIsCheckboxColumn = (_View.FocusedColumn.FieldName = COLUMN_SELECTED)
@@ -262,9 +257,12 @@ Public Class frmLookupGrid
         End If
     End Sub
 
+
+
     Private Sub viewLookup_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles viewLookup.FocusedRowChanged
-        If AddNewValues AndAlso e.PrevFocusedRowHandle = GridControl.NewItemRowHandle Then
+        ' Removed because it leads to some weird behaviour where you a locked in the new row forever 
-            BeginInvoke(Sub() viewLookup.FocusedRowHandle = GridControl.NewItemRowHandle)
+        'If AddNewValues AndAlso e.PrevFocusedRowHandle = GridControl.NewItemRowHandle Then
-        End If
+        '    BeginInvoke(Sub() viewLookup.FocusedRowHandle = GridControl.NewItemRowHandle)
+        'End If
     End Sub
 End Class