Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("category_layout")
B4XPages.SetTitle(Me,"Lists_textfiles_notes - Category")
End Sub
Sub Class_Globals
…
Private btn2 As Button
Private clv2 As CustomListView
End Sub
Sub clv2_ItemClick (Index As Int, Value As Object)
End Sub
Sub btn2_Click
End Sub
Sub load_list
Private lst As List
lst.Initialize
' add test items (remove after testing)
For i = 0 To 3
clv2.AddTextItem("item " & i, "item " & i)
Next
End Sub
Private Sub B4XPage_Appear
clv2.Clear
load_list
End Sub
Sub clv2_ItemClick (Index As Int, Value As Object)
ToastMessageShow("item at position " & Index & " has value " & Value,True)
End Sub
Sub btn2_Click
clv2.AddTextItem("item " & clv2.Size, clv2.Size)
End Sub
Sub save_list
Private lst As List
lst.Initialize
For i = 0 To clv2.Size-1
lst.Add(clv2.GetValue(i))
Next
File.Delete(File.DirInternal,"category.txt")
File.WriteList(File.DirInternal,"category.txt",lst)
End Sub
Private Sub B4XPage_Disappear
If clv2.Size > 0 Then
save_list
End If
End Sub
Sub btn2_Click
clv2.AddTextItem("item " & clv2.Size, clv2.Size)
If clv2.Size > 0 Then
save_list
End If
End Sub
Sub load_list
Private lst As List
lst.Initialize
If (File.Exists(File.DirInternal,"category.txt")) Then
lst = File.ReadList(File.DirInternal,"category.txt")
End If
For i = 0 To lst.Size-1
clv2.AddTextItem("item " & lst.Get(i), lst.Get(i))
Next
' add temporally test items (remove after testing)
' For i = 0 To 3
' clv2.AddTextItem("item " & i, i)
' Next
End Sub