-
Notifications
You must be signed in to change notification settings - Fork 1
/
UnboundRow.vb
83 lines (64 loc) · 2.2 KB
/
UnboundRow.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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Imports System
Imports System.ComponentModel
Namespace DXApplication3
Public Class UnboundRow
Inherits PropertyDescriptor
Private _MyValue As Object
Private ReadOnly _ValueType As Type
Public Property MyValue As Object
Get
Return _MyValue
End Get
Set(ByVal value As Object)
_MyValue = value
End Set
End Property
Public Sub New(ByVal name As String, ByVal valueType As Type)
MyBase.New(name, Nothing)
_ValueType = valueType
End Sub
Protected Sub New(ByVal name As String, ByVal attrs As Attribute())
MyBase.New(name, attrs)
End Sub
Protected Sub New(ByVal descr As MemberDescriptor)
MyBase.New(descr)
End Sub
Protected Sub New(ByVal descr As MemberDescriptor, ByVal attrs As Attribute())
MyBase.New(descr, attrs)
End Sub
Public Overrides ReadOnly Property Category As String
Get
Return "!Unbound rows"
End Get
End Property
Public Overrides Function CanResetValue(ByVal component As Object) As Boolean
Return False
End Function
Public Overrides ReadOnly Property ComponentType As Type
Get
Return _ValueType
End Get
End Property
Public Overrides Function GetValue(ByVal component As Object) As Object
Return MyValue
End Function
Public Overrides ReadOnly Property IsReadOnly As Boolean
Get
Return False
End Get
End Property
Public Overrides ReadOnly Property PropertyType As Type
Get
Return _ValueType
End Get
End Property
Public Overrides Sub ResetValue(ByVal component As Object)
End Sub
Public Overrides Sub SetValue(ByVal component As Object, ByVal value As Object)
MyValue = value
End Sub
Public Overrides Function ShouldSerializeValue(ByVal component As Object) As Boolean
Return False
End Function
End Class
End Namespace