#Region Project Attributes
#ApplicationLabel: ApiDroid
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
Dim tmrSplash As Timer
Dim SQL As SQL
Dim lvapiari_position As Int
Dim lvapiari_value As Object
End Sub
Sub Globals
Private btnMeteo As Button
Private btnQRCode As Button
Private btnApiari As Button
Private cntSplash As Int
Private btnArnie As Button
Private btnRegine As Button
Private btnRaccolti As Button
Private btnVisite As Button
Private btnAttività As Button
Private btnPrefs As Button
Private btnFioriture As Button
Private btnInfo As Button
Private btnFamiglie As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
If(FirstTime) Then
lvapiari_position=-1
lvapiari_value=Null
cntSplash=0
tmrSplash.Initialize("tmrSplash",4000)
tmrSplash.enabled=True
Activity.LoadLayout("Splash")
If(File.Exists(File.DirDefaultExternal,"ApiDroidDB.s3db")) Then
SQL.Initialize(File.DirDefaultExternal,"ApiDroidDB.s3db",False)
Else
DBUtils.CopyDBFromAssets("ApiDroidDB.s3db")
SQL.Initialize(File.DirDefaultExternal,"ApiDroidDB.s3db",False)
End If
Else
Activity.LoadLayout("Main")
'ScaleText
End If
End Sub
Sub Activity_Resume
If(cntSplash>0) Then
Activity.LoadLayout("Main")
'ScaleText
Activity.Invalidate
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Activity.RemoveAllViews
End Sub
Sub btnMeteo_Click
StartActivity(MeteoActivity)
CallSub(MeteoActivity,"")
End Sub
Sub btnQRCode_Click
StartActivity(QRCodeActivity)
CallSub(QRCodeActivity,"")
End Sub
Sub btnApiari_Click
StartActivity(Apiari)
CallSub(Apiari,"")
End Sub
Sub tmrSplash_Tick
cntSplash=1
If(cntSplash>0) Then
tmrSplash.Enabled=False
Activity.RemoveAllViews
Activity.LoadLayout("Main")
'ScaleText
End If
End Sub
Sub btnArnie_Click
StartActivity(Arnie)
CallSub(Arnie,"")
End Sub
Sub btnFioriture_Click
StartActivity(Fioriture)
CallSub(Fioriture,"")
End Sub
Sub btnVisite_Click
StartActivity(Visite)
CallSub(Visite,"")
End Sub
Sub btnRegine_Click
StartActivity(Regine)
CallSub(Regine,"")
End Sub
Sub ScaleText
Dim btnCanvas As Canvas
Dim testo As Float
Dim fontsize As Int
Dim Btns() As Button
Btns = Array As
Button(btnApiari,btnArnie,btnVisite,btnFamiglie,btnRegine,btnMeteo,btnQRCode,btnFioriture,btnAttività,btnRaccolti,btnPrefs,btnInfo)
btnCanvas.Initialize(Activity)
For i=0 To 11
testo=btnCanvas.MeasureStringWidth(Btns(i).Text,Typeface.SANS_SERIF,Btns(i).TextSize)
fontsize=Btns(i).TextSize
Do While(testo<(Btns(i).Width/1.76))
fontsize=fontsize+1
testo=btnCanvas.MeasureStringWidth(Btns(i).Text,Typeface.SANS_SERIF,fontsize)
Loop
Do While(testo>(Btns(i).Width/1.76))
fontsize=fontsize-1
testo=btnCanvas.MeasureStringWidth(Btns(i).Text,Typeface.SANS_SERIF,fontsize)
Loop
Btns(i).TextSize=fontsize
Next
End Sub
Sub btnFamiglie_Click
StartActivity(Famiglie)
CallSub(Famiglie,"")
End Sub