FIX: Bug [0000960] Control+left/right arrow as in Total Commander

This commit is contained in:
Alexander Koblov 2017-01-21 18:10:04 +00:00
commit 8d665a69a2

View file

@ -842,6 +842,7 @@ begin
if not ChooseFileSource(TargetPage.FileView, SourcePage.FileView.FileSource, aFile) then
TargetPage.FileView.AddFileSource(SourcePage.FileView.FileSource,
SourcePage.FileView.CurrentPath);
TargetPage.FileView.SetActiveFile(aFile.Name);
except
on e: EFileSourceException do
MessageDlg('Error', e.Message, mtError, [mbOK], 0);