fix drag drop !!!!111einself11111!!!

2020-06-05 16:21:16 +02:00
parent d3373e0368
commit b1542c7091
6 changed files with 1196 additions and 1243 deletions
--- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb
+++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb
@@ -87,8 +87,6 @@ Partial Class frmAdministration
        Me.RibbonGroup_Process = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonGroup_Window = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonGroup_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonGroup_User = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonGroup_Group = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@@ -794,7 +792,7 @@ Partial Class frmAdministration
        '
        'RibbonPage2
        '
-        Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_Profile, Me.RibbonGroup_DocSearch, Me.RibbonGroup_DataSearch, Me.RibbonGroup_Process, Me.RibbonGroup_Window, Me.RibbonGroup_Control, Me.RibbonGroup_User, Me.RibbonGroup_Group})
+        Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_Profile, Me.RibbonGroup_DocSearch, Me.RibbonGroup_DataSearch, Me.RibbonGroup_Process, Me.RibbonGroup_Window, Me.RibbonGroup_Control})
        Me.RibbonPage2.Name = "RibbonPage2"
        Me.RibbonPage2.Text = "Start"
        '
@@ -853,22 +851,6 @@ Partial Class frmAdministration
        Me.RibbonGroup_Control.Name = "RibbonGroup_Control"
        Me.RibbonGroup_Control.Text = "Feld Zuordnung"
        '
-        'RibbonGroup_User
-        '
-        Me.RibbonGroup_User.Enabled = False
-        Me.RibbonGroup_User.ItemLinks.Add(Me.BarButtonItem11)
-        Me.RibbonGroup_User.ItemLinks.Add(Me.BarButtonItem12)
-        Me.RibbonGroup_User.Name = "RibbonGroup_User"
-        Me.RibbonGroup_User.Text = "Benutzer Zuordnung"
-        '
-        'RibbonGroup_Group
-        '
-        Me.RibbonGroup_Group.Enabled = False
-        Me.RibbonGroup_Group.ItemLinks.Add(Me.BarButtonItem13)
-        Me.RibbonGroup_Group.ItemLinks.Add(Me.BarButtonItem14)
-        Me.RibbonGroup_Group.Name = "RibbonGroup_Group"
-        Me.RibbonGroup_Group.Text = "Gruppen Zuordnung"
-        '
        'RibbonPage1
        '
        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -1980,7 +1962,9 @@ Partial Class frmAdministration
        Me.GridViewUserNotInProfile.OptionsView.ColumnAutoWidth = False
        Me.GridViewUserNotInProfile.OptionsView.EnableAppearanceEvenRow = True
        Me.GridViewUserNotInProfile.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewUserNotInProfile.OptionsView.ShowDetailButtons = False
        Me.GridViewUserNotInProfile.OptionsView.ShowGroupPanel = False
+        Me.GridViewUserNotInProfile.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True]
        '
        'colSurname
        '
@@ -2055,6 +2039,7 @@ Partial Class frmAdministration
        '
        'GridControlGroupInProfile
        '
+        Me.GridControlGroupInProfile.AllowDrop = True
        Me.GridControlGroupInProfile.DataSource = Me.VWCW_GROUP_PROFILEBindingSource
        Me.GridControlGroupInProfile.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GridControlGroupInProfile.Location = New System.Drawing.Point(0, 25)
@@ -2079,7 +2064,6 @@ Partial Class frmAdministration
        Me.GridViewGroupInProfile.OptionsBehavior.Editable = False
        Me.GridViewGroupInProfile.OptionsBehavior.ReadOnly = True
        Me.GridViewGroupInProfile.OptionsSelection.MultiSelect = True
-        Me.GridViewGroupInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
        Me.GridViewGroupInProfile.OptionsView.EnableAppearanceEvenRow = True
        Me.GridViewGroupInProfile.OptionsView.ShowAutoFilterRow = True
        Me.GridViewGroupInProfile.OptionsView.ShowGroupPanel = False
@@ -2092,7 +2076,7 @@ Partial Class frmAdministration
        Me.colGUID3.MinWidth = 40
        Me.colGUID3.Name = "colGUID3"
        Me.colGUID3.Visible = True
-        Me.colGUID3.VisibleIndex = 1
+        Me.colGUID3.VisibleIndex = 0
        Me.colGUID3.Width = 40
        '
        'colNAME2
@@ -2101,7 +2085,7 @@ Partial Class frmAdministration
        Me.colNAME2.FieldName = "NAME"
        Me.colNAME2.Name = "colNAME2"
        Me.colNAME2.Visible = True
-        Me.colNAME2.VisibleIndex = 2
+        Me.colNAME2.VisibleIndex = 1
        Me.colNAME2.Width = 40
        '
        'Label9
@@ -2117,6 +2101,7 @@ Partial Class frmAdministration
        '
        'GridControlGroupNotInProfile
        '
+        Me.GridControlGroupNotInProfile.AllowDrop = True
        Me.GridControlGroupNotInProfile.DataSource = Me.TBWH_GROUPBindingSource
        Me.GridControlGroupNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GridControlGroupNotInProfile.Location = New System.Drawing.Point(0, 25)
@@ -2141,7 +2126,6 @@ Partial Class frmAdministration
        Me.GridViewGroupNotInProfile.OptionsBehavior.Editable = False
        Me.GridViewGroupNotInProfile.OptionsBehavior.ReadOnly = True
        Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelect = True
-        Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
        Me.GridViewGroupNotInProfile.OptionsView.EnableAppearanceEvenRow = True
        Me.GridViewGroupNotInProfile.OptionsView.ShowAutoFilterRow = True
        Me.GridViewGroupNotInProfile.OptionsView.ShowGroupPanel = False
@@ -2154,7 +2138,7 @@ Partial Class frmAdministration
        Me.colID1.MinWidth = 40
        Me.colID1.Name = "colID1"
        Me.colID1.Visible = True
-        Me.colID1.VisibleIndex = 1
+        Me.colID1.VisibleIndex = 0
        Me.colID1.Width = 40
        '
        'colNAME3
@@ -2163,7 +2147,7 @@ Partial Class frmAdministration
        Me.colNAME3.FieldName = "NAME"
        Me.colNAME3.Name = "colNAME3"
        Me.colNAME3.Visible = True
-        Me.colNAME3.VisibleIndex = 2
+        Me.colNAME3.VisibleIndex = 1
        '
        'Label10
        '
@@ -2466,8 +2450,6 @@ Partial Class frmAdministration
    Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonGroup_User As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents RibbonGroup_Group As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents TBDD_CONNECTIONBindingSource As BindingSource
    Friend WithEvents TBDD_CONNECTIONTableAdapter As MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter