jj: add preventduplicate values and add new items to lookupGrid

Global_Indexer/frmAdministration.vb

@@ -1178,4 +1178,24 @@ Public Class frmAdministration
             GroupToDelete = Nothing
         End If
     End Sub
+
+    Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
+        Dim selectedIndexName As String = WD_INDEXComboBox.Text
+
+        If selectedIndexName = String.Empty Then
+            Exit Sub
+        End If
+
+        ' Vektorindexe fangen bei 4000 an
+        Dim isVectorIndex As Boolean = ClassWindream.GetTypeOfIndexAsIntByName(selectedIndexName) > 4000
+        MULTISELECTCheckBox.Visible = isVectorIndex
+        VKT_ADD_ITEMCheckbox.Visible = isVectorIndex
+        VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = isVectorIndex
+
+        If Not isVectorIndex Then
+            MULTISELECTCheckBox.Checked = False
+            VKT_ADD_ITEMCheckbox.Checked = False
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
+        End If
+    End Sub
 End Class