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
/
DrawButtonEventArgs.vb
92 lines (85 loc) · 1.98 KB
/
DrawButtonEventArgs.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
84
85
86
87
88
89
90
91
92
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Drawing
Imports DevExpress.Utils.Drawing
Imports System.Drawing
Imports DevExpress.Utils
Namespace CustomDrawButtonEvent
Public Class DrawButtonEventArgs
Public Sub New(ByVal info As EditorButtonObjectInfoArgs)
Me.info = info
handled_Renamed = False
End Sub
Private info As EditorButtonObjectInfoArgs
Private handled_Renamed As Boolean
Public Property Handled() As Boolean
Get
Return handled_Renamed
End Get
Set(ByVal value As Boolean)
If handled_Renamed <> value Then
handled_Renamed = value
End If
End Set
End Property
Public Property State() As ObjectState
Get
Return info.State
End Get
Set(ByVal value As ObjectState)
If info.State <> value Then
info.State = value
End If
End Set
End Property
Public ReadOnly Property Appearance() As AppearanceObject
Get
Return info.Appearance
End Get
End Property
Public ReadOnly Property Index() As Integer
Get
Return info.Button.Index
End Get
End Property
Public ReadOnly Property Caption() As String
Get
Return info.Button.Caption
End Get
End Property
Public ReadOnly Property Graphics() As Graphics
Get
Return info.Graphics
End Get
End Property
Public ReadOnly Property Cache() As GraphicsCache
Get
Return info.Cache
End Get
End Property
Public ReadOnly Property Bounds() As Rectangle
Get
Return info.Bounds
End Get
End Property
Public ReadOnly Property Image() As Image
Get
Return info.Button.Image
End Get
End Property
Public ReadOnly Property Kind() As ButtonPredefines
Get
Return info.Button.Kind
End Get
End Property
Public ReadOnly Property ImageLocation() As ImageLocation
Get
Return info.Button.ImageLocation
End Get
End Property
End Class
End Namespace