#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Button1 As Button
Private Button2 As Button
Private jPDFviewer1 As jPDFviewer
Private jPDFviewer2 As jPDFviewer
Private jPDFviewerServer As jPDFviewer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("L1")
'*********************************************
' NOTE:
' jPDFviewer1 & 2 has in layout. Ant they "ServerActive" properties is FALSE
' We create manuelly jPDFviewerServer. And other viwer use same server.
'*********************************************
MainForm.Show
jPDFviewerServer.Initialize(Me,"jPDFviewerServer")
jPDFviewerServer.PDFpublisherLoacation=(File.DirTemp)
jPDFviewerServer.PDFpublisher=("server")
jPDFviewerServer.ZipFolder=File.DirAssets
jPDFviewerServer.ZipFile="pdfjs-2.1.266-dist.zip" 'https://mozilla.github.io/pdf.js/
Log(jPDFviewerServer.ResetPDFsystem)
jPDFviewer1.PDFpublisherLoacation=(File.DirTemp)
jPDFviewer1.PDFpublisher=("server")
jPDFviewer2.PDFpublisherLoacation=(File.DirTemp )
jPDFviewer2.PDFpublisher=("server")
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub jPDFviewer1_GeneralError (Error As String)
Log("jPDFviewer1_GeneralError"&Error)
End Sub
Sub jPDFviewer1_PageShowed(PDFfile As String)
Log("jPDFviewer1_PageShowed:"&PDFfile)
End Sub
Sub jPDFviewer1_PageCleaned
Log("jPDFviewer1_PageCleaned")
End Sub
Sub Button2_Click
'jPDFviewer2.Clear
jPDFviewer1.Clear
jPDFviewer1.Visible=False
Log(jPDFviewerServer.ResetPDFsystem)
End Sub
Sub Button1_Click
jPDFviewer1.Visible=True
If jPDFviewer1.LaodPDF("C:\Users\PC1\Desktop\VAN","MRK3753439.pdf") Then
jPDFviewer1.ShowPDF("")
End If
If jPDFviewer2.LaodPDF("C:\Users\PC1\Desktop\VAN","MRK3753459.pdf") Then
jPDFviewer2.ShowPDF("")
End If
End Sub
Sub MainForm_Closed
ExitApplication
End Sub
