-
Notifications
You must be signed in to change notification settings - Fork 0
/
RepositoryItemMyButtonEdit.vb
60 lines (47 loc) · 1.83 KB
/
RepositoryItemMyButtonEdit.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Imports System.ComponentModel
Imports System.Drawing
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraEditors.Registrator
Imports DevExpress.XtraEditors.Drawing
Imports DevExpress.XtraEditors.Controls
Namespace WindowsApplication1
<UserRepositoryItem("Register")>
<System.ComponentModel.DesignerCategory("")>
Public Class RepositoryItemMyButtonEdit
Inherits RepositoryItemButtonEdit
Private _RichRI As RepositoryItemRichTextEdit = New RepositoryItemRichTextEdit()
Public Property RichEdit As RepositoryItemRichTextEdit
Get
Return _RichRI
End Get
Set(ByVal value As RepositoryItemRichTextEdit)
_RichRI = value
End Set
End Property
Shared Sub New()
Call Register()
End Sub
Public Sub New()
End Sub
Friend Const EditorName As String = "MyButtonEdit"
Public Shared Sub Register()
Call EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(EditorName, GetType(MyButtonEdit), GetType(RepositoryItemMyButtonEdit), GetType(MyButtonEditViewInfo), New MyPainter(), True, CType(Nothing, System.Drawing.Image)))
End Sub
Public Overrides ReadOnly Property EditorTypeName As String
Get
Return EditorName
End Get
End Property
Public Overrides Property TextEditStyle As TextEditStyles
Get
Return TextEditStyles.DisableTextEditor
End Get
Set(ByVal value As TextEditStyles)
End Set
End Property
Public Overrides Sub Assign(ByVal item As RepositoryItem)
MyBase.Assign(item)
RichEdit.Assign(TryCast(item, RepositoryItemMyButtonEdit).RichEdit)
End Sub
End Class
End Namespace