LookupGrid: Hopefully fix the fProperties shit

Controls.LookupGrid/LookupControl3.vb

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