Add "do-not-show-again" checkbox to some VFS questions

Also remove active VFS connection question on quit

1 files changed, 11 insertions, 1 deletions

diff --git a/UConnectionManager.pas b/UConnectionManager.pas
index f7c2993..026a975 100644
--- a/UConnectionManager.pas
+++ b/UConnectionManager.pas
@@ -534,6 +534,8 @@ var Engine: TVFSEngine;
     i, j: integer;
     VFSPlugin: TVFSPlugin;
     FActiveConnInfo: TConnMgrItem;
+    DontShowAgain: boolean;
+    res: TMessageButton;
 begin
   FActiveConnInfo := nil;
   if ListView.Selected <> nil then FActiveConnInfo := ListView.Selected.AsPointer(0);
@@ -565,7 +567,15 @@ begin
     if VFSPlugin = nil then VFSPlugin := PluginList[0];     //  Fallback in hope some other plugin can handle it
   end;
 
-  if (SourcePanelEngine is TVFSEngine) and (Application.MessageBox(PGtkWindow(FWidget), LANGCloseOpenConnection, [mbYes, mbNo], mbWarning, mbYes, mbNo) <> mbYes) then Exit;
+  if (SourcePanelEngine is TVFSEngine) and ConfReplaceConnectionWarning then begin
+    DontShowAgain := False;
+    res := MessageBoxShowOnce(PGtkWindow(FWidget), LANGCloseOpenConnection, LANGDontShowAgain, DontShowAgain, [mbYes, mbNo], mbWarning, mbYes, mbNo);
+    if DontShowAgain then begin
+      ConfReplaceConnectionWarning := False;
+      WriteMainGUISettings;
+    end;
+    if res <> mbYes then Exit;
+  end;
 
   ListViewTable.Enabled := False;
   CloseButton.Enabled := False;