Hi y'all
Play GIF
Download Working Example : 3.75
Preview
Sometime ago I was working on an eLibrary kinda component to display my files, this was posted here. What I needed was a breadcrumb. So I decided to do this finally to add into that.
You can theme your breadcrumb background and foreground and these are clickable.
Play GIF
Download Working Example : 3.75
Preview
Sometime ago I was working on an eLibrary kinda component to display my files, this was posted here. What I needed was a breadcrumb. So I decided to do this finally to add into that.
You can theme your breadcrumb background and foreground and these are clickable.
B4X:
'breadcrumgs
ABMShared.AddTheme("breadcrumb",ABM.COLOR_WHITE,ABM.INTENSITY_NORMAL,ABM.COLOR_LIGHTBLUE,ABM.INTENSITY_NORMAL)
mbr.Initialize(page,"mashbreadcrumbs","breadcrumb")
mbr.ZDepth = ABM.ZDEPTH_2
mbr.AddButton("btn1","JavaScript")
mbr.AddButton("btn2","Media")
page.Cell(3,1).AddComponent(mbr.ABMComp)
B4X:
Sub btn1_click(value As Map)
Dim valuex As String = value.GetDefault("value","")
page.Msgbox("",valuex,"","OK",False,"","")
End Sub
Sub btn2_click(value As Map)
Dim valuex As String = value.GetDefault("value","")
page.Msgbox("",valuex,"","OK",False,"","")
End Sub