diff options
Diffstat (limited to 'UQuickConnect.pas')
| -rw-r--r-- | UQuickConnect.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/UQuickConnect.pas b/UQuickConnect.pas index 8234edd..7533bd4 100644 --- a/UQuickConnect.pas +++ b/UQuickConnect.pas @@ -268,7 +268,7 @@ procedure TFQuickConnect.DoConnect; var Engine: TVFSEngine; i, j: integer; VFSPlugin: TVFSPlugin; - Scheme: string; + URI, Scheme: string; begin if ConnectionManager <> nil then AFConnectionManager := ConnectionManager else AFConnectionManager := TFConnectionManager.Create(Self); @@ -321,8 +321,10 @@ begin Engine.SavePath := SourcePanelEngine.Path; Engine.OpenedFromQuickConnect := True; Engine.CustomPluginIDSave := ConfQuickConnectPluginID; + URI := URIComboBox.Entry.Text; + Engine.Password := URIRipPassword(URI, True); - if not AFConnectionManager.DoConnectInternal(URIComboBox.Entry.Text, Engine, FWidget) then begin + if not AFConnectionManager.DoConnectInternal(URI, Engine, FWidget, True) then begin if not AFConnectionManager.FSilenceError then Application.MessageBox(PGtkWindow(FWidget), LANGCouldntOpenURI, [mbOK], mbError, mbOK, mbOK); Table.Enabled := True; CloseButton.Enabled := True; |