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

Unterstützte Dateiformate werden nun von GDPicture angezeigt. Nicht unterstützte (.Csv) von einem geeigneten Viewer. - DocumentViewer

Browse Source
This commit is contained in:
OlgunR
2025-06-02 15:27:36 +02:00
parent f4f494adb5
commit c0b5ae741d
2 changed files with 5 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Controls.DocumentViewer/DocumentViewer.vb
View File

@@ -461,11 +461,7 @@ Public Class DocumentViewer
Private Sub SetViewerMode(Extension As String)
Select Case Extension.ToUpper
Case ".MSG"
_ViewerMode = ViewerMode.RichText
Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
_ViewerMode = ViewerMode.RichText
Case ".XLSX", ".XLS", "CSV"
Case "CSV"
_ViewerMode = ViewerMode.Excel
Case Else
_ViewerMode = ViewerMode.GDPicture
@@ -509,18 +505,7 @@ Public Class DocumentViewer
SpreadsheetControl1.Dock = DockStyle.None
Select Case oExtension.ToUpper
Case ".MSG"
Dim oEmlPath As String = _email.Convert_ToEml(FilePath)
_TempFiles.Add(oEmlPath)
DoLoadFile(oEmlPath)
Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension))
RichEditControl1.Visible = True
RichEditControl1.Dock = DockStyle.Fill
Case ".XLSX", ".XLS", ".CSV"
Case ".CSV"
Dim oFormat = GetSpreadsheetFormat(oExtension)
SpreadsheetControl1.LoadDocument(FilePath, oFormat)