DocViewer isnothing

2025-12-01 16:37:27 +01:00
parent 07332a4990
commit 4085d05368
3 changed files with 51 additions and 11 deletions
--- a/Controls.DocumentViewer/DocumentViewer.vb
+++ b/Controls.DocumentViewer/DocumentViewer.vb
@@ -606,14 +606,20 @@ Public Class DocumentViewer
    End Function

    Private Sub FitToPage()
-        GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
+        If Not GdViewer Is Nothing Then
+            GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
+        End If
    End Sub

    Private Sub FitToWidth()
-        GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+        If Not GdViewer Is Nothing Then
+            GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+        End If
+
    End Sub

    Private Function DoLoadFile(Stream As Stream, Extension As String) As Boolean
+
        Try

            SpreadsheetControl1.Visible = False