Sub Activity_Create(FirstTime As Boolean)
Start = False
CreateDir
ToastMessageShow(SD_PATH, True)
Log("PATH = " & SD_PATH)
SQL1.Initialize(SD_PATH, "homerbg.db", True)
scvMain.Initialize(500)
Activity.AddView(scvMain,0,0,100%x,100%y)
' Query db to see if the app has been activated
'SQL1.ExecQuerySingleResult("SELECT appActivated FROM system")
If (File.Exists(SD_PATH, "homberbg.db") = True) Then
ToastMessageShow("Doesn't exist......" & SD_PATH & "homberbg.db", True)
Log("DB exists......" & SD_PATH & "homberbg.db")
FillLangScrollView
Else
ToastMessageShow("Creating............." & SD_PATH & "homberbg.db", True)
CreateSystemTable
InsertDefaults
CreateDictionTable
'FetchDictionList
CreateMenuTable
FetchMenuList
CreateLangTable
Log("Going for langs")
FetchImages ' Download all required images at once
'FetchLangList
End If
End Sub