Improve drag-and-drop checks for loaded disk images

Refined drag-and-drop event logic in MainForm.vb to check for an actually loaded image and disk, replacing the previous _ImagesLoaded flag with a more precise HasLoadedImage condition. This ensures drag-and-drop actions on PanelFiles only proceed when a valid image is loaded. Also incremented application revision and file version.

Author: Digitoxin1

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.37.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>

DiskImageTool/MainForm.vb

@@ -1764,7 +1764,9 @@ Public Class MainForm
     End Sub
 
     Private Sub File_DragDrop(sender As Object, e As DragEventArgs) Handles ImageCombo.DragDrop, PanelFiles.DragDrop, ListViewSummary.DragDrop, HashPanel1.DragDrop
-        If sender Is PanelFiles AndAlso _ImagesLoaded Then
+        Dim HasLoadedImage = FilePanelMain.CurrentImage IsNot Nothing AndAlso FilePanelMain.CurrentImage.Disk IsNot Nothing
+
+        If sender Is PanelFiles AndAlso HasLoadedImage Then
             PanelOverlay.Visible = False
             SetDropHighlight(Nothing)
         End If
@@ -1780,7 +1782,7 @@ Public Class MainForm
         End If
 
         Dim DoImport As Boolean = False
-        If sender Is PanelFiles AndAlso _ImagesLoaded Then
+        If sender Is PanelFiles AndAlso HasLoadedImage Then
             DoImport = IsImportDrop(e)
         End If
 
@@ -1802,9 +1804,11 @@ Public Class MainForm
         Debug.Print("MainForm.File_DragEnter fired")
 
         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim HasLoadedImage = FilePanelMain.CurrentImage IsNot Nothing AndAlso FilePanelMain.CurrentImage.Disk IsNot Nothing
+
             e.Effect = DragDropEffects.Copy
 
-            If sender Is PanelFiles AndAlso _ImagesLoaded Then
+            If sender Is PanelFiles AndAlso HasLoadedImage Then
                 PanelOverlay.Visible = True
             End If
         End If
@@ -1817,7 +1821,9 @@ Public Class MainForm
 
         Debug.Print("MainForm.File_DragLeave fired")
 
-        If sender Is PanelFiles AndAlso _ImagesLoaded Then
+        Dim HasLoadedImage = FilePanelMain.CurrentImage IsNot Nothing AndAlso FilePanelMain.CurrentImage.Disk IsNot Nothing
+
+        If sender Is PanelFiles AndAlso HasLoadedImage Then
             PanelOverlay.Visible = False
             SetDropHighlight(Nothing)
         End If
@@ -1828,7 +1834,9 @@ Public Class MainForm
             Exit Sub
         End If
 
-        If sender Is PanelFiles AndAlso _ImagesLoaded Then
+        Dim HasLoadedImage = FilePanelMain.CurrentImage IsNot Nothing AndAlso FilePanelMain.CurrentImage.Disk IsNot Nothing
+
+        If sender Is PanelFiles AndAlso HasLoadedImage Then
             Dim DoImport = IsImportDrop(e)
             SetDropHighlight(If(DoImport, PanelOverlayBottomZone, PanelOverlayTopZone))
         End If

DiskImageTool/My Project/AssemblyInfo.vb

@@ -31,4 +31,4 @@ Imports System.Runtime.InteropServices
 ' <Assembly: AssemblyVersion("1.0.*")>
 
 <Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("2.37.0.1")>
+<Assembly: AssemblyFileVersion("2.37.0.2")>