summaryrefslogtreecommitdiff
path: root/UMain.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UMain.pas')
-rw-r--r--UMain.pas6
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;