From 062dffa152d29db11ab307c1cd40debddd250baa Mon Sep 17 00:00:00 2001
From: ImminentFate <fatefulproductions@hotmail.com>
Date: Sat, 14 Oct 2017 22:34:13 +1000
Subject: [PATCH] Fixed "Analyzing" progress bar

---
 WindowsApp1/Compact.Designer.vb        |  2 +-
 WindowsApp1/Compact.vb                 | 50 +++++++++++++++++++-------
 WindowsApp1/My Project/AssemblyInfo.vb |  4 +--
 3 files changed, 40 insertions(+), 16 deletions(-)

diff --git a/WindowsApp1/Compact.Designer.vb b/WindowsApp1/Compact.Designer.vb
index 3764510..6026095 100644
--- a/WindowsApp1/Compact.Designer.vb
+++ b/WindowsApp1/Compact.Designer.vb
@@ -376,7 +376,6 @@ Partial Class Compact
         '
         'progressTimer
         '
-        Me.progressTimer.Interval = 20
         '
         'progresspercent
         '
@@ -405,6 +404,7 @@ Partial Class Compact
         '
         Me.compactprogressbar.BackColor = System.Drawing.Color.WhiteSmoke
         Me.compactprogressbar.Location = New System.Drawing.Point(59, 70)
+        Me.compactprogressbar.MarqueeAnimationSpeed = 1000
         Me.compactprogressbar.MaximumSize = New System.Drawing.Size(374, 27)
         Me.compactprogressbar.Name = "compactprogressbar"
         Me.compactprogressbar.Size = New System.Drawing.Size(374, 27)
diff --git a/WindowsApp1/Compact.vb b/WindowsApp1/Compact.vb
index 82fb100..df4106c 100644
--- a/WindowsApp1/Compact.vb
+++ b/WindowsApp1/Compact.vb
@@ -5,7 +5,7 @@ Imports System.Text.RegularExpressions
 Imports Ookii.Dialogs                                                                          'Uses Ookii Dialogs for the non-archaic filebrowser dialog. http://www.ookii.org/Software/Dialogs
 
 Public Class Compact
-    Dim version = "1.3"
+    Dim version = "1.3.1"
     Private WithEvents MyProcess As Process
     Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)
 
@@ -31,7 +31,7 @@ Public Class Compact
     Dim fileCountTotal As UInteger = 0
     Dim fileCountProgress As UInteger
     Dim fileCountOutputCompressed As UInteger
-
+    Dim QdirCountProgress As UInteger
 
 
     Private Sub MyProcess_ErrorDataReceived _
@@ -80,6 +80,9 @@ Public Class Compact
             If e.Data.EndsWith(" are not compressed.") Then                                     'Gets the output line that identifies the total number of files compressed. 
                 byteComparisonRawFilesCompressed = e.Data
             End If
+            If e.Data.StartsWith(" Listing ") Then                                               'Gets the output line that identifies the query folder count
+                QdirCountProgress += 1
+            End If
         Catch ex As Exception
 
         End Try
@@ -125,18 +128,38 @@ Public Class Compact
 
         If fileCountTotal <> 0 Then                                                             'Makes sure that there are actually files being counted before attempting a calculation
 
-            progresspercent.Text = Math.Round _
+            If isQueryMode = 0 Then
+
+                progresspercent.Text = Math.Round _
                 ((fileCountProgress / fileCountTotal * 100), 0).ToString + " %"                 'Generates an estimate of progress based on how many files have been processed out of the total. 
 
-            Try
-                If compactprogressbar.Value >= 101 Then                                         'Avoids a /r/softwaregore scenario
-                    compactprogressbar.Value = 1
-                Else
-                    compactprogressbar.Value = Math.Round _
-                        ((fileCountProgress / fileCountTotal * 100), 0)
-                End If
-            Catch ex As Exception
-            End Try
+                Try
+                    If compactprogressbar.Value >= 101 Then                                         'Avoids a /r/softwaregore scenario
+                        compactprogressbar.Value = 1
+                    Else
+                        compactprogressbar.Value = Math.Round _
+                            ((fileCountProgress / fileCountTotal * 100), 0)
+                    End If
+                Catch ex As Exception
+                End Try
+
+            ElseIf isQueryMode = 1 Then
+
+                progresspercent.Text = Math.Round _
+                ((QdirCountProgress / dirCountTotal * 100), 0).ToString + " %"                 'Generates an estimate of progress for the Query command.
+
+                Try
+                    If compactprogressbar.Value >= 101 Then                                         'Avoids a /r/softwaregore scenario
+                        compactprogressbar.Value = 1
+                    Else
+                        compactprogressbar.Value = Math.Round _
+                            ((QdirCountProgress / dirCountTotal * 100), 0)
+                    End If
+                Catch ex As Exception
+                End Try
+
+            End If
+
 
         End If
 
@@ -150,10 +173,11 @@ Public Class Compact
             End If
 
             compressFinished = 0
+
             buttonRevert.Visible = True
             returnArrow.Visible = True
             CalculateSaving()
-
+            QdirCountProgress = 0
         End If
 
         If uncompressFinished = 1 Then                                                          'Hides and shows certain UI elements when uncompression is finished 
diff --git a/WindowsApp1/My Project/AssemblyInfo.vb b/WindowsApp1/My Project/AssemblyInfo.vb
index e6505d1..bf74514 100644
--- a/WindowsApp1/My Project/AssemblyInfo.vb	
+++ b/WindowsApp1/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.3.0.0")>
-<Assembly: AssemblyFileVersion("1.3.0.0")>
+<Assembly: AssemblyVersion("1.3.1.0")>
+<Assembly: AssemblyFileVersion("1.3.1.0")>