public Sub ConnectPage()
' you dynamic stuff
AppPage.Refresh ' IMPORTANT
' Tell the browser we finished loading
AppPage.FinishedLoading 'IMPORTANT
Dim CSS As String = $"$('#login').css({'background-color': 'transparent', 'outline': 'none', 'box-shadow': 'unset'});
$('#login-content').removeClass('transparent').addClass('white');"$
AppPage.ws.Eval(CSS, Null)
AppPage.ws.Flush
AppPage.RestoreNavigationBarPosition
End Sub
Sub BuildLoginSheet() As ABMModalSheet
Dim myModal As ABMModalSheet
myModal.Initialize(AppPage, "login", False, ABM.MODALSHEET_TYPE_NORMAL,"loginform")
myModal.IsDismissible = False
myModal.MaxHeight = "100%"
myModal.MaxWidth = "25%"
myModal.Content.AddRows(3,True,"").AddCells12(1,"")
myModal.Content.BuildGrid ' IMPORTANT!
myModal.Content.Cell(1,1).AddComponent(ABMShared.BuildParagraph(AppPage,"par1","Please login:"))
myModal.Content.Cell(1,1).UseTheme("loginform")
Dim inp1 As ABMInput
inp1.Initialize(AppPage, "inp1", ABM.INPUT_TEXT, "UserName", 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)
Dim msbtn1 As ABMButton
msbtn1.InitializeFlat(AppPage, "msbtn1", "", "", "Login", "transparent")
myModal.Content.Cell(3,1).AddComponent(msbtn1)
myModal.Content.Cell(3,1).UseTheme("loginform")
myModal.Content.SetBorderex(ABM.COLOR_BLACK, ABM.INTENSITY_DARKEN2, 2, ABM.BORDER_GROOVE, "20px")
Return myModal
End Sub