Remember custom plugin from Quick Connect dialog and pre-fill it in Connection Properties dialog when saving unsaved connection

1 files changed, 5 insertions, 0 deletions

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;