Zooflow: Work on Custom Searches

GUIs.ZooFlow/Search/TokenEditEx.vb

@@ -0,0 +1,89 @@
+Imports System.ComponentModel
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Drawing
+Imports DevExpress.XtraEditors.Registrator
+Imports DevExpress.XtraEditors.Repository
+Imports DevExpress.XtraEditors.ViewInfo
+
+Public Class RepositoryItemTokenEditEx
+    Inherits RepositoryItemTokenEdit
+
+    ' The unique name for the custom editor
+    Public Const CustomEditName As String = "TokenEditEx"
+
+    Shared Sub New()
+        RegisterTokenEditEx()
+    End Sub
+
+    ' Return the unique name
+    Public Overrides ReadOnly Property EditorTypeName() As String
+        Get
+            Return CustomEditName
+        End Get
+    End Property
+
+    Public Shared Sub RegisterTokenEditEx()
+        EditorRegistrationInfo.Default.Editors.Add(
+            New EditorClassInfo(CustomEditName,
+                                GetType(TokenEditEx),
+                                GetType(RepositoryItemTokenEditEx),
+                                GetType(TokenEditViewInfoEx),
+                                New TokenEditPainter,
+                                True))
+    End Sub
+End Class
+
+Public Class TokenEditViewInfoEx
+    Inherits TokenEditViewInfo
+
+    Const InnerMargin = 3
+
+    Public Sub New(item As RepositoryItem)
+        MyBase.New(item)
+    End Sub
+
+    Protected Overrides ReadOnly Property IndentBetweenItems As Integer
+        Get
+            Return InnerMargin
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property ContentRectMargin As Integer
+        Get
+            Return InnerMargin
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property IndentBetweenRows As Integer
+        Get
+            Return InnerMargin
+        End Get
+    End Property
+
+
+End Class
+
+
+<ToolboxItem(True)>
+Public Class TokenEditEx
+    Inherits TokenEdit
+
+    Shared Sub New()
+        RepositoryItemTokenEditEx.RegisterTokenEditEx()
+    End Sub
+
+
+
+    Public Overrides ReadOnly Property EditorTypeName() As String
+        Get
+            Return RepositoryItemTokenEditEx.CustomEditName
+        End Get
+    End Property
+
+    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
+    Public Shadows ReadOnly Property Properties As RepositoryItemTokenEditEx
+        Get
+            Return TryCast(MyBase.Properties, RepositoryItemTokenEditEx)
+        End Get
+    End Property
+End Class