Sub BuildNavigationBar(page As ABMPage, Title As String, logo As String, ActiveTopReturnName As String, ActiveSideReturnName As String, ActiveSideSubReturnName As String) 'ignore
Dim sbtopimg As ABMImage
sbtopimg.Initialize(page, "sbtopimg", logo, 1)
sbtopimg.SetFixedSize(200, 49)
page.NavigationBar.Initialize( page, "nav1", ABM.SIDEBAR_MANUAL_HIDEMEDIUMSMALL, Title, True, True, 200, 49, sbtopimg, ABM.COLLAPSE_ACCORDION, "nav1theme")
page.NavigationBar.TopBarDropDownConstrainWidth = False
page.NavigationBar.ActiveTopReturnName = ActiveTopReturnName
page.NavigationBar.ActiveSideReturnName = ActiveSideReturnName
page.NavigationBar.ActiveSideSubReturnName = ActiveSideSubReturnName
End Sub
Sub ConnectNavigationBar(page As ABMPage) 'ignore
page.NavigationBar.AddTopItem( "Delete", "Delete", "mdi-action-highlight-remove", "", ABM.ICONALIGN_CENTER)
page.NavigationBar.AddTopItem("Add", "Add", "mdi-content-add", "", ABM.ICONALIGN_CENTER)
page.NavigationBar.AddTopItem("Unlock", "Unlock", "mdi-action-lock", "", ABM.ICONALIGN_CENTER)
page.NavigationBar.AddTopItem("Save", "Save", "mdi-content-save", "", ABM.ICONALIGN_CENTER)
page.NavigationBar.AddSideBarDivider
page.NavigationBar.AddSideBarItem("System","System","","")
page.NavigationBar.AddSideBarItem("Goods","Goods","","")
page.NavigationBar.AddSideBarDivider
page.NavigationBar.Refresh ' IMPORTANT
End Sub