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').css({'background-color': 'transparent', 'outline': 'none', 'box-shadow': 'unset'});
$('#login-content-useravatarplaceholder').css({'position': 'relative','z-index': '20'});
"$
AppPage.ws.Eval(CSS, Null)
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(2,True,"").AddCells12(1,"")
myModal.Content.BuildGrid ' IMPORTANT!
Dim UserAvatarPlaceHolder As ABMImage
UserAvatarPlaceHolder.Initialize(AppPage,"useravatarplaceholder","./images/useravatarplaceholder.png",255)
UserAvatarPlaceHolder.IsCircular = True
UserAvatarPlaceHolder.IsClickable = False
UserAvatarPlaceHolder.SetFixedSize(80,80)
myModal.Content.Cell(1,1).UseTheme("LoginForm")
myModal.Content.Cell(1,1).AddComponent(UserAvatarPlaceHolder)
Dim myLoginForm As ABMContainer
myLoginForm.Initialize(AppPage, "myloginform","LoginForm")
myLoginForm.AddRowsV(1,True,ABM.VISIBILITY_ALL,"").AddCellsOSV(1,5,5,5,2,2,2,ABM.VISIBILITY_ALL,"")
myLoginForm.AddRowsV(1,True,ABM.VISIBILITY_ALL,"").AddCells12V(1, ABM.VISIBILITY_ALL,"")
myLoginForm.BuildGrid ' IMPORTANT!
myModal.Content.Cell(2,1).AddComponent(myLoginForm)
Dim myLoginFormFieldsContainer As ABMContainer
myLoginFormFieldsContainer.Initialize(AppPage,"mylogingfieldscontainer","LoginForm")
myLoginFormFieldsContainer.UseTheme("myLoginFormFieldsContainer")
myLoginFormFieldsContainer.AddRowsV(5,True,ABM.VISIBILITY_ALL,"").AddCells12V(1, ABM.VISIBILITY_ALL,"")
myLoginFormFieldsContainer.BuildGrid ' IMPORTANT!
myLoginForm.Cell(2,1).AddComponent(myLoginFormFieldsContainer)
myLoginForm.Cell(2,1).MarginTop = "-75px"
' myLoginFormFieldsContainer.Cell(3,1).AddComponent(BuildParagraph(AppPage,"par1","USER LOGIN"))
' myLoginFormFieldsContainer.Cell(3,1).UseTheme("loginform")
'
' Dim inp1 As ABMInput
' inp1.Initialize(AppPage, "inp1", ABM.INPUT_TEXT, "UserName", False, "")
' myLoginFormFieldsContainer.Cell(4,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")
myLoginFormFieldsContainer.SetBorderex(ABM.COLOR_WHITE, ABM.INTENSITY_NORMAL,3, ABM.BORDER_SOLID, "20px")
' myModal.Content.SetBorderex(ABM.COLOR_BLACK, ABM.INTENSITY_DARKEN2, 2, ABM.BORDER_GROOVE, "20px")
Return myModal
End Sub