Final v2.8.3 commit

tedsmith · Aug 8, 2017 · dabedcc · dabedcc
1 parent 3092bc6
commit dabedcc
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 2 deletions.
diff --git a/UserManual.odt b/UserManual.odt
diff --git a/UserManual.pdf b/UserManual.pdf
diff --git a/project1.lpr b/project1.lpr
@@ -15,6 +15,7 @@
 {$R *.res}
 
 begin
+  Application.Title:='QuickHash';
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TfrmDisplayGrid1, frmDisplayGrid1);

diff --git a/unit2.lfm b/unit2.lfm
@@ -1,7 +1,7 @@
 object MainForm: TMainForm
-  Left = 353
+  Left = 342
   Height = 714
-  Top = 107
+  Top = 73
   Width = 1018
   AllowDropFiles = True
   Caption = 'QuickHash v2.8.3 - The easy and convenient way to hash data in Linux, OSX and Windows'

diff --git a/unit2.pas b/unit2.pas
@@ -2691,6 +2691,7 @@ procedure TMainForm.Button8CopyAndHashClick(Sender: TObject);
   lblTimeTaken6C.Caption           := '...';
   pbCopy.Position                  := 0;
   LoopCounter                      := 0;
+  Button8CopyAndHash.Enabled       := false; // disable the go button until finished
   Application.ProcessMessages;
 
   // First, wait for the scheduler time to arrive, if set by the user
@@ -2699,6 +2700,7 @@ procedure TMainForm.Button8CopyAndHashClick(Sender: TObject);
       if ZVDateTimePickerCopyTab.DateTime < Now then
       begin
         ShowMessage('Scheduled start time is in the past. Correct it.');
+        Button8CopyAndHash.Enabled       := true;
         exit;
       end
       else
@@ -2736,6 +2738,7 @@ procedure TMainForm.Button8CopyAndHashClick(Sender: TObject);
           end
           else
             begin
+              Button8CopyAndHash.Enabled       := false;
               {$ifdef Windows}
               // If chosen source path is a UNC path, we need to append the UNC prefix to the
               // Unicode 32K long API call of \\?\
@@ -2777,6 +2780,7 @@ procedure TMainForm.Button8CopyAndHashClick(Sender: TObject);
           // give ProcessDir function the first folder name in the list for now...
           // ProcessDir will then do the itterations itself using the same stringlist
           SourceDir := slMultipleDirNames.Strings[0];
+          Button8CopyAndHash.Enabled       := false;
           // Now process the chosen folders
           ProcessDir(SourceDir);
         end