/Source Code/ExperimentalProjection/GDI/GdiProjectlet.vb
Visual Basic | 34 lines | 24 code | 10 blank | 0 comment | 0 complexity | fb1225eb547c4722761e117bcdb0cccf MD5 | raw file
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