FIX: Quick view file in the archive when flat view mode

This commit is contained in:
Alexander Koblov 2020-01-11 16:40:41 +00:00
commit 4a14064ae9

View file

@ -166,7 +166,7 @@ begin
if not (fsoCopyOut in Sender.FileSource.GetOperationsTypes) then Exit;
ActiveFile:= aFile.Clone;
TempFiles:= TFiles.Create(Sender.CurrentPath);
TempFiles:= TFiles.Create(ActiveFile.Path);
TempFiles.Add(aFile.Clone);
if FFileSource.IsClass(TTempFileSystemFileSource) then