Sub Activity_Create(firstTime As Boolean)
Dim i As Int
'Activity.Title = "Bible verse lookup"
hasNote = 0
If firstTime Then
If File.Exists(File.DirDefaultExternal,"bibles.sqlite") = False Then
File.Copy(File.DirAssets,"bibles.sqlite",File.DirDefaultExternal,"bibles.sqlite")
Log("Copying DB to device .....")
Else
Log("DB already exists on phone .....")
End If
End If
SQL.Initialize(File.DirDefaultExternal, "bibles.sqlite", True)
Log("DB initialized .....")
Activity.LoadLayout("mainscreen")
ScrollView1.Initialize(0)
ScrollView2.Initialize(0)
ScrollView3.Initialize(0)
ScrollView1.Panel.Color = Colors.Black
ScrollView2.Panel.Color = Colors.Black
ScrollView3.Panel.Color = Colors.Black
Table = ScrollView1.Panel
Table.Color = LineColor
' left,top,width,height
Activity.AddView(ScrollView1, 0%x, 7%y, 100%x, 34%y)
Log("addview scrollview1 .....")
Table2 = ScrollView2.Panel
Table2.Color = LineColor
Activity.AddView(ScrollView2, 1%x, 44%y, 18%x,25%y)
Log("addview scrollview2 .....")
Table3 = ScrollView3.Panel
Table3.Color = LineColor
Activity.AddView(ScrollView3, 80%x, 44%y, 18%x,25%y)
Log("addview scrollview3 .....")
ColumnWidth(0) = 1
For i=0 To NumberOfColumns-1
ColumnWidth_1(i) = ColumnWidth(i)-ColLineWidth
Next
SelectedRow = -1
SelectedItems.Initialize
whichScrollView = 1
ReadSQLTable
SelectedRow = -1
SelectedItems.Initialize
End Sub