From c04230ac95cf53ce73a4c7872e6eb64aeeba9668 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 4 Oct 2009 12:39:05 +0200 Subject: Add "do-not-show-again" checkbox to some VFS questions Also remove active VFS connection question on quit --- UQuickConnect.pas | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'UQuickConnect.pas') 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; -- cgit v1.2.3