From fdd7ed40c0c077e0125ab975ff7f7fd7d589601d Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Thu, 4 Jun 2020 16:32:48 +0200
Subject: [PATCH] MS DocView Done

---
 Controls.DocumentViewer/DocumentViewer.vb     | 24 ++++++++++++++++++-
 .../My Project/AssemblyInfo.vb                |  4 ++--
 2 files changed, 25 insertions(+), 3 deletions(-)

diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb
index 694540c2..e0cd5783 100644
--- a/Controls.DocumentViewer/DocumentViewer.vb
+++ b/Controls.DocumentViewer/DocumentViewer.vb
@@ -29,6 +29,7 @@ Public Class DocumentViewer
     Private _logger As Logger
 
     Private _hide_file_info_from_user As Boolean = False
+    Private _FilePath As String
 
     ' List of all created temp files when converting msg files
     Private _TempFiles As New List(Of String)
@@ -72,6 +73,7 @@ Public Class DocumentViewer
     ''' </summary>
     Public Sub Done()
         DeleteTempFiles()
+        FreeFile()
     End Sub
 
     ''' <summary>
@@ -87,7 +89,7 @@ Public Class DocumentViewer
         _logger.Info("Loading File {0}", FilePath)
 
         DoLoadFile(FilePath)
-
+        _FilePath = FilePath
         UpdateMainUi()
     End Sub
 
@@ -121,7 +123,27 @@ Public Class DocumentViewer
         Next
         _TempFiles.Clear()
     End Sub
+    Private Sub FreeFile()
+        Try
+            Dim oFileInfo = New IO.FileInfo(_FilePath)
+            Dim oExtension As String = oFileInfo.Extension.ToUpper
+            Select Case oExtension.ToUpper
+                Case ".MSG"
+
+                    RichEditControl1.CreateNewDocument()
+
 
+                Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
+                    RichEditControl1.CreateNewDocument()
+                Case ".XLSX", ".XLS", "CSV"
+                    SpreadsheetControl1.CreateNewDocument()
+                Case Else
+                    GdViewer.CloseDocument()
+            End Select
+        Catch ex As Exception
+            _logger.Warn($"Unexpected error in FreeFile: {ex.Message}")
+        End Try
+    End Sub
     Private Sub DoLoadFile(FilePath As String)
         Try
             Dim oFileInfo = New IO.FileInfo(FilePath)
diff --git a/Controls.DocumentViewer/My Project/AssemblyInfo.vb b/Controls.DocumentViewer/My Project/AssemblyInfo.vb
index 4b20ec8f..376da049 100644
--- a/Controls.DocumentViewer/My Project/AssemblyInfo.vb	
+++ b/Controls.DocumentViewer/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.3.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.0.4.0")>
+<Assembly: AssemblyFileVersion("1.4.0.0")>