Workaround configuration lost on slower systems

1 files changed, 6 insertions, 0 deletions

diff --git a/UMain.pas b/UMain.pas
index 99cbfbc..fd11934 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1112,6 +1112,8 @@ begin
     end;
   end;  
 
+  ApplicationShuttingDown := True;  //  Avoid emitting config files refresh event
+  
   //  Close all active connections
   if b then begin
     if (not LeftPanelNotebook.Visible) and (LeftPanelEngine is TVFSEngine) then CloseVFS(True, True)
@@ -4591,6 +4593,10 @@ var ChangedMainGUI, ChangedAssoc, ChangedBookmarks, ChangedMounter, ChangedConnM
 begin
   try
   if (csDestroying in ComponentState) or (not Assigned(FMain)) then Exit;
+  if ApplicationShuttingDown then begin
+    DebugMsg([' *** TFMain.HandleFormFocusIn called when ApplicationShuttingDown, possible bug caught ***']);
+    Exit;
+  end;
   if InternalLockUnlocked then begin
     APerformRefresh := ConfFocusRefresh;