Block UI when opening remote locationv0.6.47

1 files changed, 12 insertions, 3 deletions

diff --git a/UMain.pas b/UMain.pas
index 114ad55..2696263 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -5886,8 +5886,12 @@ var Engine: TVFSEngine;
 begin
   try
     InternalLock;
+    ConnInfo := nil;
+    
     FConnectionManager := TFConnectionManager.Create(Self);
     b := FConnectionManager.Run = mbOK;
+    if FConnectionManager.ListView.Selected <> nil
+      then ConnInfo := FConnectionManager.ListView.Selected.AsPointer(0);
     WriteConnections;      //  Save the list to the file
 
     if b then begin
@@ -5895,8 +5899,6 @@ begin
         Application.MessageBox(LANGThereIsNoModuleAvailable, [mbOK], mbError, mbOK, mbOK);
         Exit;
       end;
-      if FConnectionManager.ListView.Selected = nil then Exit;
-      ConnInfo := FConnectionManager.ListView.Selected.AsPointer(0);
       if ConnInfo = nil then Exit;
 
       //  Find the VFS module to use for this connection
@@ -5932,7 +5934,14 @@ begin
       Engine := TVFSEngine.Create(VFSPlugin);
       Engine.ParentEngine := SourceEngine;
       Engine.SavePath := SourceEngine.Path;
-      if not Engine.VFSOpenURI(UTF8ToStr(ConnInfo.URI)) then begin
+
+      FRemoteWait := TFRemoteWait.Create(Application);
+      FRemoteWait.ParentForm := FConnectionManager;
+      FRemoteWait.ShowModal;
+      Application.ProcessMessages;
+      b := Engine.VFSOpenURI(UTF8ToStr(ConnInfo.URI));
+      FRemoteWait.Free;
+      if not b then begin
         Application.MessageBox(LANGCouldntOpenURI, [mbOK], mbError, mbOK, mbOK);
         Exit;
       end;