Android Question CustomListView floating titles - button

kisoft

Well-Known Member
Licensed User
Longtime User
Hi
I would like to use this very nice solution..
.https://www.b4x.com/android/forum/threads/xui-customlistview-with-floating-titles.87935/#content
How to add additional elements? , for example, a button, image, to the drop-down list.

B4X: 
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    pnlTitle.Visible = False
    pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
    pnlTitle.LoadLayout("CellTitle")
    AddTitle("Title #AAA")
    For i = 1 To 10
        CLV1.AddTextItem($"A) Item #${i}"$, "")
    Next
    AddTitle("Title #BBB")
    For i = 11 To 21
        CLV1.AddTextItem($"B) Item #${i}"$, "")
    Next
    AddTitle("Title #CCC")
    For i = 22 To 32
        CLV1.AddTextItem($"C) Item #${i}"$, "")
    Next
    CLV1_ScrollChanged(0)
End Sub
 
Sort by date Sort by votes

kisoft

Well-Known Member
Licensed User
Longtime User
HI
I think I succeeded. It works somehow. Unfortunately, the list is slowly starting up.

B4X: 
Sub Activity_Create(FirstTime As Boolean)
   
    Activity.LoadLayout("1")
    pnlTitle.Visible = False
    pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
    pnlTitle.LoadLayout("CellTitle")
    AddTitle("Title #AAA")
    For i = 1 To 10
    CLV1.Add(CreateListItem(100%x,10%y),i)
    Next
    AddTitle("Title #BBB")
    For i = 11 To 21
       CLV1.Add(CreateListItem(100%x,10%y),i)
    Next
    AddTitle("Title #CCC")
    For i = 22 To 32
        CLV1.Add(CreateListItem(100%x,10%y),i)
    Next
    CLV1_ScrollChanged(0)
 End Sub

Sub CreateListItem(Width As Int, Height As Int) As Panel

    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, Width, Height)
    p.LoadLayout("2")
    Return p

End Sub
 
Last edited:
Upvote 0

kisoft

Well-Known Member
Licensed User
Longtime User
Scrolling works smoothly, but the activity with the list opens after 4s.
 
Upvote 0

AnandGupta

Expert
Licensed User
Longtime User
kisoft said:
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("2")
Return p
Click to expand...

I think some lazy loading logic may help here, as you are creating the layout of all the items at first.

Regards,

Anand
 
Upvote 0

kisoft

Well-Known Member
Licensed User
Longtime User
I tried to move the Activity Create part to another sub, but this only slows down the loading of the layout.
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Article
Android Tutorial [B4X] AS FloatingActionMenu - Open Menu above an item in a xCustomListView
Replies
0
Views
942
Alexander Stolte
  • Article
Android Tutorial [B4X] AS TextFieldAdvanced - TitleMode (AboveTextField, FloatText and BeforeTextField)
Replies
0
Views
1K
Alexander Stolte
  • Question
Android Question setCornerRadii
Replies
8
Views
2K
klaus
  • Question
Android Question CLV with floating titles: Trying to get index of clicked title item
Replies
6
Views
2K
Erel
  • Question
Android Question CustomListView with floating titles & Event VisibleRangeChanged
Replies
0
Views
2K
MarcoRome
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…