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/UQuickConnect.pas b/UQuickConnect.pas
index 7533bd4..91be256 100644
--- a/UQuickConnect.pas
+++ b/UQuickConnect.pas
@@ -269,6 +269,8 @@ var Engine: TVFSEngine;
     i, j: integer;
     VFSPlugin: TVFSPlugin;
     URI, Scheme: string;
+    DontShowAgain: boolean;
+    res: TMessageButton;
 begin
   if ConnectionManager <> nil then AFConnectionManager := ConnectionManager
                               else AFConnectionManager := TFConnectionManager.Create(Self);
@@ -304,7 +306,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;
 
   Table.Enabled := False;
   CloseButton.Enabled := False;