'Modal sheet for: Total Users, Beacons
Sub BuildTotalUsers() As ABMModalSheet
Log("******************************** BUILD MODAL SHEET **********************")
Dim modal As ABMModalSheet
'modal.Initialize(page, "showTotalUsers", True, ABM.MODALSHEET_TYPE_NORMAL, "")
modal.Initialize(page, "stu", True, ABM.MODALSHEET_TYPE_NORMAL, "")
modal.IsDismissible = True
modal.Size = ABM.MODALSHEET_SIZE_LARGE
modal.Content.AddRowsM2(1,True, 0, 0, 0, 0,"").AddCells12(1,"")
modal.Content.BuildGrid
modal.Content.MarginLeft = "0px"
modal.Content.MarginRight = "0px"
modal.MaxHeight = "100%"
modal.MaxWidth = "100%"
'Below use AddRowsM to remove margin's to remove double scroll bars
'https://www.b4x.com/android/forum/threads/abmaterial-modalsheet-scrollbar-issue.88870/
'modal.Header.AddRowsM(1,True, 0, 0,"").AddCellsOS(1,0,0,0,11,11,11,"center").AddCellsOS(1,11,11,11,1,1,1,"")
'modal.Header.AddRowsM(1, True, 0, 0, "").AddCells12(1, "center")
modal.Header.PaddingRight = "0px"
modal.Header.PaddingLeft = "0px"
modal.Header.MarginLeft = "0px"
modal.Header.MarginRight = "0px"
modal.Header.AddRowsM2(1, True, 0, 0, 0, 0, "").AddCellsOS(1,1,1,1,10,10,10,"center").AddCellsOS(1,0,0,0,1,1,1,"right")
modal.Header.BuildGrid
modal.Header.PaddingRight = "0px"
modal.Header.PaddingLeft = "0px"
modal.Header.MarginLeft = "0px"
modal.Header.MarginRight = "0px"
modal.Header.Row(1).PaddingLeft = "0px"
modal.Header.Row(1).PaddingRight = "0px"
modal.Header.Cell(1,1).AddComponent(ABMShared.BuildParagraph(page, "stuTitel", "Data View"))
Dim btnClose As ABMButton
btnClose.InitializeFlat(page, "btnStuClose", "", "", "X", "")
modal.Header.Cell(1,2).AddComponent(btnClose)
modal.Footer.AddRowsM2(1,True, 0, 0, 0, 0, "").AddCells12(1,"center")
modal.Footer.BuildGrid
modal.Footer.MarginLeft = "0px"
modal.Footer.MarginRight = "0px"
modal.Footer.PaddingTop = "0px"
modal.Footer.PaddingBottom = "0px"
modal.Footer.Cell(1,1).AddComponent(ABMShared.BuildParagraph(page, "stuFooter", "© XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"))
Return modal
End Sub