Spanish Animaciones

JordiCP said:

Lo puedes hacer de dos maneras:

En ambas animaciones, prueba de sustituir el bucle "FOR" por esto (necesitas la librería REFLECTION)

B4X:

    animations = Array As Animation(a11, a21, a31, a41, a51, a61)
    Dim R As Reflector  
    For i = 0 To animations.Length - 1
        animations(i).Duration = 1000
        animations(i).RepeatCount = 0
        R.Target = animations(i)
        R.RunMethod2("setFillAfter","true","java.lang.boolean")
    Next

La animación está bien hecha el problema es que cuando finaliza, por un momento los botones vuelven a su estado original. Esto se puede evitar llamando al método apropiado de Java y decirle que quieto parao.



Otra manera equivalente es, además de usar la librería Animation, activar también (necesitarás las dos) ANIMATIONPLUS de Informatix .


En todos los sitios donde tengas "Animation", lo sustituyes por "AnimationPlus"

Y en los bucles "For", añadir

B4X:

    animations = Array As AnimationPlus(a11, a21, a31, a41, a51, a61)
    For i = 0 To animations.Length - 1
        animations(i).Duration = 1000
        animations(i).RepeatCount = 0
        animations(i).PersistAfter=True
    Next

Espero que te sirva

Click to expand...