Improve DeleteFileForm UX and update version numbers

Refactored DeleteFileForm.Display to use a standard message box
when CanFill is False, simplifying the user experience for
simple confirmations. Updated LblCaption margin for better
layout. Bumped application revision and file version numbers.

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

DiskImageTool/Forms/DeleteFileform.Designer.vb

@@ -37,10 +37,21 @@
     End Property
 
     Public Shared Function Display(Caption As String, Title As String, CanFill As Boolean) As DeleteFileFormResult
-        Using Form As New DeleteFileForm(Caption, Title, CanFill)
-            Form.ShowDialog()
-            Return Form.Result
-        End Using
+        If CanFill Then
+            Using Form As New DeleteFileForm(Caption, Title, CanFill)
+                Form.ShowDialog()
+                Return Form.Result
+            End Using
+        Else
+            Dim MsgBoxResult = MsgBox(Caption, MsgBoxStyle.YesNo Or MsgBoxStyle.Question Or MsgBoxStyle.DefaultButton2, Title)
+            Dim Result As New DeleteFileFormResult With {
+                .Clear = False,
+                .FillChar = &H0,
+                .Cancelled = (MsgBoxResult = MsgBoxResult.No)
+            }
+
+            Return Result
+        End If
     End Function
 
     Private Sub SetResult(Cancelled As Boolean)

DiskImageTool/Forms/DeleteFileform.vb

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