' get the floating container
Dim floatingcont1 As ABMContainer
floatingcont1 = page.FloatingContainer("floatingcont1")
' create menu container
Dim cont2 As ABMContainer
cont2.Initialize(page, "cont2", "menu")
' you have to take care yourself how it bahaves on the different devices
cont2.AddRows(1,False,"").AddCellsOS(1,0,0,0,6,2,1,"").AddCellsOS(1,0,0,0,1,7,9,"").AddCellsOS(1,0,0,0,5,3,2,"")
cont2.BuildGrid
cont2.Cell(1,1).MarginLeft = "6px"
cont2.Cell(1,1).Margintop = "6px"
cont2.Cell(1,2).MarginLeft = "-6px" ' to compensate for the +5px in cell 1
cont2.Cell(1,3).Margintop = "16px"
Dim img As ABMImage
img.Initialize(page, "img", "../images/paulo.png",1)
cont2.Cell(1,1).AddComponent(img)
Dim lbl As ABMLabel
lbl.Initialize(page, "lbl", "{NBSP}{I}Paulo Gomez{/I}", ABM.SIZE_H4, False, "white")
lbl.Visibility = ABM.VISIBILITY_HIDE_ON_SMALL_ONLY ' hide the label on phones
cont2.Cell(1,2).AddComponent(lbl)
Dim img2 As ABMImage
img2.Initialize(page, "img2", "../images/france_round_256.png",1)
img2.SetFixedSize(48,36)
cont2.Cell(1,3).AddComponent(img2)
Dim img3 As ABMImage
img3.Initialize(page, "img3", "../images/united_kingdom_round_icon_256.png",1)
img3.SetFixedSize(48,36)
cont2.Cell(1,3).AddComponent(img3)
Dim img4 As ABMImage
img4.Initialize(page, "img4", "../images/hungary_round_icon_256.png",1)
img4.SetFixedSize(48,36)
cont2.Cell(1,3).AddComponent(img4)
' add it to the floating container
floatingcont1.Cell(1,1).AddComponent(cont2)
page.Cell(1,1).PaddingTop = "50px"
' make some big text to show the floating container stays on top
Dim biglabel As ABMLabel
biglabel.Initialize(page, "biglabel", ABM.Util.paragraphs(50,True), ABM.SIZE_PARAGRAPH, True, "")
page.Cell(2,1).AddComponent(biglabel)
' also add the components to the footer
ABMShared.ConnectFooterFixed(page)
page.Refresh ' IMPORTANT!
' NEW, because we use ShowLoaderType=ABM.LOADER_TYPE_MANUAL
page.FinishedLoading 'IMPORTANT