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