Animated WPF Panels

Imports Bornander.UI.Animations.Animators

Namespace Panels
    Public Class AnimatedStackPanel
        Inherits StackPanel

        Private animationBase As AnimationBase = New AnimationBase()
        Private animator As IArrangeAnimator
        Private lastArrange As DateTime

        Public Sub New()
            animationBase.CreateAnimationTimer(Me, TimeSpan.FromSeconds(0.05))
            animator = New FractionDistanceAnimator(0.1)
        End Sub

        Public Sub New(ByVal animator As IArrangeAnimator, ByVal animationInterval As TimeSpan)
            animationBase.CreateAnimationTimer(Me, animationInterval)
            Me.animator = animator
        End Sub

        Protected Overrides Function ArrangeOverride(ByVal arrangeSize As Size) As Size
            Dim size As Size = MyBase.ArrangeOverride(arrangeSize)

            animationBase.Arrange(Math.Max(0, (DateTime.Now - lastArrange).TotalSeconds), Children, animator)
            lastArrange = DateTime.Now

            Return size
        End Function

    End Class
End Namespace