DarkWolfalpha
Member
Hi again
I use this CircularProgressBar and I want use Animation RotateCenter for panel CircularProgressBar
But I have Problem! (This rotation does not occur exactly around the axis)
This is my cod:
(Gave wrong shake! Can See?)
I use this CircularProgressBar and I want use Animation RotateCenter for panel CircularProgressBar
But I have Problem! (This rotation does not occur exactly around the axis)
This is my cod:
B4X:
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
Private CircularProgressBar1 As CircularProgressBar
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub
Sub Button1_Click
CircularProgressBar1.Value = Rnd(0, 101)
Dim Anima As Animation
Anima.InitializeRotateCenter("Animacirlce",0,720,Panel1)
Anima.Duration = 1000
Anima.Start(Panel1)
End Sub
Sub Activity_Click
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Animacirlce_AnimationEnd
Dim Anima As Animation
Anima.InitializeRotateCenter("Animacirlce",0,720,Panel1)
Anima.Duration = 1000
Anima.Start(Panel1)
End Sub
(Gave wrong shake! Can See?)