Sub buildMuestraFoto() As ABMModalSheet
Dim sheet As ABMModalSheet
sheet.Initialize(page, "SheetMuestraFoto", False, False, "")
sheet.IsDismissible = True
sheet.Content.AddRows(20,True, "").AddCells12(1,"")
sheet.Content.BuildGrid
Dim i As ABMInput
i.initialize(page, "x", ABM.INPUT_TEXT, "hola", False, "")
sheet.Content.Cell(1,1).AddComponent(i)
Dim image As ABMImage
image.Initialize(page, "img1", "./paso.png", 1)
'image.IsResponsive=True
'image.IsMaterialBoxed=True
'image.SetFixedSize(64,64)
sheet.Content.Cell(2,1).AddComponent(image)
Dim image As ABMImage
image.Initialize(page, "img2", "./images/mom.jpg", 1)
image.IsResponsive=True
image.IsMaterialBoxed=True
image.SetFixedSize(64,64)
sheet.Content.Cell(3,1).AddComponent(image)
Dim image As ABMImage
image.Initialize(page, "img3", "./sample-1.jpg", 1)
'image.IsResponsive=True
'image.IsMaterialBoxed=True
'image.SetFixedSize(64,64)
sheet.Content.Cell(4,1).AddComponent(image)
Log("mostrandose la foto " & image)
Return sheet
End Sub