CustomListView - A flexible list based on ScrollView

DAM · May 18, 2014

Erel said:
Any non-scrollable view will work as the parent.

It works perfectly now, thanks!

GMan · May 25, 2014

How can i fill in datas from an saved file, i.e. lbl.Text = Text ?
The file is a simple list, line by line

Erel · May 25, 2014

Read the list with File.ReadList and then go over the list and add the items to CLV.

GMan · May 25, 2014

Reading the list works already, but "go over the list..." isn't clear to me

THIS don't works and throughs an NullPointerException:

B4X:

For Each Line As String In File.ReadList(RichtigerSDKartenPfad & "/LocoTimer/","LocoList.txt")
        clv3.Add(CreateListItem(Line, clv3.AsView.Width, 50dip),50dip, Line)
    Next

Got it - forgot to initialize the clv3

B4X:

    clv3.Initialize(Me, "clv3")
    Activity.AddView(clv3.AsView, 0, 50%y, 100%x, 50%y)
 For Each Line As String In File.ReadList( RichtigerSDKartenPfad & "/LocoTimer/","LocoList.txt")
        clv3.Add(CreateListItem(Line, clv3.AsView.Width, 50dip),50dip,Line)
   Next

GMan · May 26, 2014

So far my LocoTimer works, but only for one Locomotive :-(
How can i generate timers at runtime depending on a runtime given variable ?
As i cant combine variable name to a new variable name (Locotimer (as Timer) & LocoName (as String) to make a new timer (cause the then generated name does not exist as a i.e., LocoTimerBR151_Tick (bulit from the timer LocoTimer and the variable of the checked locomotive,here BR51).

Here is the code i am using (lightly modified with a Total Runtime Label (lbllbl):

B4X:

Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
    Dim p As Panel
    p.Initialize("")
    p.Color = Colors.Black
  
' 1. das Label mit Text
    Dim lbl As Label
    lbl.Initialize("")
    lbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl.Text = Text
    lbl.TextSize = 16
    lbl.TextColor = Colors.White
' 2. der Button  
    Dim b As Button
    b.Initialize("button") 'all buttons click events will be handled with Sub Button_Click  
    b.Text = "Info"
' 3. Die Gesamtlaufzeit RuntimeTotal
    Dim RuntimeTotal As Label
    RuntimeTotal.Initialize ("RuntimTotal")
    RuntimeTotal.Text = "00000,00"
    RuntimeTotal.TextSize = 12
    RuntimeTotal.Gravity = Bit.OR (Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL )
    RuntimeTotal.TextColor = Colors.Cyan
' 4. die CheckBox
    Dim chk As CheckBox
    chk.Initialize("chk")
  
    p.AddView(lbl, 5dip, 2dip, 150dip, Height - 4dip) 'view #0
    p.AddView(b, 155dip, 2dip, 60dip, Height - 4dip) 'view #1
    p.AddView(RuntimeTotal,215dip,2dip,60dip, Height - 4dip) 'view2 (eigentlich die 3.)
    p.AddView(chk, 280dip, 2dip, 50dip, Height - 4dip) 'view #3 (vormals die 2.)
  
    Return p
End Sub

Sub chk_CheckedChange(Checked As Boolean)
    Dim index As Int
    index = clv3.GetItemFromView(Sender)
    Dim pnl As Panel
    pnl = clv3.GetPanel(index)
  
    'Dim lbllbl As Label
    lbllbl = pnl.GetView(2)
  
    Dim chk As CheckBox
    chk = pnl.GetView(3)
  
    Dim lbllbltimer As Timer
  
    ' Works for a single Timer
    If chk.Checked = True Then
        lbllbltimer.Initialize ("lbllblTimer" ,1000)
        lbllbltimer.Enabled = True
        lbllbl.Text = lblblzeitvalue
    End If
  
    ' Works not
    If chk.Checked = False Then
        lbllbltimer.Enabled = False
        lbllbl.Text = lbllbl.Text
        lblblzeitvalue = 0
    End If
    'Msgbox("Item value: " & clv3.GetValue(index) & CRLF & "Check value: " & chk.Checked, "")
End Sub

Sub lbllbltimer_Tick
    lblblzeitvalue = lblblzeitvalue + 1
    'ToastMessageShow(lblblzeitvalue, False)
    lbllbl.Text = lblblzeitvalue
    lbllbl.Invalidate
      
End Sub

As written: starting ONE timer (the checked one) works, stopping it (by UNchecking) not.

Also it is only 1 timer (as written above)....

JakeBullet70 · May 28, 2014

I have been looking (GestureDetector & Gesturs lib)
What is the best way do a drag - drop between 2 CustomListViews?

Thanks

CyclopDroid · Jun 23, 2014

Hi, it's possible to insert the transparency on background of the text, in the CustomListView?
How do you do?
Thanks

DonManfred · Jun 23, 2014

erosmax said:
Hi, it's possible to insert the transparency on background of the text, in the CustomListView?
How do you do?

What type of Object is that where the Text appears?
I believe it is a label; have you tried to change the Labels color to Transparent?

CyclopDroid · Jun 23, 2014

Nothing. the object when I pass into CustomListView is a Label but not appear trasparent background.

B4X:

SV.AsView.Color=Colors.White
txtRix.color=Colors.Transparent
SV.AddTextItem(txtRix.text,txtPnt)

The txtRix color is white but the background is black. The line of the background image can not be seen.

bluedude · Jun 24, 2014

Hi Erel,

I would like to change the height dynamically when clicking on the panel. Just like the Expandable panels sample but with a Customlistview.

Trying to do this but does not work:

Dim pnl As Panel
pnl = clvDrawer.GetPanel(Index)
Log (pnl.Tag)
pnl.Height=400dip

Any suggestions?

bluedude · Jun 24, 2014

Hi Erel,

I was wondering, is there a way to update a view in a panel inside the Customlistview by using the Tag as update ID? I'm using tag to load my record id's from a REST interface. Sometimes I need to update a listitem with a certain tag value.

For example: I have a list of iBeacon UUID's with proximity in meters. These iBeacons update every 4 secs. and when proximity changes I want to change only that View in the list.

Cheers.

Erel · Jun 24, 2014

There are many ways to access a specific view. A Map will probably be the best option. Add the views to a Map when you add them to the list with the ID as the key. This will allow you to later retrieve the view based on the ID.

Erel · Jun 24, 2014

About the height change. You will need to remove the item with CLV.RemoveAt and then insert it back with the correct height with CLV.InsertAt.

bluedude · Jun 24, 2014

Done these things and added it to the class. Now have a GetPanelByTag method to get to the correct panel.

In combination with websockets it can make a Listview pretty flexible because you can update pieces of info in a list.

Now next thing is that I need itemindex in the designer That way I don't need to guess which index is which view.

I always use layout files for convenience.

bluedude · Jun 24, 2014

Saw the other note, using the tree list now.

Silv · Jul 25, 2014

Hi erel, is there way to strikethrough with rich string a customlistview item?
Thanks

Silv · Jul 26, 2014

I found, if somebody need so we need to change type from string to object of second paremeter of CustomListView class right here

B4X:

Public Sub InsertAtTextItem(Index As Int, Text As Object, Value As Object)

Levisvv · Jul 28, 2014

This Custom Listview is exactly what I was looking for and works great except:
I cannot seem to get it behind any other views?? Any reason why? I have a few cases were I use an overlay label 50% dark when the app is offline, but this Custom Listview is ALWAYS on top of everything and it is always visible, even when I set it's visible value to false.

Anything I might be doing wrong?

Erel · Jul 28, 2014

CustomListView is a simple ScrollView. You can add views above it and you can hide it. Change sv variable to be a public variable and then you will be able to change its Visible property.

Levisvv · Jul 28, 2014

I added it in Designer and changed it to visible=false and even moved it to the /back/ of all other views. It is still on top of all other views and hidden even when I don't want it to be.
Is there something in your customlistview class library that might be forcing it visible? I have not looked there yet.

CustomListView - A flexible list based on ScrollView

Member

Well-Known Member

B4X founder

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Well-Known Member

B4X founder

B4X founder

Well-Known Member

Well-Known Member

Member

Member

Member

B4X founder

Member

Privacy & Transparency

Privacy & Transparency