FIX: Bug [0001543] Edit remote files

This commit is contained in:
Alexander Koblov 2016-09-30 19:06:52 +00:00
commit 500b3458ba
2 changed files with 4 additions and 3 deletions

View file

@ -410,7 +410,8 @@ var
TargetFileSource: IFileSource;
begin
TargetFileSource := Self;
Result:= TGioCopyInOperation.Create(SourceFileSource, TargetFileSource, SourceFiles, FCurrentAddress + TargetPath);
if not StrBegins(TargetPath, FCurrentAddress) then TargetPath:= FCurrentAddress + TargetPath;
Result:= TGioCopyInOperation.Create(SourceFileSource, TargetFileSource, SourceFiles, TargetPath);
end;
function TGioFileSource.CreateCopyOutOperation(TargetFileSource: IFileSource;

View file

@ -59,7 +59,7 @@ uses
uTempFileSystemFileSource, uLng, fDiffer, uDebug, DCOSUtils, uShowMsg,
uFile, uFileSourceCopyOperation, uFileSystemFileSource,
uFileSourceOperationOptions, uOperationsManager, uFileSourceOperationTypes,
uWcxArchiveFileSource, uWfxPluginFileSource, fFileExecuteYourSelf;
uMultiArchiveFileSource, fFileExecuteYourSelf;
type
@ -239,7 +239,7 @@ begin
begin
if not msgYesNo(Format(rsMsgCopyBackward, [ExtractFileName(FileName)])) then Exit;
if (fsoCopyIn in TargetFileSource.GetOperationsTypes) and
((TargetFileSource is TWcxArchiveFileSource) or (TargetFileSource is TWfxPluginFileSource)) then
(not (TargetFileSource is TMultiArchiveFileSource)) then
begin
Files:= TFiles.Create(SourceFileSource.GetRootDir);
Files.Add(TFileSystemFileSource.CreateFileFromFile(FileName));