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
/
RepositoryItemMyMemoExEdit.vb
64 lines (54 loc) · 1.68 KB
/
RepositoryItemMyMemoExEdit.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
Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraEditors
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 RepositoryItemMyMemoExEdit
Inherits RepositoryItemMemoExEdit
Private _Memo As New RepositoryItemMemoEdit()
Public Property Memo() As RepositoryItemMemoEdit
Get
Return _Memo
End Get
Set(ByVal value As RepositoryItemMemoEdit)
_Memo = value
End Set
End Property
Private _isHeightAdaptable As Boolean
Public Property IsHeightAdaptable() As Boolean
Get
Return _isHeightAdaptable
End Get
Set(ByVal value As Boolean)
_isHeightAdaptable = value
End Set
End Property
Shared Sub New()
Register()
End Sub
Public Sub New()
IsHeightAdaptable = True
Memo.BorderStyle = BorderStyles.NoBorder
End Sub
Friend Const EditorName As String = "MyMemoExEdit"
Public Shared Sub Register()
EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(EditorName, GetType(MyMemoExEdit), GetType(RepositoryItemMyMemoExEdit), GetType(MyMemoExEditViewInfo), New MyMemoExEditPainter(), True))
End Sub
Public Overrides ReadOnly Property EditorTypeName() As String
Get
Return EditorName
End Get
End Property
Public Overrides Sub Assign(ByVal item As RepositoryItem)
MyBase.Assign(item)
Memo.Assign((TryCast(item, RepositoryItemMyMemoExEdit)).Memo)
End Sub
End Class
End Namespace