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 --- UConnectionManager.pas | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'UConnectionManager.pas') 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; -- cgit v1.2.3