I cannot figure out what is to the right of the Title string when displayed on smaller devices. It sure looks like there is lots of real estate over there?
B4X:
Dim str As String = "Pearl Necklace Media"
ABMShared.BuildNavigationBarEx(page, str,"../images/logo-blank-330x117.png", "", "", "", True) ' IP parm = "is phone"
B4X:
Sub BuildNavigationBarEX(page As ABMPage, Title As String, logo As String, ActiveTopReturnName As String, ActiveSideReturnName As String, ActiveSideSubReturnName As String, ip As Boolean)
LogColor("BuildNavigationBarEX", clrLog)
' mhm this image can be an ABMComponent
Dim sbtopimg As ABMImage
sbtopimg.Initialize(page, "sbtopimg", logo, 1)
sbtopimg.SetFixedSize( 330, 117)
page.NavigationBar.Initialize(page, "nav21", ABM.SIDEBAR_MANUAL_ALWAYSHIDE, Title, True, True, 300, 48, sbtopimg, ABM.COLLAPSE_ACCORDION, "nav1theme")
' CLEAR any existing items....
page.NavigationBar.Clear
''''page.PaddingBottom = 100 ' padding at the bottom of what? page i guess
page.NavigationBar.ActiveTopReturnName = ActiveTopReturnName
page.NavigationBar.ActiveSideReturnName = ActiveSideReturnName
page.NavigationBar.ActiveSideSubReturnName = ActiveSideSubReturnName
'page.NavigationBar.AddTopItem("Help", "Help", "mdi-action-help", "../AboutPage", False)
'page.NavigationBar.AddTopItem("LogOff", "Log Off", "mdi-action-exit-to-app", "", False)
' **********************************************************************************************************
' i do not see this on page but without this line the menu Hamburger does not appear
'''' SIDEBAR! page.NavigationBar.AddSideBarItem( "About", "About / Help", "mdi-communication-live-help", "../AboutPage") ' this ? in speech bubble is nowhere to be found
' page.NavigationBar.AddSideBarItem( "About", "About / Help", "mdi-communication-live-help", "../AboutPage")
' page.NavigationBar.AddSideBarDivider '("")
' page.NavigationBar.AddSideBarItem("Cases", "Manage Issues", "mdi-action-dashboard", "../OverviewCasesPage")
' page.NavigationBar.AddSideBarDivider '("")
' ****************** Here we build the extra content container. ***************************
''''Dim pad As Int = 5
''''Dim hd As Int = 15
''''page.NavigationBar.InitializeExtraContent("extracontent", False, "")
' dummy row - may be used later...
''''page.NavigationBar.ExtraContent.AddRowsM(1,True,0,0 ,"").AddCellsOSMP(1,0,0,0,12,12,12,0,0,20,20,"")
' the actual row to contain our components...
''''page.NavigationBar.ExtraContent.AddRowsM2( 1, Not(ip), 0, 0,pad,pad, "rowtheme2").AddCellsOSMP( 1, 0,0,0, 12,6,3, 0,0,0,0,"cellcntr").AddCellsOSMP(1,0,0,0, 12,6,3,0,0,0,0,"cellcntr").AddCellsOSMP(1,0,0,0, 12,6,3, hd, hd,0,0,"cellcntr").AddCellsOSMP(1, 0,0,0, 12,6,3, hd, hd,0,0,"cellcntr")
' another dummy row...
''''page.NavigationBar.ExtraContent.AddRowsM(1,True,0,0,"").AddCellsOSMP( 1,0,0,0, 12,12,12, 0,40,20,20,"")
' BUILD IT!
''''page.NavigationBar.ExtraContent.BuildGrid
' add the half button... up/down arrow thing
''''page.NavigationBar.InitializeExtraHalfButton("ExtraButton", "fa fa-arrows-v", ABM.BUTTONSIZE_NORMAL, ABM.HALFBUTTON_RIGHT, "btnamber")
' END EXTRA CONTENT ***********************************************************************
page.DebugPrintGrid
End Sub