Move to LookupControl3 for Globix

This commit is contained in:
Jonathan Jenne
2021-03-22 15:58:20 +01:00
parent a34c29d8e2
commit 21bf3a7d32
7 changed files with 170 additions and 34 deletions

View File

@@ -22,21 +22,41 @@ Partial Class frmLookup
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim EditorButtonImageOptions4 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject13 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject14 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject15 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject16 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLookup))
Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLookup))
Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.LookupControl31 = New DigitalData.Controls.LookupGrid.LookupControl3()
Me.LookupControl31View = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.LookupControl32 = New DigitalData.Controls.LookupGrid.LookupControl3()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.LookupControl33 = New DigitalData.Controls.LookupGrid.LookupControl3()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LookupControl31View, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LookupControl32.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LookupControl33.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GridControl1
@@ -63,11 +83,11 @@ Partial Class frmLookup
'
'LookupControl31
'
Me.LookupControl31.Location = New System.Drawing.Point(562, 116)
Me.LookupControl31.Location = New System.Drawing.Point(631, 12)
Me.LookupControl31.Name = "LookupControl31"
Me.LookupControl31.Properties.ActionButtonIndex = 1
Me.LookupControl31.Properties.AllowAddNewValues = True
Me.LookupControl31.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Search, "", 20, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.LookupControl31.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Search, "", 20, True, True, False, EditorButtonImageOptions4, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.LookupControl31.Properties.MultiSelect = True
Me.LookupControl31.Properties.PopupView = Me.LookupControl31View
Me.LookupControl31.Properties.PreventDuplicates = False
@@ -83,11 +103,77 @@ Partial Class frmLookup
Me.LookupControl31View.OptionsSelection.EnableAppearanceFocusedCell = False
Me.LookupControl31View.OptionsView.ShowGroupPanel = False
'
'LookupControl32
'
Me.LookupControl32.Location = New System.Drawing.Point(631, 38)
Me.LookupControl32.Name = "LookupControl32"
Me.LookupControl32.Properties.ActionButtonIndex = 1
Me.LookupControl32.Properties.AllowAddNewValues = True
Me.LookupControl32.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Search, "", 20, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.LookupControl32.Properties.MultiSelect = True
Me.LookupControl32.Properties.PopupView = Me.GridView2
Me.LookupControl32.Properties.PreventDuplicates = False
Me.LookupControl32.Properties.ReadOnly = False
Me.LookupControl32.Properties.SelectedValues = CType(resources.GetObject("LookupControl32.Properties.SelectedValues"), System.Collections.Generic.List(Of String))
Me.LookupControl32.Size = New System.Drawing.Size(157, 20)
Me.LookupControl32.TabIndex = 2
'
'GridView2
'
Me.GridView2.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.GridView2.Name = "GridView2"
Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView2.OptionsView.ShowGroupPanel = False
'
'LookupControl33
'
Me.LookupControl33.Location = New System.Drawing.Point(631, 64)
Me.LookupControl33.Name = "LookupControl33"
Me.LookupControl33.Properties.ActionButtonIndex = 1
Me.LookupControl33.Properties.AllowAddNewValues = True
Me.LookupControl33.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Search, "", 20, True, True, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.LookupControl33.Properties.MultiSelect = True
Me.LookupControl33.Properties.PopupView = Me.GridView3
Me.LookupControl33.Properties.PreventDuplicates = False
Me.LookupControl33.Properties.ReadOnly = False
Me.LookupControl33.Properties.SelectedValues = CType(resources.GetObject("LookupControl33.Properties.SelectedValues"), System.Collections.Generic.List(Of String))
Me.LookupControl33.Size = New System.Drawing.Size(157, 20)
Me.LookupControl33.TabIndex = 2
'
'GridView3
'
Me.GridView3.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.GridView3.Name = "GridView3"
Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView3.OptionsView.ShowGroupPanel = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(509, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(93, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "MultiSelect = True"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(509, 41)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(96, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "MultiSelect = False"
'
'frmLookup
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.LookupControl33)
Me.Controls.Add(Me.LookupControl32)
Me.Controls.Add(Me.LookupControl31)
Me.Controls.Add(Me.GridControl1)
Me.Name = "frmLookup"
@@ -96,7 +182,12 @@ Partial Class frmLookup
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookupControl31View, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookupControl32.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookupControl33.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
@@ -104,4 +195,10 @@ Partial Class frmLookup
Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents LookupControl31 As DigitalData.Controls.LookupGrid.LookupControl3
Friend WithEvents LookupControl31View As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents LookupControl32 As DigitalData.Controls.LookupGrid.LookupControl3
Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents LookupControl33 As DigitalData.Controls.LookupGrid.LookupControl3
Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
End Class