/Source Code/ExperimentalProjection/GDI/GdiProjectlet.vb

 1Friend NotInheritable Class GdiProjectlet
 2    Inherits BaseProjectlet
 3
 4    Friend Property Area As RectangleF = Nothing
 5    Friend Property Bitmap As Bitmap = Nothing
 6    Friend Property Opacity As Integer = 255
 7    Friend Property VisibleWhenNotFading As Boolean = True
 8
 9    Private _Animations As New List(Of GdiProjectletAnimation)
10
11    Friend Sub AddAnimation(ByVal animation As GdiProjectletAnimation)
12        _Animations.Add(animation)
13    End Sub
14
15    Friend Function PeekNextAnimation() As GdiProjectletAnimation
16
17        If _Animations.Count = 0 Then Return Nothing
18        Return _Animations(0)
19
20    End Function
21
22    Friend Sub RemoveNextAnimation()
23        If _Animations.Count > 0 Then _Animations.RemoveAt(0)
24    End Sub
25
26    Friend Sub ClearAnimations()
27        _Animations.Clear()
28    End Sub
29
30    Friend Sub New(ByVal name As String, Optional ByVal detailsUsedToCreateProjectlet As ProjectletDetails = Nothing)
31        MyBase.New(name, detailsUsedToCreateProjectlet)
32    End Sub
33
34End Class