CustomListView - A flexible list based on ScrollView

Erel · Aug 7, 2012

Can you upload a small example?

Jaames · Aug 7, 2012

Erel said:
Can you upload a small example?

The file is too large 707 KB so i will put the link from my dropbox

https://dl.dropbox.com/u/40815149/diems.zip

When you click on "Menu" - "DODAJ NOVI MJESEC" - "PRIHVATI"

The list is populated with selected month, if i do that multiple times the list becomes laggy :/

Thanks

Jaames · Aug 9, 2012

Since Erel does not answering me i'll post my solution for this problem

I just added another sub and instead .Clear i call .Clear1 SUB in Erel's CustomListView as is below:

B4X:

Public Sub Clear1
   For x = 0 To panels.Size -1
      Dim removePanel As Panel
      removePanel = panels.Get(x)
      removePanel.RemoveView
    Next
    items.Clear
   panels.Clear
   sv.Panel.Height = 0
   sv.Invalidate

End Sub

Cheers

Erel · Aug 10, 2012

Thank you for posting the solution. Don't worry, I didn't forget your question.

I've uploaded a similar correction to the first post.

Jaames · Aug 10, 2012

I know you are busy man, thanks for help

BarrySumpter · Aug 22, 2012

Very cool.

Not much needed to change my ScrollView to a Custom List View.

What a relief.

Really enjoying b4a.

Thanks to all who have contributed to make b4a so brilliant!

-----

I have 4 panels.

The last panel has an edit text at the bottom.

The edit text is 3 text lines high.

In portriat, I click the edit text.

The keyboard pops up and the edit text is scrolled
to where only one line of edit text is visible.

No prob since word wrap and kb crlf scrolls the edit text up to the next line.

But the android edit icon pointer
( the green colored house shaped pointer )
never appears.

If I turn to landscap, and click the edit text,
the edit text is scrolled to the very top with all three text lines visible
with the android edit icon pointer appearing properly.

Adding 50%y to the last panel size solves the issue in portriate mode.

B4X:

    clv1.Add(pnlStatus, pnlStatus.Height + 50%y, "Item 4")

Just thought the author would want to know and help others who might have the same issue.

bluedude · Aug 23, 2012

Getting the correct view

Hi,

I think this custom scrollview is great but I have a question. I have layout with 4 views and one of them is a checkbox.

In your sample you do something like this:

Dim lbl As Label
Dim chk As CheckBox
lbl = pnl.GetView(0)
chk = pnl.GetView(2)
lbl.Text = "Clicked!"
Msgbox("Item value: " & clv1.GetValue(itemIndex) & CRLF & "Check value: " & chk.Checked, "")

How do I know which index a view has in a layout? I want to get to my checkbox value but i'm not sure which index the view has.

Cheers.

Informatix · Aug 23, 2012

bluedude said:
Hi,

I think this custom scrollview is great but I have a question. I have layout with 4 views and one of them is a checkbox.

In your sample you do something like this:

Dim lbl As Label
Dim chk As CheckBox
lbl = pnl.GetView(0)
chk = pnl.GetView(2)
lbl.Text = "Clicked!"
Msgbox("Item value: " & clv1.GetValue(itemIndex) & CRLF & "Check value: " & chk.Checked, "")

How do I know which index a view has in a layout? I want to get to my checkbox value but i'm not sure which index the view has.

Cheers.

Try the CheckList class. It should ease your checkbox management.

bluedude · Aug 23, 2012

Interesting but not really what I'm looking for in this specific case. I just need to know how I can get an Index of a view. The getView method needs to have a view Index.

Informatix · Aug 23, 2012

bluedude said:
Interesting but not really what I'm looking for in this specific case. I just need to know how I can get an Index of a view. The getView method needs to have a view Index.

The first view you add to the layout has an index = 0.
The second view, index = 1.
And so on.

Erel · Aug 23, 2012

The order of the views is the same as the order you added the views to the panel.

bluedude · Aug 24, 2012

I wish I knew that Long time ago that i added these. Wouldn't it be great to add the Index to the properties in the designer? So if you click on a view that it shows the Index.

Informatix · Aug 24, 2012

bluedude said:
I wish I knew that Long time ago that i added these. Wouldn't it be great to add the Index to the properties in the designer? So if you click on a view that it shows the Index.

There's an Android function already existing: indexOfChild (I never tried to call it with the Reflection lib so I don't know if it works).

kangjianfeng · Aug 26, 2012

very good

thank you very much,it's usefull for me

androh · Sep 25, 2012

UpdateAt

Hi,
I did a small add-on for customlistview that "UpdateAt"
It removes panel and inserts new panel.

B4X:

'Updates a custom item at the specified index.
Public Sub UpdateAt(Index As Int, Pnl As Panel, ItemHeight As Int, Value As Object)    
   
   Dim removePanel, p As Panel
   removePanel = panels.Get(Index)
   items.RemoveAt(Index)
   panels.RemoveAt(Index)
   removePanel.RemoveView
   
   
   Dim sd As StateListDrawable
    sd.Initialize
    sd.AddState(sd.State_Pressed, pressedDrawable)
    sd.AddCatchAllState(Pnl.Background)
   
   'create another panel to handle the click event
   Dim p As Panel
   p.Initialize("panel")
   p.Background = sd
   Dim cd As ColorDrawable
   cd.Initialize(Colors.Transparent, 0)
    Pnl.Background = cd
   p.AddView(Pnl, 0, 0, sv.Width, ItemHeight)
   p.Tag = Index   

   Dim top As Int
   If Index = 0 Then
      top = dividerHeight
   Else
      Dim previousPanel As Panel
      previousPanel = panels.Get(Index - 1)
      top = previousPanel.top + previousPanel.Height + dividerHeight
   End If

   items.InsertAt(Index, Value)
   panels.InsertAt(Index, p)
   sv.Panel.AddView(p, 0, top, sv.Width, ItemHeight)

End Sub

maleche · Oct 8, 2012

This is close to what I'm looking for!

How is this modified to add spinners in the scrollview?

Wow!
Doyle

Erel · Oct 9, 2012

You can add any view you like. You should first add it to a panel and then add the panel as the item.

maleche · Oct 9, 2012

Not clear on "add a panel as the item..." do you mean panel1.add (spinner1,x,y,h,w)?
Thanks.

Erel · Oct 9, 2012

No. Each item is made of a panel with views. You should create the panel and add it to the CustomListView with clv.Add(...). See the example in the first post.

sorex · Oct 12, 2012

Hello,

I used this class and it appeared to work fine.

Although I bumped into an issue that I can't seem to solve.

When I set dimensions to lets say 100%x and 200, but the items only cover y=100
I get this gray background under the list items.

I first thought it was because of the panel nesting in this structure activity>panel>panel>panel>clv_list but all panels have a black background.

setting the defaulttextbackground doesn't change anything either, but I think this is for list items only right?

CustomListView - A flexible list based on ScrollView

B4X founder

Active Member

Attachments

Active Member

B4X founder

Active Member

Active Member

Well-Known Member

Expert

Well-Known Member

Expert

B4X founder

Well-Known Member

Expert

Member

Member

Active Member

B4X founder

Active Member

B4X founder

Expert

Privacy & Transparency

Privacy & Transparency