try to view as html

Author: xieguigang

src/viewers/HDSViewer/DataViewer/FormHtmlViewer.Designer.vb

@@ -1,17 +1,17 @@
 <?xml version="1.0" encoding="utf-8"?>
 <root>
-  <!-- 
-    Microsoft ResX Schema 
-    
+  <!--
+    Microsoft ResX Schema
+
     Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
+
+    The primary goals of this format is to allow a simple XML format
+    that is mostly human readable. The generation and parsing of the
+    various data types are done through the TypeConverter classes
     associated with the data types.
-    
+
     Example:
-    
+
     ... ado.net/XML headers & schema ...
     <resheader name="resmimetype">text/microsoft-resx</resheader>
     <resheader name="version">2.0</resheader>
@@ -26,36 +26,36 @@
         <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
         <comment>This is a comment</comment>
     </data>
-                
-    There are any number of "resheader" rows that contain simple 
+
+    There are any number of "resheader" rows that contain simple
     name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
+
+    Each data row contains a name, and value. The row also contains a
+    type or mimetype. Type corresponds to a .NET class that support
+    text/value conversion through the TypeConverter architecture.
+    Classes that don't support this are serialized and stored with the
     mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
+
+    The mimetype is used for serialized objects, and tells the
+    ResXResourceReader how to depersist the object. This is currently not
     extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
+
+    Note - application/x-microsoft.net.object.binary.base64 is the format
+    that the ResXResourceWriter will generate, however the reader can
     read any of the formats listed below.
-    
+
     mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
+    value   : The object must be serialized with
             : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
             : and then encoded with base64 encoding.
-    
+
     mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
+    value   : The object must be serialized with
             : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
             : and then encoded with base64 encoding.
 
     mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
+    value   : The object must be serialized into a byte array
             : using a System.ComponentModel.TypeConverter
             : and then encoded with base64 encoding.
     -->
@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="VS2015LightTheme1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>201, 17</value>
+  </metadata>
 </root>

src/viewers/HDSViewer/DataViewer/FormHtmlViewer.resx

@@ -1,3 +1,13 @@
-Public Class FormHtmlViewer
+Imports Galaxy.Workbench
 
+Public Class FormHtmlViewer
+
+    Private Async Sub FormHtmlViewer_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Await WebViewLoader.Init(WebView21)
+    End Sub
+
+    Public Function ViewHtml(html As String) As FormHtmlViewer
+        Call WebViewLoader.NavigateToLargeString(WebView21, html)
+        Return Me
+    End Function
 End Class

src/viewers/HDSViewer/DataViewer/FormHtmlViewer.vb

@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="VS2015LightTheme1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>201, 17</value>
+  </metadata>
 </root>

src/viewers/HDSViewer/DataViewer/FormXMLViewer.Designer.vb

@@ -18,6 +18,7 @@ Public Class FormExplorer
         Call ApplyVsTheme(ToolStrip1, packTree.GetContextMenu)
         Call packTree.BringToFront()
         Call packTree.AddContextMenuItem("View As PlainText", "view_text")
+        Call packTree.AddContextMenuItem("View As Html", "view_html")
     End Sub
 
     Public Sub LoadTree()
@@ -74,6 +75,7 @@ Public Class FormExplorer
             Case "xml"
                 Call CommonRuntime.ShowDocument(Of FormXMLViewer)(, file.fileName).RenderXml(pack.LoadStream(file))
             Case "html"
+                Call CommonRuntime.ShowDocument(Of FormHtmlViewer)(, file.fileName).ViewHtml(pack.ReadText(file))
             Case "csv"
 
             Case "rtf"
@@ -93,7 +95,8 @@ Public Class FormExplorer
         Dim pack As StreamPack = viewer.pack
 
         Select Case sender.Name
-            Case "view_text" : Call CommonRuntime.ShowDocument(Of FormTextViewer)(, file.fileName).ShowTextData(Pack.ReadText(file))
+            Case "view_text" : Call CommonRuntime.ShowDocument(Of FormTextViewer)(, file.fileName).ShowTextData(pack.ReadText(file))
+            Case "view_html" : Call CommonRuntime.ShowDocument(Of FormHtmlViewer)(, file.fileName).ViewHtml(pack.ReadText(file))
         End Select
     End Sub