AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "MS Logging"

Browse Source 
This reverts commit 0fe82815b87eb7ca6240ed828cd2cbd384d0f8a9.
This commit is contained in:
Developer01 2025-02-24 08:21:56 +01:00
parent 0fe82815b8
commit d0a638cf2d
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Controls.DocumentViewer/DocumentViewer.vb
View File

@ -489,7 +489,6 @@ Public Class DocumentViewer
End Sub
Private Function DoLoadFile(FilePath As String) As Boolean
Try
_logger.Debug($"DoLoadFile - Try loading file: {FilePath}")
Dim oFileInfo = New FileInfo(FilePath)
Dim oExtension As String = oFileInfo.Extension.ToUpper
@ -500,7 +499,7 @@ Public Class DocumentViewer
SpreadsheetControl1.Visible = False
SpreadsheetControl1.Dock = DockStyle.None
_logger.Debug($"DoLoadFile - oExtension: {oExtension}")
Select Case oExtension.ToUpper
Case ".MSG"
Dim oEmlPath As String = _email.Convert_ToEml(FilePath)
@ -524,13 +523,12 @@ Public Class DocumentViewer
SpreadsheetControl1.Dock = DockStyle.Fill
Case Else
_logger.Debug($"DoLoadFile - Else-Teil - GDViewer will be used...")
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
GdViewer.ForceTemporaryMode = True
GdViewer.AnnotationDropShadow = True
Dim oGDPictureStatus As GdPictureStatus = GdViewer.DisplayFromFile(FilePath)
If oGDPictureStatus <> GdPictureStatus.OK Then
If GdViewer.DisplayFromFile(FilePath) <> GdPictureStatus.OK Then
Dim oFileName = IO.Path.GetFileName(FilePath)
lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName)
lbFileNotLoaded.Visible = True
@ -542,7 +540,6 @@ Public Class DocumentViewer
Return True
Catch ex As Exception
_logger.Warn($"Unexpected Error in DoLoadFile - ErrorMessage: {ex.Message}")
_logger.Error(ex)
Return False
End Try

4
Controls.DocumentViewer/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.8.0")>
<Assembly: AssemblyFileVersion("1.9.8.0")>
<Assembly: AssemblyVersion("1.9.6.0")>
<Assembly: AssemblyFileVersion("1.9.6.0")>