Verbesserungen an Viewer-Logik und UI-Anpassungen

Die Größe und Position mehrerer UI-Elemente wurden angepasst, darunter `barDockControlTop`, `barDockControlLeft`, `barDockControlRight`, `MyGDPViewer` und `lbFileNotLoaded`. Ein neuer SVG-Button (`btnSearch2.ImageOptions.SvgImage`) wurde hinzugefügt, während ein alter entfernt wurde.

Die Methode `LoadFile_FromStream` setzt nun den Zustand des Viewers zurück, und die Logik in `SetViewerMode` wurde korrigiert, um `.CSV`-Dateien korrekt zu behandeln. Der Viewer-Modus (`_ViewerMode`) wurde optimiert, insbesondere für Richtext- und Excel-Dateien.

Die Assembly-Version wurde von `2.7.2.0` auf `2.7.3.0` aktualisiert.
This commit is contained in:
Developer01
2026-09-25 13:59:51 +02:00
parent 938589db07
commit 02b8e96c6b
4 changed files with 44 additions and 38 deletions

View File

@@ -180,6 +180,10 @@ Public Class DocumentViewer
Exit Sub
End If
' Reset state from previous file
_ViewOverride = ""
_ViewerMode = ViewerMode.GDPicture ' Default mode
_FilePath = FilePath
_FileLoadMode = FileLoadMode.File
_FileInfo = New FileInfo(FilePath)
@@ -196,7 +200,9 @@ Public Class DocumentViewer
Public Sub LoadFile_FromStream(FileName As String, Stream As Stream)
FileLoaded = False
' Reset state from previous file
_ViewOverride = ""
_ViewerMode = ViewerMode.GDPicture ' Default mode
Dim oExtension As String = FileName.Substring(FileName.LastIndexOf("."))
@@ -204,9 +210,9 @@ Public Class DocumentViewer
_FileLoadMode = FileLoadMode.Stream
_logger.Info("Loading file [{0}] from Stream", FileName)
SetViewerMode(oExtension) ' Erst ViewerMode setzen ...
SetViewerMode(oExtension)
FileLoaded = DoLoadFileExtension(Stream, oExtension)
UpdateMainUi() ' ... dann UI aktualisieren
UpdateMainUi()
End Sub
''' <summary>
@@ -522,7 +528,7 @@ Public Class DocumentViewer
_ViewerMode = ViewerMode.Richtext
Else
Select Case Extension.ToUpper
Case "CSV"
Case ".CSV"
_ViewerMode = ViewerMode.Excel
Case ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
_ViewerMode = ViewerMode.Richtext
@@ -672,10 +678,10 @@ Public Class DocumentViewer
lblInfo.Visible = False
' Determine viewer mode and load file
If ViewOverride = "Richtext" Then
If ViewOverride = "Richtext" OrElse _ViewerMode = ViewerMode.Richtext Then
_logger.Info("Loading Richtext file: {0}", FilePath)
Return LoadRichtextFile(FilePath, oExtension)
ElseIf oExtension = ".CSV" Or (oExtension = ".XLSX" AndAlso oFileInfo.Length > 15000) Then
ElseIf _ViewerMode = ViewerMode.Excel OrElse oExtension = ".CSV" OrElse (oExtension = ".XLSX" AndAlso oFileInfo.Length > 15000) Then
_logger.Debug("Loading Spreadsheet file: {0}", FilePath)
Return LoadSpreadsheetFile(FilePath, oExtension)
Else