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: Bug [0000652] "Cant open folder in Search inside of 'Feed to list box'"

Browse source
This commit is contained in:
Alexander Koblov 2013-04-24 18:58:51 +00:00
commit 70efd16597
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/umaincommands.pas
View file

@ -228,7 +228,7 @@ uses Forms, Controls, Dialogs, Clipbrd, strutils, LCLProc, HelpIntfs, StringHash
uShowForm, uShellExecute, uClipboard, uHash, uDisplayFile, uColumnsFileView,
uFilePanelSelect, uFile, uFileSystemFileSource, uQuickViewPanel,
uOperationsManager, uFileSourceOperationTypes, uWfxPluginFileSource,
uFileSystemDeleteOperation, uFileSourceExecuteOperation,
uFileSystemDeleteOperation, uFileSourceExecuteOperation, uSearchResultFileSource,
uFileSourceOperationMessageBoxesUI, uFileSourceCalcChecksumOperation,
uFileSourceCalcStatisticsOperation, uFileSource, uFileSourceProperty,
uVfsFileSource, uFileSourceUtil, uArchiveFileSourceUtil, uThumbFileView,
@ -738,7 +738,11 @@ procedure TMainCommands.cm_OpenDirInNewTab(const Params: array of string);
NewPage: TFileViewPage;
begin
NewPage := FrmMain.ActiveNotebook.NewPage(FrmMain.ActiveFrame);
NewPage.FileView.CurrentPath := aFullPath;
// Workaround for Search Result File Source
if NewPage.FileView.FileSource is TSearchResultFileSource then
SetFileSystemPath(NewPage.FileView, aFullPath)
else
NewPage.FileView.CurrentPath := aFullPath;
if tb_open_new_in_foreground in gDirTabOptions then
NewPage.MakeActive;
end;