Files can now be viewed using a double click

Improvements to bitstream hex viewer

Author: Digitoxin1

DiskImageTool/Bitstream/IBM_MFM/IBM_MFM_Tools.vb

@@ -48,6 +48,7 @@
             Dim Aligned As Boolean
             Dim Gap4A As UShort
             Dim Gap1 As UShort
+            Dim Encoding As String
         End Structure
 
         Module IBM_MFM_Tools
@@ -230,6 +231,13 @@
                 RegionData.Aligned = True
                 RegionData.Gap4A = 0
                 RegionData.Gap1 = 0
+                If TrackType = BitstreamTrackType.MFM Then
+                    RegionData.Encoding = "MFM"
+                ElseIf TrackType = BitstreamTrackType.FM Then
+                    RegionData.Encoding = "FM"
+                Else
+                    RegionData.Encoding = ""
+                End If
 
                 Dim Pattern As BitArray
                 If TrackType = BitstreamTrackType.MFM Then

DiskImageTool/Forms/HexViewRawForm.vb

@@ -30,6 +30,7 @@ Public Class HexViewRawForm
     Private _LabelBitOffsetAligned As ToolStripLabel
     Private _LabelGap4A As ToolStripLabel
     Private _LabelGap1 As ToolStripLabel
+    Private _labelEncoding As ToolStripLabel
     Private _LastSearch As HexSearch
     Private _RegionData As RegionData
     Private _RegionMap() As BitstreamRegion
@@ -516,18 +517,24 @@ Public Class HexViewRawForm
     End Sub
 
     Private Sub InitializeToolstripLabels()
+        _labelEncoding = New ToolStripLabel("") With {
+           .Alignment = ToolStripItemAlignment.Right,
+           .Padding = New Padding(10, 0, 0, 0)
+        }
+
         _LabelGap4A = New ToolStripLabel("Gap 4A: 0") With {
            .Alignment = ToolStripItemAlignment.Right,
-           .Padding = New Padding(12, 0, 0, 0)
+           .Padding = New Padding(10, 0, 0, 0)
         }
 
         _LabelGap1 = New ToolStripLabel("Gap 1: 0") With {
            .Alignment = ToolStripItemAlignment.Right,
-           .Padding = New Padding(12, 0, 0, 0)
+           .Padding = New Padding(10, 0, 0, 0)
         }
 
         ToolStripMain.Items.Add(_LabelGap1)
         ToolStripMain.Items.Add(_LabelGap4A)
+        ToolStripMain.Items.Add(_labelEncoding)
     End Sub
 
     Private Sub InitializeTrackNavigator()
@@ -626,6 +633,10 @@ Public Class HexViewRawForm
 
         _LabelGap4A.Text = "Gap 4A: " & RegionData.Gap4A
         _LabelGap1.Text = "Gap 1: " & RegionData.Gap1
+        _labelEncoding.Text = "Encoding: " & RegionData.Encoding
+        _labelEncoding.Visible = RegionData.Encoding.Length > 0
+        _LabelGap4A.Visible = RegionData.Encoding = "MFM"
+        _LabelGap1.Visible = RegionData.Encoding = "MFM"
 
         RefreshSize()
         InitRegionMap()

DiskImageTool/MainForm.vb

@@ -2461,6 +2461,21 @@ Public Class MainForm
         End If
     End Sub
 
+    Private Function IsBinaryData(data As Byte()) As Boolean
+        Dim allowedControlChars As Byte() = {7, 9, 10, 13, 26}
+        Dim maxBytesToCheck As Integer = Math.Min(4096, data.Length)
+
+        For i As Integer = 0 To maxBytesToCheck - 1
+            Dim b As Byte = data(i)
+
+            If (b < 32 AndAlso Not allowedControlChars.Contains(b)) OrElse b = 0 Then
+                Return True
+            End If
+        Next
+
+        Return False
+    End Function
+
     Private Sub ItemFiltersRemove(ImageData As ImageData)
         ImageFiltersScan(Nothing, ImageData, True)
     End Sub
@@ -4185,6 +4200,23 @@ Public Class MainForm
         e.Cancel = True
     End Sub
 
+    Private Sub ListViewFiles_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListViewFiles.MouseDoubleClick
+        If e.Button = MouseButtons.Left Then
+            If ListViewFiles.SelectedItems.Count = 1 Then
+                Dim FileData As FileData = ListViewFiles.SelectedItems(0).Tag
+                If FileData IsNot Nothing Then
+                    If FileData.DirectoryEntry.IsValidFile And FileData.DirectoryEntry.FileSize > 0 Then
+                        If IsBinaryData(FileData.DirectoryEntry.GetContent) Then
+                            HexDisplayDirectoryEntry(_CurrentImage, FileData.DirectoryEntry)
+                        Else
+                            DirectoryEntryDisplayText(FileData.DirectoryEntry)
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+
     Private Sub ListViewFiles_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListViewFiles.DrawColumnHeader
         If e.ColumnIndex = 0 Then
             'Dim Offset As Integer