B4i Library [class] CustomListView

B4i implementation of CustomListView (http://www.b4x.com/android/forum/th...xible-list-based-on-scrollview.19567/#content).

Note that you should make sure that there is a live reference to all instances of CustomListView. Otherwise the instance will be released and the events will not be raised.

You can use a global variable to store a live reference.

New version was uploaded. CustomListView is implemented as a custom view. It should be added with the designer.

V1.76 uploaded. This update brings the improvements added to B4A CustomListView:
- Animated inserts.
- ResizeItem method.
- FirstVisibleIndex / LastVisibleIndex properties.
- ScrollToItem.
- ReachEnd event.
- RemoveAt / ReplaceAt methods.

The class will be included as a library in B4i v4.30.

 

[Luiz Fernando Orlandini]

Just updated the library and trying to guess how I can disable the click event.

I don't wanna that row blink when the row was clicked. Imagine a chat... I just need to show the historic messages but won't expose any actions on it. Does this make sense?

Thanks.
Daniel

 

[Luiz Fernando Orlandini]

Just updated the library and trying to guess how I can disable the click event.

I don't wanna that row blink when the row was clicked. Imagine a chat... I just need to show the historic messages but won't expose any actions on it. Does this make sense?

Thanks.
Daniel

Never mind... Just changed the class to have

    Private HighlightColor As Int = Colors.Transparent

 

[sdesan]

I need, as made in b4a, of customize first and second line text size or line height of list view, pass a value to retrieve on click event and then open a file. Starting from b4a code

'B4A code
Sub Globals
   Dim lstTracce As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
  lstTracce.TwoLinesLayout.Label.TextSize = 14
  lstTracce.TwoLinesLayout.Label.Height = 60dip
  lstTracce.TwoLinesLayout.Label.Top=0
  lstTracce.TwoLinesLayout.SecondLabel.Top = lstTracce.TwoLinesLayout.Label.Height
  lstTracce.TwoLinesLayout.SecondLabel.TextSize = 12
  lstTracce.TwoLinesLayout.SecondLabel.Height = 40dip
  lstTracce.TwoLinesLayout.ItemHeight = lstTracce.TwoLinesLayout.Label.Height + lstTracce.TwoLinesLayout.SecondLabel.Height
  i = 0
  Do While i <7
    i = i+1
    lstTracce.AddTwoLines2(i,10+i,50+i)
  Loop
  lstTracce.SetSelection(0)
End Sub

Sub LstTracce_ItemClick (Position As Int, Value As Object)
   Dim selection As String
   Dim i As Intent
   selection ="file_" & Value & ".txt"
   If File.Exists(File.DirRootExternal, "/scabr/" & selection ) = False Then
       File.Copy(File.DirAssets, selection, File.DirRootExternal, "/scabr/" & selection )
   End If
   i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal, "/scabr/" & selection ))
   i.SetType("text/xml")
  Try
   StartActivity(i)
  Catch
   ToastMessageShow("Unable to open file.", True)
  End Try
End Sub

i write this code

'b4i code
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'Public variables can be accessed from all modules.
   Public App As Application
   Public NavControl As NavigationController
   Public lstTracce As TableView
End Sub

Sub MyButton_Click
   main1.Initialize("main1")
   main1.Title = "My app"
   main1.RootPanel.LoadLayout("main")
   main1.RootPanel.AddView(lstTracce,0, 120, 100%x, 50%y)
   NavControl.ShowPage(main1)
   For i= 0 to 6
         lstTracce.AddTwoLines(i,10+i)
    Next
    lstTracce.ReloadAll
End Sub

Sub LstTracce_SelectedChanged (SectionIndex As Int, Cell As TableCell)
   Dim selection As String
   selection ="file_" & Cell.Text.ToString & ".txt"
   Try
     Msgbox(selection ," File to open ")
  'StartActivity(i)
  Catch
    Msgbox("Unable to open file.", "Error")
  End Try
End Sub

But in this way i need to name txt file (or fill TableView) with same name of file, but it will be more efficent to pass a value like in AddTwoLines2 on b4a
Last problem: TableView is not word-wrapp capable so i'm looking to this custom list view class but i have not find a good way.
Any help will be appreciated

 

[Erel]

Please start a new thread for this question.

 

[jazzzzzzz]

how to remove all item in customlistview

For j=0 To clv1.GetSize-1
        clv1.RemoveAt(j)
Next

this gives out of bound error at clv module

 

[ilan]

how to remove all item in customlistview

For j=0 To clv1.GetSize-1
        clv1.RemoveAt(j)
Next

this gives out of bound error at clv module

the reason for that error is.

you are going in a loop from 0 to x and delete inside the loop items what will also change the size of the list (x) so in about the half way the loop will not be able to get the next items since the size is now different.

example:

for i = 0 to list1.size -1 (list1.size = 10)
list1.removeat(i)
next

when i = 0 then item 0 in the list will be deleted what means list1.size is now only 9 and not 10 like before
when i = 1 then item 1 will be deleted and list size is now 8 ...

but the loop will still try to get until i = 10 because this is what we asked him to do!

so you better try

clv1.Clear

 

[jazzzzzzz]

O god why I haven't seen the clear method...!!

 

[jazzzzzzz]

Any way to change the selection color of clv items? now it grey i want it to be maroon

 

[ilan]

Any way to change the selection color of clv items? now it grey i want it to be maroon

yes, that should be possible, look in the class for a panel click event and see if it is changing the backcolor to gray and change it the one u want.

 

[jazzzzzzz]

yes, that should be possible, look in the class for a panel click event and see if it is changing the backcolor to gray and change it the one u want.

worked..!

 

[ilan]

this is the sub

Private Sub Panel_LongClick
   Dim p As Panel = Sender
   p.GetView(0).Color = HighlightColor
   p.GetView(0).SetColorAnimated(700, Colors.Transparent)
   CallSub3(CallBack, EventName & "_ItemLongClick", p.Tag, items.Get(p.Tag))
End Sub

Private Sub Panel_Click
    Dim p As Panel = Sender
    p.GetView(0).Color = HighlightColor
    p.GetView(0).SetColorAnimated(700, Colors.Transparent)
    CallSub3(CallBack, EventName & "_ItemClick", p.Tag, items.Get(p.Tag))
End Sub

as u can see @Erel declared the selection color as a global variable to make our life easier

so just change in Sub Class_Globals

Private HighlightColor As Int = Colors.LightGray

to what ever u want

 

[Mashiane]

For me to remember:

1. Store the height of each item to add in the pg_Resize event, e.g. itmHeight = Height
2. When adding each item, use the Height calculated, i.e. itmHeight above

otherwise the second run of the listview will not show, if you are loading on same page.

 

[tpakis]

How can change clv visibility, height,width,left,top with code and not from the designer, obviously after the layout was loaded?

 

[LucaMs]

CustomView1.AsView returns the base panel which is the container of the view, so you can use it: CustomView1.AsView.Visible = False.

If you change its width and height, however, you must do so before you load the Items, otherwise they will not be adapted.

 

[Erel]

CLV.GetBase will return the base panel. You can use to resize CLV.

 

[LucaMs]

Ops, sorry, AsView returns the ScrollView.

 

[Marc De Loose]

Is there a quick and easy way to save a customlistview to a file ?

 

[Erel]

You cannot save UI elements to a file. You need to save the data (which is application specific).

 

[jahswant]

Note that you should make sure that there is a live reference to all instances of CustomListView. Otherwise the instance will be released and the events will not be raised.

You can use a global variable to store a live reference.

What's the meaning of this ?

 

[Erel]

Declare all CustomListViews as process global variables and they will work properly.