Retain list selection in Connection Manager

Read/write connections on demand only

1 files changed, 6 insertions, 4 deletions

diff --git a/UMain.pas b/UMain.pas
index 2696263..f548a6d 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -4601,10 +4601,10 @@ begin
         ReadBookmarks;
         RefreshBookmarksMenu;
       end;
-      if ChangedConnMgr then begin
+(*      if ChangedConnMgr then begin
         DebugMsg(['Connection manager file changed ---> performing refresh']);
         ReadConnections;
-      end;
+      end;  *)
       try
         InternalLock;
         if (ChangedMainGUI or ChangedAssoc or ChangedMounter) and (Application.MessageBox(LANGSomeOtherInstanceChanged,
@@ -5890,8 +5890,10 @@ begin
     
     FConnectionManager := TFConnectionManager.Create(Self);
     b := FConnectionManager.Run = mbOK;
-    if FConnectionManager.ListView.Selected <> nil
-      then ConnInfo := FConnectionManager.ListView.Selected.AsPointer(0);
+    if FConnectionManager.ListView.Selected <> nil then begin
+      ConnInfo := FConnectionManager.ListView.Selected.AsPointer(0);
+      ConfConnMgrActiveItem := FConnectionManager.ListView.Selected.Index;
+    end;
     WriteConnections;      //  Save the list to the file
 
     if b then begin