Add Checkbox and DateTime Editor for frmEdit, New LookupGrid WIP

LookupGrid/LookupControl2.vb

@@ -0,0 +1,74 @@
+Imports System.ComponentModel
+Imports System.Drawing
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Drawing
+Imports DevExpress.XtraEditors.Registrator
+Imports DevExpress.XtraEditors.Repository
+Imports DevExpress.XtraEditors.ViewInfo
+Imports DevExpress.XtraEditors.Popup
+Imports DevExpress.Accessibility
+
+<UserRepositoryItem("RegisterLookupControl2")>
+Public Class RepositoryItemLookupControl2
+    Inherits RepositoryItemGridLookUpEdit
+
+    Shared Sub New()
+        RegisterLookupControl2()
+    End Sub
+
+    Public Const CustomEditName As String = "LookupControl2"
+
+    Public Sub New()
+
+    End Sub
+
+    Public Overrides ReadOnly Property EditorTypeName As String
+        Get
+            Return CustomEditName
+        End Get
+    End Property
+
+    Public Shared Sub RegisterLookupControl2()
+        Dim img As Image = Nothing
+        EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(CustomEditName, GetType(LookupControl2), GetType(RepositoryItemLookupControl2), GetType(GridLookUpEditBaseViewInfo), New ButtonEditPainter(), True, img, GetType(ButtonEditAccessible)))
+    End Sub
+
+    Public Overrides Sub Assign(item As RepositoryItem)
+        BeginUpdate()
+        Try
+            MyBase.Assign(item)
+            Dim source As RepositoryItemLookupControl2 = TryCast(item, RepositoryItemLookupControl2)
+            If source Is Nothing Then
+                Return
+            End If
+        Finally
+            EndUpdate()
+        End Try
+    End Sub
+End Class
+
+<ToolboxItem(True)>
+Public Class LookupControl2
+    Inherits GridLookUpEdit
+
+    Shared Sub New()
+        RepositoryItemLookupControl2.RegisterLookupControl2()
+    End Sub
+
+    Public Sub New()
+
+    End Sub
+
+    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
+    Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl2
+        Get
+            Return TryCast(MyBase.Properties, RepositoryItemLookupControl2)
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property EditorTypeName As String
+        Get
+            Return RepositoryItemLookupControl2.CustomEditName
+        End Get
+    End Property
+End Class