/Source Code/ExperimentalProjection/GDI/GdiProjectlet.vb

Friend NotInheritable Class GdiProjectlet

    Inherits BaseProjectlet



    Friend Property Area As RectangleF = Nothing

    Friend Property Bitmap As Bitmap = Nothing

    Friend Property Opacity As Integer = 255

    Friend Property VisibleWhenNotFading As Boolean = True



    Private _Animations As New List(Of GdiProjectletAnimation)



    Friend Sub AddAnimation(ByVal animation As GdiProjectletAnimation)

        _Animations.Add(animation)

    End Sub



    Friend Function PeekNextAnimation() As GdiProjectletAnimation



        If _Animations.Count = 0 Then Return Nothing

        Return _Animations(0)



    End Function



    Friend Sub RemoveNextAnimation()

        If _Animations.Count > 0 Then _Animations.RemoveAt(0)

    End Sub



    Friend Sub ClearAnimations()

        _Animations.Clear()

    End Sub



    Friend Sub New(ByVal name As String, Optional ByVal detailsUsedToCreateProjectlet As ProjectletDetails = Nothing)

        MyBase.New(name, detailsUsedToCreateProjectlet)

    End Sub



End Class