'store todays date for later use in FOR loop
Dim v_today_date_ticks As Long
v_today_date = DateTime.Date(DateTime.Now)
v_today_date_ticks = DateTime.DateParse(v_today_date)
'populate the listview of ALL the races in date order
ListView1.TwoLinesLayout.Label.TextSize = 10dip
ListView1.TwoLinesLayout.SecondLabel.TextSize = 10dip
ListView1.TwoLinesLayout.Label.Gravity = Gravity.LEFT
ListView1.TwoLinesLayout.SecondLabel.Gravity = Gravity.FILL
ListView1.TwoLinesLayout.SecondLabel.Top = 19dip
ListView1.TwoLinesLayout.Label.Height = 19dip
ListView1.TwoLinesLayout.SecondLabel.Height = 19dip
ListView1.ScrollingBackgroundColor = Colors.Transparent
ListView1.TwoLinesLayout.ItemHeight = 40dip
'ListView1.TwoLinesLayout.ItemHeight = canvas1.height/8
'set up items for display in TwoLinesAndBitmap part of the ListView
ListView1.TwoLinesAndBitmap.ImageView.Visible = False
'ListView1.TwoLinesAndBitmap.ImageView.Width = 0
ListView1.TwoLinesAndBitmap.ImageView.RemoveView
Dim cd As ColorDrawable
cd.Initialize(Colors.Transparent, 0)
ListView1.TwoLinesAndBitmap.Background = cd
ListView1.TwoLinesAndBitmap.Label.TextColor = Colors.Gray
ListView1.TwoLinesAndBitmap.Label.TextSize = 10dip
ListView1.TwoLinesAndBitmap.SecondLabel.TextSize = 10dip
ListView1.TwoLinesAndBitmap.Label.Gravity = Gravity.LEFT
ListView1.TwoLinesAndBitmap.SecondLabel.Gravity = Gravity.FILL
ListView1.TwoLinesAndBitmap.SecondLabel.Top = 19dip
ListView1.TwoLinesAndBitmap.Label.Height = 19dip
ListView1.TwoLinesAndBitmap.SecondLabel.Height = 19dip
'ListView1.ScrollingBackgroundColor = Colors.Transparent
ListView1.TwoLinesAndBitmap.ItemHeight = 40dip
ListView4.Initialize("ListView4")
Cursor = SQL1.ExecQuery("SELECT _id, name, startdate, display_date FROM event order by date(startdate)")
Log(Cursor.RowCount)
For i=0 To Cursor.RowCount-1
Cursor.Position=i
'ListView1.AddSingleLine(Cursor.GetString("Name"))
If DateTime.DateParse(Cursor.GetString("startdate")) < v_today_date_ticks Then
ListView1.AddTwoLinesAndBitmap2(Cursor.GetString("name"), Cursor.GetString("display_date"), Null, Cursor.GetInt("_id"))
'ListTemp.Add(CursorTemp.GetInt("_id"))
Else
'ListViewTemp.Visible = True
ListView1.AddTwoLines2(Cursor.GetString("name"), Cursor.GetString("display_date"), Cursor.GetInt("_id"))
'ListTemp.Add(CursorTemp.GetInt("_id"))
End If
'ListView1.AddTwoLines(Cursor.GetString("name"),Cursor.GetString("display_date"))
ListView4.AddSingleLine(Cursor.GetInt("_id"))
Next
Cursor.Close