ms2

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -1773,7 +1773,6 @@ Public Class ClassControlBuilder
         gridview.OptionsSelection.MultiSelect = True
         gridview.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
 
-
         If Not _designMode Then
             ' Filter funktioniert nicht mit den MouseEvents des LevelDesigners
             gridview.OptionsView.ShowAutoFilterRow = True

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -122,7 +122,6 @@
             ' Als letztes setzen wir die DataSource
             control.DataSource = dt
             control.EndUpdate()
-
             sw.Stop()
             ' Console.WriteLine("SetDataSource for {0} took {1}ms", control.Name, sw.ElapsedMilliseconds)
         End Sub
@@ -533,12 +532,16 @@
 
         Public Shared Sub LoadValue(control As DevExpress.XtraGrid.GridControl, values As List(Of Object))
             Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = control.MainView
+            Dim focused As Boolean = False
             For i As Integer = 0 To gridview.RowCount - 1
                 Dim fieldName As String = gridview.Columns(0).FieldName
                 Dim rowhandle As Integer = gridview.GetRowHandle(i)
                 Dim rowvalue As String = gridview.GetRowCellValue(rowhandle, fieldName)
-
                 If values.Contains(rowvalue) Then
+                    If focused = False Then
+                        gridview.FocusedRowHandle = rowhandle
+                        focused = True
+                    End If
                     gridview.SelectRow(rowhandle)
                 End If
             Next

app/DD-Record-Organiser/ClassControlValues.vb

@@ -676,6 +676,12 @@ Public Class ClassControlValues
                     Dim rowvalue As String = gridview.GetRowCellValue(rowhandle, fieldName)
                     gridview.UnselectRow(rowhandle)
                 Next
+                Try
+                    gridview.Columns(0).OptionsColumn.AllowEdit = False
+                Catch ex As Exception
+
+                End Try
+
         End Select
     End Sub
 #End Region

app/DD-Record-Organiser/frmUserKonfig.Designer.vb

@@ -477,6 +477,7 @@ Partial Class frmUserKonfig
         Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
@@ -803,7 +804,7 @@ Partial Class frmUserKonfig
         Me.GridViewWH_Users1.Name = "GridViewWH_Users1"
         Me.GridViewWH_Users1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewWH_Users1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewWH_Users1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
+        Me.GridViewWH_Users1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewWH_Users1.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.GridViewWH_Users1.OptionsView.ColumnAutoWidth = False
         Me.GridViewWH_Users1.OptionsView.EnableAppearanceEvenRow = True
@@ -860,7 +861,7 @@ Partial Class frmUserKonfig
         Me.GridViewlUsers2Group.Name = "GridViewlUsers2Group"
         Me.GridViewlUsers2Group.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewlUsers2Group.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewlUsers2Group.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
+        Me.GridViewlUsers2Group.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewlUsers2Group.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.GridViewlUsers2Group.OptionsView.ColumnAutoWidth = False
         Me.GridViewlUsers2Group.OptionsView.EnableAppearanceEvenRow = True
@@ -971,8 +972,8 @@ Partial Class frmUserKonfig
         Me.GridView2.Name = "GridView2"
         Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridView2.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
         Me.GridView2.OptionsBehavior.Editable = False
+        Me.GridView2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.GridView2.OptionsView.ColumnAutoWidth = False
         Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
@@ -1353,7 +1354,7 @@ Partial Class frmUserKonfig
         Me.GridViewUsersinClient.Name = "GridViewUsersinClient"
         Me.GridViewUsersinClient.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewUsersinClient.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewUsersinClient.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
+        Me.GridViewUsersinClient.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewUsersinClient.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.GridViewUsersinClient.OptionsView.ColumnAutoWidth = False
         Me.GridViewUsersinClient.OptionsView.EnableAppearanceEvenRow = True
@@ -1410,7 +1411,7 @@ Partial Class frmUserKonfig
         Me.GridViewUser2Mandanten.Name = "GridViewUser2Mandanten"
         Me.GridViewUser2Mandanten.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewUser2Mandanten.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewUser2Mandanten.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
+        Me.GridViewUser2Mandanten.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewUser2Mandanten.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.GridViewUser2Mandanten.OptionsView.ColumnAutoWidth = False
         Me.GridViewUser2Mandanten.OptionsView.EnableAppearanceEvenRow = True
@@ -1548,8 +1549,8 @@ Partial Class frmUserKonfig
         Me.GridView1.Name = "GridView1"
         Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridView1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
         Me.GridView1.OptionsBehavior.Editable = False
+        Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.GridView1.OptionsView.ColumnAutoWidth = False
         Me.GridView1.OptionsView.EnableAppearanceEvenRow = True