AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update document viewer

Browse Source
This commit is contained in:
Jonathan Jenne 2020-02-04 15:42:35 +01:00
parent c66a2dc5e5
commit 69a96331bd
1 changed files with 20 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Controls.DocumentViewer/DocumentViewer.vb
View File

@ -23,6 +23,7 @@ Public Class DocumentViewer
Private _licenseManager As New GdPicture14.LicenseManager() Private _licenseManager As New GdPicture14.LicenseManager()
Private _logConfig As LogConfig Private _logConfig As LogConfig
Private _logger As Logger Private _logger As Logger
Private _view_only As Boolean = False
' List of all created temp files when converting msg files ' List of all created temp files when converting msg files
Private _TempFiles As New List(Of String) Private _TempFiles As New List(Of String)
@ -65,8 +66,9 @@ Public Class DocumentViewer
''' Terminate Viewer, freeing up resources and deleting temp files ''' Terminate Viewer, freeing up resources and deleting temp files
''' </summary> ''' </summary>
Public Sub Done() Public Sub Done()
_logger.Warn("Called Done, removing temp files")
DeleteTempFiles() DeleteTempFiles()
Dispose() 'Dispose()
End Sub End Sub
''' <summary> ''' <summary>
@ -79,16 +81,17 @@ Public Class DocumentViewer
Exit Sub Exit Sub
End If End If
'_logger.Info("Resetting Viewer.") GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
'GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
'GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
_logger.Info("Loading File.") _logger.Info("Loading File {0}", filepath)
DoLoadFile(filepath) DoLoadFile(filepath)
'_logger.Info("Updating UI.") If _view_only Then
'statusLabel.Text = _docPath statusLabel.Text = _docPath
' UpdateMainUi() End If
UpdateMainUi()
End Sub End Sub
Public Sub CloseDocument() Public Sub CloseDocument()
@ -132,20 +135,11 @@ Public Class DocumentViewer
RichEditControl1.Visible = True RichEditControl1.Visible = True
RichEditControl1.Dock = DockStyle.Fill RichEditControl1.Dock = DockStyle.Fill
Case ".xls"
Using oConverter As GdPictureDocumentConverter = New GdPictureDocumentConverter()
' Loading the source document.
oConverter.LoadFromFile(FilePath, GdPicture14.DocumentFormat.DocumentFormatXLSX)
' Saving as the PDF document.
oConverter.SaveAsPDF("output.pdf", PdfConformance.PDF1_5)
End Using
_docPath = "output.pdf"
GdViewer.DisplayFromFile(_docPath)
Case Else Case Else
_docPath = FilePath _docPath = FilePath
_logger.Info("Displaying file {0}", _docPath)
GdViewer.DisplayFromFile(_docPath) GdViewer.DisplayFromFile(_docPath)
RichEditControl1.Visible = False RichEditControl1.Visible = False
@ -157,8 +151,6 @@ Public Class DocumentViewer
End Sub End Sub
Private Sub btnOpen_Click(sender As Object, e As EventArgs) Private Sub btnOpen_Click(sender As Object, e As EventArgs)
CloseDocument()
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
@ -189,19 +181,19 @@ Public Class DocumentViewer
Return result Return result
End Function End Function
Public Sub RightOnlyView(oValueRight As Boolean) Public Sub RightOnlyView(ValueRight As Boolean)
If oValueRight = True Then If ValueRight Then
btnPrint.Visible = False btnPrint.Visible = False
Else Else
btnPrint.Visible = True btnPrint.Visible = True
End If End If
_view_only = ValueRight
End Sub End Sub
Private Sub UpdateMainUi() Private Sub UpdateMainUi()
Exit Sub Exit Sub
If GdViewer.PageCount = 0 Then If GdViewer.PageCount = 0 Then
'btnOpen.Enabled = True
btnPrint.Enabled = False btnPrint.Enabled = False
btnFirstPage.Enabled = False btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False btnPreviousPage.Enabled = False
@ -222,7 +214,6 @@ Public Class DocumentViewer
lblPageCount.Text = "/ 0" lblPageCount.Text = "/ 0"
cbZoom.SelectedIndex = -1 cbZoom.SelectedIndex = -1
Else Else
'btnOpen.Enabled = False
btnPrint.Enabled = True btnPrint.Enabled = True
btnFirstPage.Enabled = True btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True btnPreviousPage.Enabled = True
@ -544,7 +535,8 @@ Public Class DocumentViewer
GdViewer.Focus() GdViewer.Focus()
End Sub End Sub
Private Sub DocumentViewer_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed 'Private Sub DocumentViewer_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
GdViewer.Dispose() ' _logger.Warn("Disposing GDViewer")
End Sub ' GdViewer.Dispose()
'End Sub
End Class End Class