This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
RepositoryItemMyRadioGroup.vb
66 lines (44 loc) · 1.86 KB
/
RepositoryItemMyRadioGroup.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
61
62
63
64
65
66
Imports DevExpress.XtraEditors.Drawing
Imports DevExpress.XtraEditors
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraEditors.Registrator
Imports DevExpress.XtraEditors.Controls
Namespace TestMyRadioGroup
<UserRepositoryItem("RegisterMyRadioGroup")>
Public Class RepositoryItemMyRadioGroup
Inherits RepositoryItemRadioGroup
Friend Const EDITORTypeName_Renamed As String = "MyRadioGroup"
Public Overrides ReadOnly Property EditorTypeName() As String
Get
Return EDITORTypeName_Renamed
End Get
End Property
<Browsable(False)>
Public Shadows ReadOnly Property OwnerEdit() As MyRadioGroup
Get
Return TryCast(MyBase.OwnerEdit, MyRadioGroup)
End Get
End Property
<Description("Gets the collection of items displayed by the current radio group editor."), Category(CategoryName.Data), DesignerSerializationVisibility(DesignerSerializationVisibility.Content), Editor("System.ComponentModel.Design.CollectionEditor, System.Design", GetType(System.Drawing.Design.UITypeEditor)), Localizable(True)>
Public Shadows ReadOnly Property Items() As MyRadioGroupItemCollection
Get
Return TryCast(MyBase.Items, MyRadioGroupItemCollection)
End Get
End Property
Shared Sub New()
RegisterMyRadioGroup()
End Sub
Public Sub New()
MyBase.New()
End Sub
Public Shared Sub RegisterMyRadioGroup()
EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(EDITORTypeName_Renamed, GetType(MyRadioGroup), GetType(RepositoryItemMyRadioGroup), GetType(MyRadioGroupViewInfo), New RadioGroupPainter(), True, CType(Nothing, Image), GetType(DevExpress.Accessibility.ButtonEditAccessible)))
End Sub
Protected Overrides Function CreateItemCollection() As RadioGroupItemCollection
Return New MyRadioGroupItemCollection()
End Function
End Class
End Namespace