LookupGrid: version 0.2.0.0

Controls.LookupGrid/frmLookupGrid.vb

@@ -10,6 +10,7 @@ Public Class frmLookupGrid
     Public Property SelectedValues As List(Of String)
 
     Private dataColumn As Integer
+    Private dataSourceTemp As DataTable
     Private view As GridView
     Private grid As GridControl
 
@@ -17,25 +18,27 @@ Public Class frmLookupGrid
         view = viewLookup
         grid = gridLookup
 
-
         If DataSource Is Nothing Then
             Exit Sub
         End If
 
+        ' Original Datasource soll nicht verändert werden
+        dataSourceTemp = DataSource.Copy()
+
         If MultiSelect Then
-            If Not DataSource.Columns.Contains("SELECTED") Then
+            If Not dataSourceTemp.Columns.Contains("SELECTED") Then
                 Dim selectedColumn = New DataColumn() With {
-                .ColumnName = "SELECTED",
-                .DataType = GetType(Boolean),
-                .DefaultValue = False
-            }
-                DataSource.Columns.Add(selectedColumn)
+                    .ColumnName = "SELECTED",
+                    .DataType = GetType(Boolean),
+                    .DefaultValue = False
+                }
+                dataSourceTemp.Columns.Add(selectedColumn)
                 selectedColumn.SetOrdinal(0)
             End If
         End If
 
         ' Datasource setzen
-        grid.DataSource = DataSource
+        grid.DataSource = dataSourceTemp
 
         ' Anzeige Eigeschaften setzen
         view.OptionsFind.AlwaysVisible = True
@@ -71,7 +74,9 @@ Public Class frmLookupGrid
 
         ' Focus auf Find panel setzen
         view.ShowFindPanel()
-        Me.BringToFront()
+
+        ' Spaltenbreite anpassen
+        view.BestFitColumns()
     End Sub
 
     Private Sub SyncItemsWithView(view As GridView)
@@ -195,6 +200,6 @@ Public Class frmLookupGrid
     End Sub
 
     Private Sub frmLookupGrid_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        Me.BringToFront()
+        BringToFront()
     End Sub
 End Class