FIX: Go to file (Ctrl+Right, Ctrl+Left) in the flat view

This commit is contained in:
Alexander Koblov 2019-08-31 11:46:13 +00:00
commit 7a3f348280

View file

@ -833,8 +833,7 @@ begin
// Change file source, if the file under cursor can be opened as another file source.
try
if not ChooseFileSource(TargetPage.FileView, SourcePage.FileView.FileSource, aFile) then
TargetPage.FileView.AddFileSource(SourcePage.FileView.FileSource,
SourcePage.FileView.CurrentPath);
TargetPage.FileView.AddFileSource(SourcePage.FileView.FileSource, aFile.Path);
TargetPage.FileView.SetActiveFile(aFile.Name);
except
on e: EFileSourceException do