Added a new option to toggle display of the title section of the side panel.

Made some improvements to the text viewer for future use.
Database updates

Author: Digitoxin1

DiskImageTool/App.config

@@ -34,6 +34,9 @@
             <setting name="CheckUpdateOnStartup" serializeAs="String">
                 <value>True</value>
             </setting>
+            <setting name="DisplayTitles" serializeAs="String">
+                <value>True</value>
+            </setting>
         </DiskImageTool.My.MySettings>
     </userSettings>
   <runtime>

DiskImageTool/DiskImage/DirectoryEntry.vb

@@ -351,7 +351,12 @@
 
             Dim UseTransaction As Boolean = _Disk.BeginTransaction
 
-            'Load file into buffer, padding with empty space if needed            
+
+            'Load file into buffer, padding with empty space if needed
+            'Dim NewFileSize = Math.Ceiling(FileSize / ClusterSize) * ClusterSize
+            'If NewFileSize > Me.FileSize Then
+            '    NewFileSize = Me.FileSize
+            'End If
             Dim FileBuffer = ReadFileIntoBuffer(FileInfo, FileSize, FillChar)
 
             Me.FileSize = FileSize

DiskImageTool/FloppyDB.vb

@@ -21,7 +21,7 @@ Public Class FloppyDB
     End Sub
 
     Public Sub AddTile(FileData As FileNameData, Media As String, MD5 As String)
-        If Not FileData.Cracked And FileData.StatusString <> "MM" Then
+        If Not FileData.Cracked And FileData.StatusString <> "M" Then
             If _NewXMLDoc Is Nothing Then
                 _NewXMLDoc = LoadXML(DB_FILE_NAME_NEW)
             End If

DiskImageTool/FloppyDB.xml

@@ -117,4 +117,19 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="TextBox1.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Panel1.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="BtnSave.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="BtnClose.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

DiskImageTool/Forms/TextViewForm.Designer.vb

@@ -1,6 +1,7 @@
 Public Class TextViewForm
+    Private m_SaveFileName As String
 
-    Public Sub New(Caption As String, Content As String)
+    Public Sub New(Caption As String, Content As String, Editable As Boolean, EnableSave As Boolean, Optional SaveFileName As String = "")
 
         ' This call is required by the designer.
         InitializeComponent()
@@ -9,11 +10,31 @@
         Me.Text = Caption
         TextBox1.Text = Content
         TextBox1.SelectionStart = 0
+        TextBox1.ReadOnly = Not Editable
+
+        m_SaveFileName = SaveFileName
+
+        If Not EnableSave Then
+            Panel1.Visible = False
+            TextBox1.Height = Me.ClientSize.Height - TextBox1.Top * 2
+        End If
     End Sub
 
     Private Sub TextViewForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
         If e.KeyCode = Keys.Escape Then
             Me.Close()
         End If
     End Sub
+
+    Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
+        Dim Dialog = New SaveFileDialog With {
+           .FileName = m_SaveFileName,
+           .DefaultExt = "txt",
+           .Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
+        }
+
+        If Dialog.ShowDialog = DialogResult.OK Then
+            IO.File.WriteAllText(Dialog.FileName, TextBox1.Text)
+        End If
+    End Sub
 End Class

DiskImageTool/Forms/TextViewForm.resx

@@ -371,7 +371,7 @@ Public Class MainForm
             Content = Encoding.UTF7.GetString(Stream.GetBuffer)
         End Using
 
-        Dim frmTextView = New TextViewForm(Caption, Content)
+        Dim frmTextView = New TextViewForm(Caption, Content, False, False)
         frmTextView.ShowDialog()
     End Sub
 
@@ -908,7 +908,7 @@ Public Class MainForm
 
         Dim Content = ImageCompare.CompareImages(ImageData1, ImageData2)
 
-        Dim frmTextView = New TextViewForm("Image Comparison", Content)
+        Dim frmTextView = New TextViewForm("Image Comparison", Content, False, False)
         frmTextView.ShowDialog()
     End Sub
 
@@ -1152,7 +1152,7 @@ Public Class MainForm
             Exit Sub
         End Try
 
-        Dim frmTextView = New TextViewForm("Change Log", ChangeLogString)
+        Dim frmTextView = New TextViewForm("Change Log", ChangeLogString, False, False)
         frmTextView.ShowDialog()
     End Sub
 
@@ -1595,7 +1595,7 @@ Public Class MainForm
         Next
         TrackLayout.AppendLine(FirstTrack & "-" & Track - 1 & ":" & PrevTrackString)
 
-        Dim frmTextView = New TextViewForm("Tracklayout", TrackLayout.ToString)
+        Dim frmTextView = New TextViewForm("Tracklayout", TrackLayout.ToString, True, True, "tracklayout.txt")
         frmTextView.ShowDialog()
     End Sub
 
@@ -3365,6 +3365,7 @@ Public Class MainForm
         MenuOptionsCreateBackup.Checked = My.Settings.CreateBackups
         MenuOptionsCheckUpdate.Checked = My.Settings.CheckUpdateOnStartup
         MenuOptionsDragDrop.Checked = My.Settings.DragAndDrop
+        MenuOptionsDisplayTitles.Checked = My.Settings.DisplayTitles
 
         RefreshDiskButtons(Nothing)
 
@@ -4343,6 +4344,14 @@ Public Class MainForm
         My.Settings.DragAndDrop = MenuOptionsDragDrop.Checked
     End Sub
 
+    Private Sub MenuOptionsDisplayTitles_CheckStateChanged(sender As Object, e As EventArgs) Handles MenuOptionsDisplayTitles.CheckStateChanged
+        My.Settings.DisplayTitles = MenuOptionsDisplayTitles.Checked
+
+        If _CurrentImage IsNot Nothing Then
+            PopulateSummary(_CurrentImage)
+        End If
+    End Sub
+
     Private Sub MenuOptionsExportUnknown_CheckStateChanged(sender As Object, e As EventArgs) Handles MenuOptionsExportUnknown.CheckStateChanged
         _ExportUnknownImages = MenuOptionsExportUnknown.Checked
     End Sub