Sub fillLstFiles (itemSelected As Int)
Dim programTemp As Program
programTemp = Codes.GetProgram(programInExecution.ID,False)
lstFiles.Clear 'clear listview
For i = 0 To programTemp.Num_Files - 1
If i = itemSelected Then
lstFiles.AddTwoLinesAndBitmap(programTemp.Current_File,"",LoadBitmap(File.DirAssets,"1398500985_clean.png"))
Else
lstFiles.AddTwoLinesAndBitmap(programTemp.Current_File,"",LoadBitmap(File.DirAssets,"1398501184_checkbox-unchecked.png"))
End If
programTemp.moveToNextFile
Next
End Sub
Sub lstFiles_ItemClick (Position As Int, Value As Object)
fillLstFiles(Position)
End Sub