Adjusted summary panel size and translations to mitigate truncated text.

Fixed some display issues when using a language other than English.

Author: Digitoxin1

DiskImageTool/Controls/TwoColumnTooltip.vb

@@ -0,0 +1,70 @@
+Public Class TwoColumnToolTip
+	Inherits ToolTip
+
+	Private Const PADDING As Integer = 4
+	Private Const GAP As Integer = 8
+	Private _CachedMaxLeftWidth As Integer = 0
+
+	Public Sub New()
+		MyBase.New()
+		Me.OwnerDraw = True
+		AddHandler Me.Popup, AddressOf OnPopup
+		AddHandler Me.Draw, AddressOf OnDraw
+	End Sub
+
+	Private Sub OnPopup(sender As Object, e As PopupEventArgs)
+		Dim tooltipText As String = Me.GetToolTip(e.AssociatedControl)
+		Dim font As Font = SystemFonts.StatusFont
+
+		Dim lines = tooltipText.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
+
+		Dim maxLeftWidth = 0
+		Dim maxRightWidth = 0
+		Dim totalHeight = 0
+
+		Using g = e.AssociatedControl.CreateGraphics()
+			For Each line In lines
+				Dim parts = line.Split({vbTab}, 2, StringSplitOptions.None)
+				Dim left = If(parts.Length > 0, parts(0), "")
+				Dim right = If(parts.Length > 1, parts(1), "")
+				Dim szLeft = TextRenderer.MeasureText(g, left, font)
+				Dim szRight = TextRenderer.MeasureText(g, right, font)
+
+				maxLeftWidth = Math.Max(maxLeftWidth, szLeft.Width)
+				maxRightWidth = Math.Max(maxRightWidth, szRight.Width)
+				totalHeight += Math.Max(szLeft.Height, szRight.Height)
+			Next
+		End Using
+
+		e.ToolTipSize = New Size(maxLeftWidth + maxRightWidth + PADDING * 2 + GAP, totalHeight + PADDING * 2)
+
+		_CachedMaxLeftWidth = maxLeftWidth
+	End Sub
+
+	Private Sub OnDraw(sender As Object, e As DrawToolTipEventArgs)
+		Dim font = e.Font
+		Dim g = e.Graphics
+		Dim tooltipText = e.ToolTipText
+
+		e.Graphics.Clear(SystemColors.Window)
+
+		Using borderPen As New Pen(Color.Gray)
+			g.DrawRectangle(borderPen, New Rectangle(0, 0, e.Bounds.Width - 1, e.Bounds.Height - 1))
+		End Using
+
+		Dim y = PADDING
+
+		Dim lines = tooltipText.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
+
+		For Each line In lines
+			Dim parts = line.Split({vbTab}, 2, StringSplitOptions.None)
+			Dim left = If(parts.Length > 0, parts(0), "")
+			Dim right = If(parts.Length > 1, parts(1), "")
+
+			Dim sz = TextRenderer.MeasureText(g, left, font)
+			TextRenderer.DrawText(g, left, font, New Point(PADDING, y), SystemColors.InfoText)
+			TextRenderer.DrawText(g, right, font, New Point(PADDING + _CachedMaxLeftWidth + GAP, y), SystemColors.InfoText)
+			y += sz.Height
+		Next
+	End Sub
+End Class

DiskImageTool/DiskImageTool.vbproj

@@ -30,7 +30,7 @@
     <TargetCulture>en-US</TargetCulture>
     <ProductName>DiskImageTool</ProductName>
     <PublisherName>Digitoxin</PublisherName>
-    <ApplicationRevision>1</ApplicationRevision>
+    <ApplicationRevision>2</ApplicationRevision>
     <ApplicationVersion>2.17.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
@@ -133,6 +133,9 @@
     <Compile Include="Controls\ToolStripSpringTextBox.vb">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="Controls\TwoColumnTooltip.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="DiskImage\AddFileOptions.vb" />
     <Compile Include="DiskImage\Modules\EnumDescriptions.vb" />
     <Compile Include="DiskImage\MappedFloppyImage.vb" />
@@ -604,6 +607,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="Forms\ImportFileForm.resx">
       <DependentUpon>ImportFileForm.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="Forms\ItemScanForm.resx">
       <DependentUpon>ItemScanForm.vb</DependentUpon>

DiskImageTool/Forms/HexViewRawForm.vb

@@ -13,7 +13,7 @@ Public Class HexViewRawForm
     Private Const PADDING_ROWS As Integer = 6
     Private Const SECTOR_HEIGHT As Integer = 16
     Private Const SECTOR_WIDTH As Integer = 24
-    Private ReadOnly _ToolTip As ToolTip
+    Private ReadOnly _ToolTip As TwoColumnToolTip
     Private _AllTracks As Boolean
     Private _Bitstream As BitArray
     Private _CachedSelectedLength As Long = -1
@@ -48,7 +48,7 @@ Public Class HexViewRawForm
         InitializeComponent()
 
         ' Add any initialization after the InitializeComponent() call.
-        _ToolTip = New ToolTip()
+        _ToolTip = New TwoColumnToolTip()
         _FloppyImage = Disk.Image
         _SectorsPerTrack = BuildBPB(Disk.DiskFormat).SectorsPerTrack
         _Track = Track
@@ -1397,21 +1397,21 @@ Public Class HexViewRawForm
 
         If SectorIndex > -1 And SectorIndex < _RegionData.Sectors.Count Then
             Dim Sector = _RegionData.Sectors(SectorIndex)
-            TooltipText = FormatLabelPair(My.Resources.Label_SectorId, vbTab & vbTab & Sector.SectorId)
-            TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Label_Size, vbTab & vbTab & vbTab & Sector.DataLength)
+            TooltipText = FormatLabelPair(My.Resources.Label_SectorId, vbTab & Sector.SectorId)
+            TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Label_Size, vbTab & Sector.DataLength)
 
             If Sector.Track <> _Track Then
-                TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Label_Track, vbTab & vbTab & vbTab & Sector.Track)
+                TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Label_Track, vbTab & Sector.Track)
             End If
 
             If Sector.Side <> _Side Then
-                TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Label_Side, vbTab & vbTab & vbTab & Sector.Side)
+                TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Label_Side, vbTab & Sector.Side)
             End If
 
             TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Bitstream_AddressChecksum, vbTab & If(Sector.IDAMChecksumValid, My.Resources.Label_Valid, My.Resources.Label_Invalid))
 
             If Sector.HasData Then
-                TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Bitstream_DataChecksum, vbTab & vbTab & If(Sector.DataChecksumValid, My.Resources.Label_Valid, My.Resources.Label_Invalid))
+                TooltipText &= Environment.NewLine & FormatLabelPair(My.Resources.Bitstream_DataChecksum, vbTab & If(Sector.DataChecksumValid, My.Resources.Label_Valid, My.Resources.Label_Invalid))
             End If
 
             Dim DAMText As String