mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Don't create new file source if it exists

Browse source
This commit is contained in:
Alexander Koblov 2015-03-08 12:36:58 +00:00
commit a6d7d6331a
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/filesources/ufilesourceutil.pas
View file

@ -179,6 +179,7 @@ function ChooseFileSource(aFileView: TFileView; const aPath: UTF8String): Boolea
var
URI: TURI;
RemotePath: UTF8String;
FileSource: IFileSource;
aFileSourceClass: TFileSourceClass;
begin
Result:= True;
@ -192,8 +193,13 @@ begin
URI:= ParseURI(aPath);
RemotePath:= NormalizePathDelimiters(URI.Path + URI.Document);
RemotePath:= IncludeTrailingPathDelimiter(RemotePath);
// Create new FileSource with given URI
aFileView.AddFileSource(aFileSourceClass.Create(URI), RemotePath);
FileSource:= FileSourceManager.Find(aFileSourceClass, URI.Protocol + '://' + URI.Host);
if Assigned(FileSource) then
aFileView.AddFileSource(FileSource, RemotePath)
else begin
// Create new FileSource with given URI
aFileView.AddFileSource(aFileSourceClass.Create(URI), RemotePath);
end;
end
// If found FileSource is same as current then simply change path
else if aFileSourceClass.ClassNameIs(aFileView.FileSource.ClassName) then