Sub Activity_Create(FirstTime As Boolean)
Dim size As Int = Activity.Width / 2 - 15%x / 2
Dim left As Int = 5%x
Dim top As Int = 10%y
'-----------
Dim arc1 As JSSimpleArcLoader
arc1.Initialize
Activity.AddView(arc1, left, top, size, size)
'-----------
left = arc1.Left + arc1.Width + 5%x
Dim arc2 As JSSimpleArcLoader
arc2.Initialize
Dim config As JSArcConfiguration
config.Initialize
config.LoaderStyle = config.STYLE_COMPLETE_ARC
arc2.refreshArcLoaderDrawable(config)
Activity.AddView(arc2, left, top, size, size)
'-----------
top = arc2.Top + arc2.Height + 5%x
left = 5%x
Dim arc3 As JSSimpleArcLoader
arc3.Initialize
Dim config As JSArcConfiguration
config.Initialize
config.LoaderStyle = config.STYLE_SIMPLE_ARC
config.Colors = Array As Int(0xFFE91E63)
arc3.refreshArcLoaderDrawable(config)
Activity.AddView(arc3, left, top, size, size)
'-----------
left = arc3.Left + arc3.Width + 5%x
Dim arc4 As JSSimpleArcLoader
arc4.Initialize
Dim config As JSArcConfiguration
config.Initialize
config.LoaderStyle = config.STYLE_COMPLETE_ARC
config.Colors = Array As Int(0xFFE91E63, 0xFF3F51B5, 0xFF9C27B0)
arc4.refreshArcLoaderDrawable(config)
Activity.AddView(arc4, left, top, size, size)
'----------
top = arc4.Top + arc4.Height + 10dip
Dim btnShowDialog As Button
btnShowDialog.Initialize("btnShowDialog")
Activity.AddView(btnShowDialog, 20dip, top, 100%x - 40dip, 56dip)
btnShowDialog.Text = "Show ArcDialog"
End Sub
Sub btnShowDialog_Click
Try
Dim config As JSArcConfiguration
config.Initialize
config.LoaderStyle = config.STYLE_COMPLETE_ARC
config.Colors = Array As Int(0xFFE91E63, 0xFF3F51B5, 0xFF9C27B0, 0xFFFFC107, 0xFFF44336, 0xFF4CAF50, 0xFF03A9F4)
config.Text = "Loading..Please wait..."
Dim dlg As JSSimpleArcDialog
dlg.Initialize("dlg")
dlg.Show2(config, True)
Catch
Log(LastException)
End Try
End Sub
Sub dlg_OnDismiss
ToastMessageShow("dismiss", False)
End Sub