DocumentViewer back to richtextedit

Controls.DocumentViewer/DocumentViewer.Designer.vb

@@ -63,6 +63,7 @@ Partial Class DocumentViewer
         Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl()
         Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
         Me.lbFileNotLoaded = New DevExpress.XtraEditors.LabelControl()
+        Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl()
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -450,10 +451,20 @@ Partial Class DocumentViewer
         Me.lbFileNotLoaded.Text = "Die Datei konnte nicht geladen werden"
         Me.lbFileNotLoaded.Visible = False
         '
+        'RichEditControl1
+        '
+        Me.RichEditControl1.Location = New System.Drawing.Point(571, 238)
+        Me.RichEditControl1.MenuManager = Me.BarManager1
+        Me.RichEditControl1.Name = "RichEditControl1"
+        Me.RichEditControl1.Size = New System.Drawing.Size(400, 200)
+        Me.RichEditControl1.TabIndex = 5
+        Me.RichEditControl1.Visible = False
+        '
         'DocumentViewer
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.RichEditControl1)
         Me.Controls.Add(Me.lbFileNotLoaded)
         Me.Controls.Add(Me.SpreadsheetControl1)
         Me.Controls.Add(Me.GdViewer)
@@ -514,4 +525,5 @@ Partial Class DocumentViewer
     Friend WithEvents lbFileNotLoaded As DevExpress.XtraEditors.LabelControl
     Friend WithEvents btnSearch As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents btnSearch2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl
 End Class

Controls.DocumentViewer/DocumentViewer.vb

@@ -23,6 +23,7 @@ Public Class DocumentViewer
     Private Enum ViewerMode
         GDPicture
         Excel
+        Richtext
     End Enum
 
     Private Enum FileLoadMode
@@ -124,8 +125,6 @@ Public Class DocumentViewer
     ''' </summary>
     Public Sub LoadFile(FilePath As String)
         FileLoaded = False
-        we
-
         If _licenseKey = String.Empty Then
             _logger.Warn("License key was not provided. File {0} not loaded.", FilePath)
             Exit Sub
@@ -442,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
@@ -472,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"
@@ -484,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

Controls.DocumentViewer/My Project/AssemblyInfo.vb

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