/Source Code/PowerSong/Custom Controls/Widget.vb
Visual Basic | 46 lines | 37 code | 9 blank | 0 comment | 0 complexity | 278f2b6781ba8bba6f17857ff49852a8 MD5 | raw file
- Public Class Widget
-
- Private FArea As New RectangleF(0.1, 0.1, 0.8, 0.8)
-
- Public Property Area() As RectangleF
- Get
- Return FArea
- End Get
- Set(ByVal value As RectangleF)
- Dim OldArea As RectangleF = FArea
- FArea = value
- If OldArea <> value Then RaiseEvent AreaChanged(Me)
- End Set
- End Property
-
- Private FTarget As Object = Nothing
-
- Public Property Target() As Object
- Get
- Return FTarget
- End Get
- Set(ByVal value As Object)
- Dim OldTarget As Object = FTarget
- FTarget = value
- If OldTarget IsNot value Then RaiseEvent TargetChanged(Me, value)
- End Set
- End Property
-
- Public Event AreaChanged(ByVal widget As Widget)
- Public Event TargetChanged(ByVal widget As Widget, ByVal newValue As Object)
- Public Event Draw(ByVal graphics As Graphics, ByVal region As Rectangle)
-
- Public Sub New(ByVal target As Object)
- FTarget = target
- End Sub
-
- Public Sub New(ByVal target As Object, ByVal area As RectangleF)
- FTarget = target
- FArea = area
- End Sub
-
- Friend Sub RaiseDrawEvent(ByVal graphics As Graphics, ByVal region As Rectangle)
- RaiseEvent Draw(graphics, region)
- End Sub
-
- End Class