Hi all,
I want to set up a series of buttons as a menu. I want all the buttons the same width and in two columns.
I used code like this :-
but the button is not full with of the cell.
I have setup the following test program.
Here are the buttons:-
Why are all but button4 should be full with of the cell and have rounded corners and red borders in my mind
Why is this not working?
I want to set up a series of buttons as a menu. I want all the buttons the same width and in two columns.
I used code like this :-
B4X:
But1.InitializeRaised(page,"but1","","","FULL + SetBx","mytheme") ' FullWidth+SetBord
But1.UseFullCellWidth = True
But1.SetBorderEx(ABM.COLOR_RED,ABM.INTENSITY_ACCENT4,3,ABM.BORDER_SOLID,"20px")
page.Cell(2,1).AddComponent(But1)I have setup the following test program.
B4X:
public Sub BuildPage()
' initialize the theme
BuildTheme
' initialize this page using our theme
page.InitializeWithTheme(Name, "/ws/" & ABMShared.AppName & "/" & Name, False, ABMShared.SessionMaxInactiveIntervalSeconds, theme)
page.ShowLoader=True
page.PageHTMLName = "index.html"
page.PageTitle = "Add chems to list"
page.PageDescription = ""
page.PageKeywords = ""
page.PageSiteMapPriority = ""
page.PageSiteMapFrequency = ABM.SITEMAP_FREQ_YEARLY
page.ShowConnectedIndicator = True
' adding a navigation bar
' ABMShared.BuildNavigationBar(page, "My Page","../images/logo.png", "", "", "")
page.AddRows(1,True,"").AddCells12(1,"")
page.AddRows(2,True,"").AddCellsOS(1,0,0,0,3,3,3,"").AddCellsOS(1,1,1,1,3,3,3,"")
page.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
End Sub
public Sub ConnectPage()
' connecting the navigation bar
' ABMShared.ConnectNavigationBar(page)
Dim lab As ABMLabel
Dim But1 As ABMButton
Dim But2 As ABMButton
Dim But3 As ABMButton
Dim But4 As ABMButton
lab.Initialize(page,"lab","Button testing",ABM.SIZE_H5,False,"mytheme")
But1.InitializeRaised(page,"but1","","","FULL + SetBx","mytheme") ' FullWidth+SetBord
But1.UseFullCellWidth = True
But1.SetBorderEx(ABM.COLOR_RED,ABM.INTENSITY_ACCENT4,3,ABM.BORDER_SOLID,"20px")
But2.InitializeRaised(page,"but2","","","Reversed","mytheme")
But2.SetBorderEx(ABM.COLOR_RED,ABM.INTENSITY_ACCENT4,3,ABM.BORDER_SOLID,"20px")
But2.UseFullCellWidth = True
But3.InitializeRaised(page,"but3","","","FullWidth Only","mytheme")
But3.UseFullCellWidth = True
But4.InitializeRaised(page,"but4","","","BorderEx Only","mytheme")
But4.SetBorderEx(ABM.COLOR_RED,ABM.INTENSITY_ACCENT4,3,ABM.BORDER_SOLID,"20px")
page.Cell(1,1).AddComponent(lab)
page.Cell(2,1).AddComponent(But1)
page.Cell(2,2).AddComponent(But2)
page.Cell(3,1).AddComponent(But3)
page.Cell(3,2).AddComponent(But4)
' refresh the page
page.Refresh
' Tell the browser we finished loading
page.FinishedLoading
' restoring the navigation bar position
page.RestoreNavigationBarPosition
End SubHere are the buttons:-
Why are all but button4 should be full with of the cell and have rounded corners and red borders in my mind
Why is this not working?