AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LookupGrid: Hopefully fix the fProperties shit

Browse Source
This commit is contained in:
Jonathan Jenne 2021-03-26 16:40:39 +01:00
parent 184969c7aa
commit 6e5d1f5721
5 changed files with 64 additions and 205 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
Controls.LookupGrid/LookupControl3.vb
View File

@ -32,12 +32,19 @@ Public Class LookupControl3
Public Sub New() Public Sub New()
End Sub End Sub
Private Sub InitializeComponent()
End Sub
End Class End Class
<UserRepositoryItem("RegisterLookupControl3")> <UserRepositoryItem("RegisterLookupControl3")>
Public Class RepositoryItemLookupControl3 Public Class RepositoryItemLookupControl3
Inherits RepositoryItemGridLookUpEdit Inherits RepositoryItemGridLookUpEdit
Public Sub PopupFIlter() Handles Me.BeforePopup
End Sub
Shared Sub New() Shared Sub New()
RegisterLookupControl() RegisterLookupControl()
End Sub End Sub
@ -62,6 +69,8 @@ Public Class RepositoryItemLookupControl3
Public Delegate Sub SelectedValuesChangedHandler(sender As Object, SelectedValues As List(Of String)) Public Delegate Sub SelectedValuesChangedHandler(sender As Object, SelectedValues As List(Of String))
Public Event SelectedValuesChanged As SelectedValuesChangedHandler Public Event SelectedValuesChanged As SelectedValuesChangedHandler
Private _OriginalDatasource As DataTable
Public Overrides ReadOnly Property EditorTypeName As String Public Overrides ReadOnly Property EditorTypeName As String
Get Get
Return CustomEditName Return CustomEditName
@ -97,11 +106,14 @@ Public Class RepositoryItemLookupControl3
End Set End Set
End Property End Property
Protected Overrides Sub RaiseQueryPopUp(e As CancelEventArgs) Public Overloads Property Datasource As DataTable
If MultiSelect = False Then Get
e.Cancel = True Return _OriginalDatasource
End If End Get
End Sub Set(value As DataTable)
_OriginalDatasource = value
End Set
End Property
Public Shared Sub RegisterLookupControl() Public Shared Sub RegisterLookupControl()
Dim img As Image = Nothing Dim img As Image = Nothing
@ -174,16 +186,10 @@ Public Class RepositoryItemLookupControl3
End Sub End Sub
Public Overrides Sub CreateDefaultButton() Public Overrides Sub CreateDefaultButton()
If MultiSelect Then
MyBase.CreateDefaultButton()
Buttons.Item(0).Tag = TAG_DROPDOWN
ActionButtonIndex = 0
End If
Dim oLookupFormButtonm = New EditorButton() With { Dim oLookupFormButtonm = New EditorButton() With {
.Kind = ButtonPredefines.Search, .Kind = ButtonPredefines.Search,
.Tag = TAG_BUTTON_LOOKUP_FORM, .Tag = TAG_BUTTON_LOOKUP_FORM,
.Width = 20 .Width = 25
} }
Buttons.AddRange({oLookupFormButtonm}) Buttons.AddRange({oLookupFormButtonm})
@ -194,7 +200,7 @@ Public Class RepositoryItemLookupControl3
.MultiSelect = MultiSelect, .MultiSelect = MultiSelect,
.AddNewValues = AllowAddNewValues, .AddNewValues = AllowAddNewValues,
.PreventDuplicates = PreventDuplicates, .PreventDuplicates = PreventDuplicates,
.DataSource = DataSource, .DataSource = _OriginalDatasource,
.SelectedValues = SelectedValues, .SelectedValues = SelectedValues,
.StartPosition = FormStartPosition.Manual, .StartPosition = FormStartPosition.Manual,
.Location = OwnerEdit.PointToScreen(New Point(OwnerEdit.Width, 0)) .Location = OwnerEdit.PointToScreen(New Point(OwnerEdit.Width, 0))
@ -236,4 +242,17 @@ Public Class RepositoryItemLookupControl3
e.Cancel = True e.Cancel = True
End If End If
End Sub End Sub
Protected Overrides Sub RaiseQueryPopUp(e As CancelEventArgs)
If MultiSelect = False Then
e.Cancel = True
End If
End Sub
Private Sub RepositoryItemLookupControl3_Popup(sender As Object, e As EventArgs) Handles Me.Popup
End Sub
End Class End Class

4
GUIs.Test.TestGUI/My Project/licenses.licx
View File

@ -1,4 +1,6 @@
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraWizard.WizardControl, DevExpress.XtraWizard.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraWizard.WizardControl, DevExpress.XtraWizard.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

164
GUIs.Test.TestGUI/frmLookup.Designer.vb generated
View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLookup Partial Class frmLookup
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@ -20,81 +20,44 @@ Partial Class frmLookup
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() 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 EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject2 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 SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLookup))
Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
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.LookupControl31 = New DigitalData.Controls.LookupGrid.LookupControl3()
Me.LookupControl31View = New DevExpress.XtraGrid.Views.Grid.GridView() Me.LookupControl31View = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.LookupControl32 = New DigitalData.Controls.LookupGrid.LookupControl3() CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
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.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LookupControl31View, 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() Me.SuspendLayout()
' '
'GridControl1 'LookUpEdit1
' '
Me.GridControl1.Location = New System.Drawing.Point(12, 12) Me.LookUpEdit1.Location = New System.Drawing.Point(620, 40)
Me.GridControl1.MainView = Me.GridView1 Me.LookUpEdit1.Name = "LookUpEdit1"
Me.GridControl1.Name = "GridControl1" Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.GridControl1.Size = New System.Drawing.Size(452, 375) Me.LookUpEdit1.Size = New System.Drawing.Size(100, 20)
Me.GridControl1.TabIndex = 1 Me.LookUpEdit1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
'
'GridColumn1
'
Me.GridColumn1.Caption = "GridColumn1"
Me.GridColumn1.Name = "GridColumn1"
Me.GridColumn1.Visible = True
Me.GridColumn1.VisibleIndex = 0
' '
'LookupControl31 'LookupControl31
' '
Me.LookupControl31.Location = New System.Drawing.Point(631, 12) Me.LookupControl31.Location = New System.Drawing.Point(412, 40)
Me.LookupControl31.Name = "LookupControl31" Me.LookupControl31.Name = "LookupControl31"
Me.LookupControl31.Properties.ActionButtonIndex = 1 Me.LookupControl31.Properties.AllowAddNewValues = False
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, "", 25, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])})
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.Datasource = Nothing
Me.LookupControl31.Properties.MultiSelect = True Me.LookupControl31.Properties.MultiSelect = False
Me.LookupControl31.Properties.PopupView = Me.LookupControl31View Me.LookupControl31.Properties.PopupView = Me.LookupControl31View
Me.LookupControl31.Properties.PreventDuplicates = False Me.LookupControl31.Properties.PreventDuplicates = False
Me.LookupControl31.Properties.ReadOnly = False Me.LookupControl31.Properties.ReadOnly = False
Me.LookupControl31.Properties.SelectedValues = CType(resources.GetObject("LookupControl31.Properties.SelectedValues"), System.Collections.Generic.List(Of String)) Me.LookupControl31.Properties.SelectedValues = CType(resources.GetObject("LookupControl31.Properties.SelectedValues"), System.Collections.Generic.List(Of String))
Me.LookupControl31.Size = New System.Drawing.Size(157, 20) Me.LookupControl31.Size = New System.Drawing.Size(161, 20)
Me.LookupControl31.TabIndex = 2 Me.LookupControl31.TabIndex = 1
' '
'LookupControl31View 'LookupControl31View
' '
@ -103,102 +66,23 @@ Partial Class frmLookup
Me.LookupControl31View.OptionsSelection.EnableAppearanceFocusedCell = False Me.LookupControl31View.OptionsSelection.EnableAppearanceFocusedCell = False
Me.LookupControl31View.OptionsView.ShowGroupPanel = 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 'frmLookup
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450) 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.LookupControl31)
Me.Controls.Add(Me.GridControl1) Me.Controls.Add(Me.LookUpEdit1)
Me.Name = "frmLookup" Me.Name = "frmLookup"
Me.Text = "Form1" Me.Text = "frmLookup"
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookupControl31View, 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.ResumeLayout(False)
Me.PerformLayout()
End Sub End Sub
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents LookupControl31 As DigitalData.Controls.LookupGrid.LookupControl3 Friend WithEvents LookupControl31 As DigitalData.Controls.LookupGrid.LookupControl3
Friend WithEvents LookupControl31View As DevExpress.XtraGrid.Views.Grid.GridView 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 End Class

18
GUIs.Test.TestGUI/frmLookup.resx
View File

@ -124,24 +124,6 @@
PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB
AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0
ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs=
</value>
</data>
<data name="LookupControl32.Properties.SelectedValues" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u
ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u
PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB
AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0
ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs=
</value>
</data>
<data name="LookupControl33.Properties.SelectedValues" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u
ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u
PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB
AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0
ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs=
</value> </value>
</data> </data>
</root> </root>

38
GUIs.Test.TestGUI/frmLookup.vb
View File

@ -1,37 +1,13 @@
Imports DigitalData.Controls.LookupGrid Public Class frmLookup
Public Class frmLookup
Private _Datasource As List(Of String) = New List(Of String) Private _Datasource As List(Of String) = New List(Of String)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For index = 1 To 1000000
_Datasource.Add($"item-{index}")
Next
Dim oTable = GetDatatable(10) Dim oTable = GetDatatable(10)
LookupControl31.Properties.DataSource = oTable
LookupControl31.Properties.ValueMember = oTable.Columns.Item(0).ColumnName
LookupControl31.Properties.DisplayMember = oTable.Columns.Item(0).ColumnName
LookupControl32.Properties.MultiSelect = True
LookupControl32.Properties.DataSource = oTable
LookupControl32.Properties.ValueMember = oTable.Columns.Item(0).ColumnName
LookupControl32.Properties.DisplayMember = oTable.Columns.Item(0).ColumnName
LookupControl32.Properties.MultiSelect = False
Dim oEditor As New LookupControl3 LookUpEdit1.Properties.DataSource = oTable
GridControl1.DataSource = New List(Of String) From {"foo", "var"} LookupControl31.Properties.Datasource = oTable
GridControl1.ForceInitialize()
Dim oFirstColumn = GridView1.Columns.First()
Dim oEditor2 As New RepositoryItemLookupControl3() With {
.DataSource = GetDatatable(10),
.DisplayMember = "Col1",
.ValueMember = "Col1"
}
GridControl1.RepositoryItems.Add(oEditor2)
GridView1.Columns(0).ColumnEdit = oEditor2
End Sub End Sub
Private Function GetDatatable(Limit As Integer) As DataTable Private Function GetDatatable(Limit As Integer) As DataTable
@ -52,8 +28,4 @@ Public Class frmLookup
Return oDatatable Return oDatatable
End Function End Function
End Class
Private Sub LookupControl32_EditValueChanged(sender As Object, e As EventArgs) Handles LookupControl32.EditValueChanged, LookupControl33.EditValueChanged
End Sub
End Class