Android Question Scrolling BreadCrumb

epiCode said:

check out TextCrumb

It does not use CLV but it will give you an idea of how you can implement the same using CLV.
In your case there is no CustomB4XBreadcrumb but simple text you have to add to CLV at each level.

Click to expand...

DawningTruth said:

I would prefer to continue using the CustomB4XBreadCrumb module as the code is already written for this module.

Click to expand...

Alexander Stolte said:

The view is unfortunately not designed for this, I tried to create a modified version, but the total width never matches the items that should be displayed, I could not figure out where the problem lies.

Click to expand...

DawningTruth said:

Any thoughts on how you ended up tackling the solution?

Click to expand...

    Dim xpnl As B4XView = xui.CreatePanel("")
    xpnl.SetLayoutAnimated(0,0,0,Root.Width,CustomListView1.AsView.Height)
    xpnl.LoadLayout("frm_BreadLayout")
    CustomListView1.Add(xpnl,"")
    
    
    Dim lst_Items As List
    lst_Items.Initialize
    
    For i = 0 To 20 -1
        lst_Items.Add(i+1)
    Next
    
    B4XBreadCrumbCustom1.Items = lst_Items
    
    CustomListView1.ResizeItem(0,B4XBreadCrumbCustom1.FullItemWidth)
    CustomListView1.GetPanel(0).Width = B4XBreadCrumbCustom1.FullItemWidth
    B4XBreadCrumbCustom1.Base_Resize(B4XBreadCrumbCustom1.FullItemWidth,B4XBreadCrumbCustom1.mBase.Height)

DawningTruth said:

I am finding that my breadcrumbs are becoming too large to fit on the screen. I would like to make the breadcrumb horizontally scrollable using 192.168.100.1 192.168.1.1 CustomListView but am stumped. Can someone please guide me?

Here is my current unsuccessful attempt.

Not too sure what to use for the object parameter:

clv_ScrollingBreadCrumb.Add(CreateBreadCrumbItem(),)

Need help here too:

Private Sub CreateBreadCrumbItem() As B4XView

'Create BreadCrumb
   
    Dim scrollingBreadCrumbs As CustomB4XBreadCrumb =  'How do I create the breadcrumb here
   
    'How do I add the breadcrumb to the panel'  
.....

PS: If there is a simpler way to attain the same objective using CustomB4XBreadCrumb, happy to explore that option too.

Click to expand...

juan vaejo said:

I'm interested in this code how did you work it out ?

Click to expand...

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI

    Private CustomListView1 As CustomListView
    Private B4XBreadCrumbCustom1 As B4XBreadCrumbCustom
End Sub

Public Sub Initialize
    
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("frm_main")
    
    Dim xpnl As B4XView = xui.CreatePanel("")
    xpnl.SetLayoutAnimated(0,0,0,Root.Width,CustomListView1.AsView.Height)
    xpnl.LoadLayout("frm_BreadLayout")
    CustomListView1.Add(xpnl,"")
    
    
    Dim lst_Items As List
    lst_Items.Initialize
    
'    For i = 0 To 20 -1
'        lst_Items.Add(i+1)
'       
'    Next
    
    lst_Items.Add("long item 1")
    lst_Items.Add("long item 2")
    lst_Items.Add("long item 3")
    lst_Items.Add("long item 4")
    lst_Items.Add("long item 5")
    
    B4XBreadCrumbCustom1.Items = lst_Items
    
    CustomListView1.ResizeItem(0,B4XBreadCrumbCustom1.FullItemWidth)
    CustomListView1.GetPanel(0).Width = B4XBreadCrumbCustom1.FullItemWidth
    B4XBreadCrumbCustom1.Base_Resize(B4XBreadCrumbCustom1.FullItemWidth,B4XBreadCrumbCustom1.mBase.Height)
    
End Sub


Private Sub B4XBreadCrumbCustom1_CrumbClick (Crumbs As List)
    
    Log("BreadCrumb Click")
    
End Sub