LookupGrid: Improve strings, hide dropdown button when multiselect false

Controls.LookupGrid/LookupControl3.vb

@@ -30,36 +30,8 @@ Public Class LookupControl3
         RepositoryItemLookupControl3.RegisterLookupControl()
     End Sub
 
-    Friend WithEvents fProperties As RepositoryItemGridLookUpEdit
-    Friend WithEvents fPropertiesView As DevExpress.XtraGrid.Views.Grid.GridView
-
     Public Sub New()
     End Sub
-
-    Private Sub InitializeComponent()
-        Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit()
-        Me.fPropertiesView = New DevExpress.XtraGrid.Views.Grid.GridView()
-        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'fProperties
-        '
-        Me.fProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.fProperties.Name = "fProperties"
-        Me.fProperties.PopupView = Me.fPropertiesView
-        '
-        'fPropertiesView
-        '
-        Me.fPropertiesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
-        Me.fPropertiesView.Name = "fPropertiesView"
-        Me.fPropertiesView.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.fPropertiesView.OptionsView.ShowGroupPanel = False
-        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
 End Class
 
 <UserRepositoryItem("RegisterLookupControl3")>
@@ -202,7 +174,11 @@ Public Class RepositoryItemLookupControl3
     End Sub
 
     Public Overrides Sub CreateDefaultButton()
-        MyBase.CreateDefaultButton()
+        If MultiSelect Then
+            MyBase.CreateDefaultButton()
+            Buttons.Item(0).Tag = TAG_DROPDOWN
+            ActionButtonIndex = 0
+        End If
 
         Dim oLookupFormButtonm = New EditorButton() With {
             .Kind = ButtonPredefines.Search,
@@ -210,10 +186,7 @@ Public Class RepositoryItemLookupControl3
             .Width = 20
         }
 
-        Buttons.Item(0).Tag = TAG_DROPDOWN
         Buttons.AddRange({oLookupFormButtonm})
-
-        ActionButtonIndex = 0
     End Sub
 
     Private Function GetLookupForm() As frmLookupGrid