From b2f8a1f1a9408b674a06e34c140f58a9ae109360 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 3 Oct 2009 18:48:42 +0200
Subject: Remember custom plugin from Quick Connect dialog and pre-fill it in
 Connection Properties dialog when saving unsaved connection

---
 UMain.pas | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'UMain.pas')

diff --git a/UMain.pas b/UMain.pas
index 2e1371a..b018eae 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -6066,6 +6066,7 @@ var Buttons: TMessageButtons;
     AFConnectionProperties: TFConnectionProperties;
     URI: string;
     ConnMgrItem: TConnMgrItem;
+    i: integer;
 begin
   Result := True;
   URI := Engine.GetPathURI;
@@ -6081,6 +6082,10 @@ begin
                AFConnectionProperties := TFConnectionProperties.Create(Self);
                try
                  AFConnectionProperties.URIEntry.Text := URI;
+                 if (Engine.CustomPluginIDSave <> '') and (AFConnectionProperties.PluginOptionMenu.Items.Count > 0) then
+                   for i := 0 to PluginList.Count - 1 do
+                     if TVFSPlugin(PluginList[i]).VFSName = Engine.CustomPluginIDSave
+                       then AFConnectionProperties.PluginOptionMenu.ItemIndex := i + 1;
                  if AFConnectionProperties.Run = mbOK then begin
                    ReadConnections;
                    ConnMgrItem := TConnMgrItem.Create;
-- 
cgit v1.2.3