Sub ConnectLoginSheet() As ABMModalSheet
Dim myModal As ABMModalSheet
myModal.Initialize(AppPage, "login", False, False, "")
myModal.Content.UseTheme("modalcontent")
myModal.Footer.UseTheme("modalfooter")
myModal.IsDismissible = False
' create the grid for the content
myModal.Content.AddRows(3,True, "").AddCells12(1,"")
myModal.Content.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
' create the grid for the footer
' we add a row without the default 20px padding so we need to use AddRowsM(). If we do not use this method, a scrollbar will appear to the sheet.
myModal.Footer.AddRowsM(1,True,0,0, "").AddCellsOS(1,9,9,9,3,3,3, "")
myModal.Footer.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
' add paragraph
myModal.Content.Cell(1,1).AddComponent(ABMShared.BuildParagraph(AppPage,"par1","Please login: (login and password are 'demo')") )
' create the input fields for the content
Dim inp1 As ABMInput
inp1.Initialize(AppPage, "inp1", ABM.INPUT_TEXT, "Login", False, "")
myModal.Content.Cell(2,1).AddComponent(inp1)
Dim inp2 As ABMInput
inp2.Initialize(AppPage, "inp2", ABM.INPUT_PASSWORD, "Password", False, "")
myModal.Content.Cell(2,1).AddComponent(inp2)
' create the button for the footer
Dim msbtn1 As ABMButton
msbtn1.InitializeFlat(AppPage, "msbtn1", "", "", "Login", "transparent")
myModal.Footer.Cell(1,1).AddComponent(msbtn1)
inp1.SetFocus
Return myModal
End Sub