Sub BuildTheSongListCustomListView
clvSongList.Clear
ButtonSongDetails.Visible = False
ButtonClearSong.Visible = False
intCurrentSongSelected = kvs.Get("CurrentSongSelected")
For intIndex = 0 To 9
Dim typValues As typSongsListItemValues
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, PanelSongList.Width, 200dip)
p.LoadLayout("SongListCard")
LabelSongTitle.Text = kvs.Get("Song" & (intIndex + 1) & "Title")
LabelSchedule.Text = LTrim(kvs.Get("Song" & (intIndex + 1) & "Schedule"))
LabelSchedule.Text = LabelSchedule.Text.Replace("100 ", "")
LabelSchedule.Text = LabelSchedule.Text.Replace("200 ", "")
LabelSchedule.Text = LabelSchedule.Text.Replace("300 ", "")
LabelSchedule.Text = LabelSchedule.Text.Replace("400 ", "")
LabelSchedule.Text = LabelSchedule.Text.Replace("500 ", "")
LabelSchedule.Text = LabelSchedule.Text.Replace("600 ", "")
LabelSchedule.Text = LabelSchedule.Text.Replace("700 ", "")
LabelSchedule.Text = LTrim(LabelSchedule.Text)
LabelScheduleFromUntil.Text = _
kvs.Get("Song" & (intIndex + 1) & "ScheduleEnabledFrom") & " To " & _
kvs.Get("Song" & (intIndex + 1) & "ScheduleEnabledUntil")
If intIndex + 1 = _
kvs.Get("CurrentSongSelected") Then
If kvs.Get("Song" & (intIndex + 1) & "ScheduleIsEnabled") Then
ImageViewSongScheduleIsEnabled.Bitmap = _
LoadBitmap(File.DirAssets, "light-on-icon.png")
Else
ImageViewSongScheduleIsEnabled.Bitmap = _
LoadBitmap(File.DirAssets, "light-off-icon.png")
End If
ImageViewSongScheduleIsEnabled.Visible = True
ImageViewPlayPauseSong.Visible = True
Else
ImageViewSongScheduleIsEnabled.Visible = False
ImageViewPlayPauseSong.Visible = False
End If
clvSongList.Add(p,typValues)
Next
If ServiceModule.blnScheduleIsPlayingSong Then
intCurrentSongSelected = ServiceModule.intSongNumberSelected
End If
Sleep(100)
clvSongList_ItemClick (intCurrentSongSelected - 1, "")
clvSongList.ScrollToItem(intCurrentSongSelected - 1)
End Sub