82 lines
2.2 KiB
VB.net
82 lines
2.2 KiB
VB.net
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 ReadOnly Property IndentBetweenItems As Integer
|
|
Get
|
|
Return 10
|
|
End Get
|
|
End Property
|
|
|
|
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
|