diff --git a/Projects/SAMufasaGUI/project1.lpi b/Projects/SAMufasaGUI/project1.lpi
index 9a8dc71..08c0c2c 100644
--- a/Projects/SAMufasaGUI/project1.lpi
+++ b/Projects/SAMufasaGUI/project1.lpi
@@ -10,7 +10,7 @@
-
+
@@ -138,7 +138,7 @@
-
+
@@ -1706,7 +1706,7 @@
-
+
@@ -1716,7 +1716,7 @@
-
+
@@ -1838,7 +1838,7 @@
-
+
@@ -1893,7 +1893,7 @@
-
+
@@ -1966,9 +1966,11 @@
-
-
-
+
+
+
+
+
@@ -1976,10 +1978,10 @@
-
-
+
+
-
+
@@ -2102,7 +2104,7 @@
-
+
@@ -2132,123 +2134,123 @@
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
+
-
-
+
+
-
-
+
+
-
+
-
+
-
+
-
+
-
-
+
+
-
+
-
-
+
+
-
-
+
+
-
+
-
-
+
+
-
+
-
+
-
-
+
+
-
+
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Projects/SAMufasaGUI/updateform.pas b/Projects/SAMufasaGUI/updateform.pas
index 4e1bf5c..b0b7d43 100644
--- a/Projects/SAMufasaGUI/updateform.pas
+++ b/Projects/SAMufasaGUI/updateform.pas
@@ -89,12 +89,14 @@ begin
FSimbaVersion := StrToIntDef(Trim(SimbaVersionThread.ResultStr), -1);//Read output
FreeAndNil(SimbaVersionThread);//Free the thread
end else
+ begin
//Another thread is already running, lets wait for it! (When it's nil, it means that the result is written!)
while SimbaVersionThread = nil do
begin;
Application.ProcessMessages;
Sleep(50);
end;
+ end;
Exit(FSimbaVersion);
end;
@@ -165,6 +167,7 @@ begin
Self.UpdateLog.Lines.Add('Starting download of ' + Updater.FileURL + ' ...');
try
+ Self.OkButton.Enabled := False; // grey out button
Updater.DownloadAndSave;
Self.UpdateLog.Lines.Add('Downloaded to ' + Updater.ReplacementFile + '_ ...');
Updater.Replace;
@@ -181,6 +184,7 @@ begin
end;
Self.UpdateLog.Lines.Add('Done ... ');
Self.UpdateLog.Lines.Add('Please restart all currently running Simba binaries.');
+ Self.OkButton.Enabled := True; // un-grey out button
end;
{ TSimbaVersionThread }