jj: Write Vector fields \o/

2018-10-29 13:26:57 +01:00
parent ac8709a0f9
commit 52966dcc47
10 changed files with 290 additions and 264 deletions
--- a/Global_Indexer/frmLookupGrid.vb
+++ b/Global_Indexer/frmLookupGrid.vb
@@ -27,8 +27,10 @@ Public Class frmLookupGrid

        If MultiSelect Then
            ' Selected Spalte anpassen
-            view.Columns.Item(0).Caption = " "
-            view.Columns.Item(0).Resize(10)
+            Dim checkboxColumn = view.Columns.Item(0)
+            checkboxColumn.Caption = " "
+            checkboxColumn.MaxWidth = 10
+
            Text = "Wählen Sie einen oder mehrere Werte:"
            dataColumn = 1
        Else
@@ -57,7 +59,6 @@ Public Class frmLookupGrid

        ' Focus auf Find panel setzen
        view.ShowFindPanel()
-
    End Sub

    Private Sub SyncItemsWithView(view As GridView)