Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Controls.LookupGrid/LookupControl3.vb

@@ -13,13 +13,6 @@ Imports DevExpress.XtraEditors.Controls
 Public Class LookupControl3
     Inherits GridLookUpEdit
 
-    Shared Sub New()
-        RepositoryItemLookupControl3.RegisterLookupControl()
-    End Sub
-
-    Public Sub New()
-    End Sub
-
     <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
     Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl3
         Get
@@ -32,6 +25,13 @@ Public Class LookupControl3
             Return RepositoryItemLookupControl3.CustomEditName
         End Get
     End Property
+
+    Shared Sub New()
+        RepositoryItemLookupControl3.RegisterLookupControl()
+    End Sub
+
+    Public Sub New()
+    End Sub
 End Class
 
 <UserRepositoryItem("RegisterLookupControl3")>
@@ -42,6 +42,10 @@ Public Class RepositoryItemLookupControl3
         RegisterLookupControl()
     End Sub
 
+    Public Sub New()
+        SetDropdownButtonEnabled(_MultiSelect)
+    End Sub
+
     Private Const TAG_DROPDOWN = "openDropdown"
 
     Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
@@ -96,8 +100,8 @@ Public Class RepositoryItemLookupControl3
     End Property
 
     Protected Overrides Sub RaiseQueryPopUp(e As CancelEventArgs)
-        If MultiSelect = True Then
+        If MultiSelect = False Then
-            MyBase.RaiseQueryPopUp(e)
+            e.Cancel = True
         End If
     End Sub
 
@@ -227,4 +231,10 @@ Public Class RepositoryItemLookupControl3
             EndUpdate()
         End Try
     End Sub
+
+    Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp
+        If MultiSelect = False Then
+            e.Cancel = True
+        End If
+    End Sub
 End Class

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -792,7 +792,7 @@ Public Class frmDocumentResultList
                 Dim oHitInfo = sender.CalcHitInfo(e.Location)
 
                 If oHitInfo.InRow Then
-                    If _DocumentInfo IsNot Nothing AndAlso _DocumentInfo.AccessRight > Rights.AccessRight.VIEW_ONLY Then
+                    If _DocumentInfo IsNot Nothing AndAlso _DocumentInfo.AccessRight >= Rights.AccessRight.VIEW_EXPORT Then
                         _ScreenOffset = SystemInformation.WorkingArea.Location
 
                         Dim oFullPath As String = _DocumentInfo.FullPath

GUIs.Test.TestGUI/frmLookup.vb

@@ -8,8 +8,10 @@ Public Class frmLookup
             _Datasource.Add($"item-{index}")
         Next
 
-
+        Dim oTable = GetDatatable(10)
-        LookupControl31.Properties.DataSource = GetDatatable(10)
+        LookupControl31.Properties.DataSource = oTable
+        LookupControl31.Properties.ValueMember = oTable.Columns.Item(0).ColumnName
+        LookupControl31.Properties.DisplayMember = oTable.Columns.Item(0).ColumnName
 
         Dim oEditor As New LookupControl3
         GridControl1.DataSource = New List(Of String) From {"foo", "var"}