Hi all,
please have a look at the attached screenshot. I'd like to build a footer made up of a button and a label.
As you can see, below the useful area it's shown a gap (whose color tells me that it's part of the footer); more, button and label shows different heights.
The code I experimented with so far is:
please have a look at the attached screenshot. I'd like to build a footer made up of a button and a label.
As you can see, below the useful area it's shown a gap (whose color tells me that it's part of the footer); more, button and label shows different heights.
The code I experimented with so far is:
B4X:
Sub BuildFooterFixed
page.isFixedFooter= True
'because we have a fixed footer at the bottom, we have To adjust the padding of the body in pixels
page.PaddingTop = 5
page.PaddingBottom = 5
page.Footer.AddRows(1, False, "").AddCellsOS(1,0,0,0,6,3,1,"").AddCellsOS(1,0,0,0,6,9,11, "xxy")
page.Footer.BuildGrid 'IMPORTANT once you loaded the complete grid And before you start adding components
page.Footer.UseTheme("footertheme")
page.Footer.Cell(1,1).PaddingLeft =0
page.Footer.Cell(1,1).PaddingTop =0
page.Footer.Cell(1,1).PaddingBottom =0
page.Footer.Cell(1,1).MarginBottom=0
page.Footer.Cell(1,2).PaddingLeft =0
page.Footer.Cell(1,2).PaddingTop =0
page.Footer.Cell(1,2).PaddingBottom =0
page.Footer.Cell(1,2).MarginBottom=0
Dim btnStart As ABMButton
btnStart.InitializeRaised(page, "btn1", "", ABM.CELL_ALIGN_CENTER, "Button", "bstartth")
btnStart.Size=ABM.SIZE_H6
page.Footer.Cell(1,1).AddComponent(btnStart)
Dim lbl2 As ABMLabel
lbl2.Initialize(page, "footlbl2", "My message to the user",ABM.SIZE_H6, False, "whitefc")
page.Footer.Cell(1,2).AddComponent(lbl2)
page.Footer.Cell(1,1).SetFixedHeight(30) 'no effect
page.Footer.Cell(1,2).SetFixedHeight(30) 'no effect
End Sub
[code]
Note: as long it has a click event, I could substitute the button with any other component (label, image..) that appears similar to the user.
Thank you for you help.