Zooflow: Search Improvements, Multiple Tokens

GUIs.ZooFlow/Search/frmFlowSearch2/TokenEditEx.vb

@@ -0,0 +1,75 @@
+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
+
+    Public Sub New(item As RepositoryItem)
+        MyBase.New(item)
+    End Sub
+
+    Protected Overrides Function CalcItemSizeCore(token As TokenEditToken) As Size
+        Dim oSize = MyBase.CalcItemSizeCore(token)
+        oSize.Width += 15
+        Return oSize
+    End Function
+End Class
+
+
+<ToolboxItem(true)>
+Public Class TokenEditEx
+    Inherits TokenEdit
+
+    Shared Sub New()
+        RepositoryItemTokenEditEx.RegisterTokenEditEx()
+    End Sub
+
+    Public Sub New()
+
+    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