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

Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Browse Source
This commit is contained in:
OlgunR
2025-08-12 10:24:24 +02:00
parent 46b120d3bd 74049888b6
commit 92bc4c37c7
26 changed files with 368 additions and 276 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Controls.DocumentViewer/DocumentViewer.vb
View File

@@ -23,6 +23,7 @@ Public Class DocumentViewer
Private Enum ViewerMode
GDPicture
Excel
Richtext
End Enum
Private Enum FileLoadMode
@@ -124,7 +125,6 @@ Public Class DocumentViewer
''' </summary>
Public Sub LoadFile(FilePath As String)
FileLoaded = False
If _licenseKey = String.Empty Then
_logger.Warn("License key was not provided. File {0} not loaded.", FilePath)
Exit Sub
@@ -139,7 +139,7 @@ Public Class DocumentViewer
_FileLoadMode = FileLoadMode.File
_FileInfo = New FileInfo(FilePath)
_logger.Info("Loading File [{0}] from Filesystem", FilePath)
_logger.Info("Loading file [{0}] from Filesystem", FilePath)
FileLoaded = DoLoadFile(FilePath)
SetViewerMode(_FileInfo.Extension)
@@ -441,6 +441,8 @@ Public Class DocumentViewer
Select Case Extension.ToUpper
Case "CSV"
_ViewerMode = ViewerMode.Excel
Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
_ViewerMode = ViewerMode.RichText
Case Else
_ViewerMode = ViewerMode.GDPicture
End Select
@@ -471,7 +473,9 @@ Public Class DocumentViewer
lbFileNotLoaded.Visible = False
SpreadsheetControl1.Visible = False
RichEditControl1.Visible = False
SpreadsheetControl1.Dock = DockStyle.None
RichEditControl1.Dock = DockStyle.None
Select Case oExtension.ToUpper
Case ".CSV"
@@ -483,7 +487,11 @@ Public Class DocumentViewer
SpreadsheetControl1.Visible = True
SpreadsheetControl1.Dock = DockStyle.Fill
Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension))
RichEditControl1.Visible = True
RichEditControl1.Dock = DockStyle.Fill
Case Else
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter