Sub BuildModalDownload() As ABMModalSheet
Dim myModal As ABMModalSheet
myModal.Initialize(page, "ModalDW", False,ABM.MODALSHEET_TYPE_NORMAL, "")
myModal.Content.UseTheme("modalcontent")
myModal.Footer.UseTheme("modalfooter")
myModal.Size=ABM.MODALSHEET_SIZE_NORMAL
myModal.IsDismissible = False
myModal.Content.AddRowsM(2,True,20,0,"").AddCellsOSMP(1,0,0,0,12,12,12,0,0,0,0,"")
myModal.Content.BuildGrid
' Dim PdfViewer As ABMPDFViewer
' PdfViewer.Initialize(page, "PdfViewerDW", 500, "../uploads/1.pdf","")
' PdfViewer.PreparePrintingText = "Preparing to print..."
' PdfViewer.ReadDirection = ABM.Pdf_READDIRECTION_LTR
' PdfViewer.AllowDownload = True
' PdfViewer.AllowOpen = False
' PdfViewer.AllowPrint = False
' PdfViewer.AllowSideBar = False
' PdfViewer.AllowViewBookmark = False
'
' myModal.Content.Cell(2,1).AddComponent(PdfViewer)
Dim myViewer As CompPdfViewer
myViewer.Initialize(page,"myViewer")
myModal.Content.Cell(2,1).AddComponent(myViewer.ABMComp)
' create the buttons for the footer
myModal.Footer.AddRowsM(1,True,0,0,"").AddCellsOS(1,10,10,10,1,1,1,"").AddCellsOS(1,0,0,0,1,1,1,"")
myModal.Footer.BuildGrid
Dim btnCancelDW As ABMButton
btnCancelDW.Initializefloating(page, "btnCancelDW", "mdi-navigation-close", "")
btnCancelDW.size = ABM.BUTTONSIZE_NORMAL
myModal.Footer.Cell(1,1).PaddingTop="5px"
myModal.Footer.Cell(1,1).AddComponent(btnCancelDW)
Return myModal
End Sub