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: the issue related to '..' at the top of FileSource #2922

Browse source
This commit is contained in:
rich2014 2026-06-11 00:31:41 +08:00
commit 39ef1ea0f3
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/fileviews/ufileview.pas
View file

@ -519,6 +519,7 @@ type
var DropParams: TDropParams); virtual abstract;
procedure GoToHistoryIndex(aFileSourceIndex, aPathIndex: Integer);
procedure GoToPrevFileSourceHistory;
function hasPrevHistory: Boolean;
procedure GoToPrevHistory;
function hasNextHistory: Boolean;
@ -2993,11 +2994,11 @@ begin
// If there is a higher level file source then change to it.
if (FileSourcesCount > 1) and AllowChangingFileSource then
begin
// use GoToPrevHistory instead of RemoveCurrentFileSource to navigate
// use GoToPrevFileSourceHistory instead of RemoveCurrentFileSource to navigate
// to the parent when the current FileSource is at the Root.
// in this way, for example, in SearchResults, after clicking "..",
// we can navigation by cm_ViewHistoryPrev/cm_ViewHistoryNext.
GoToPrevHistory;
GoToPrevFileSourceHistory
end;
end
else
@ -3607,6 +3608,17 @@ begin
end;
end;
procedure TFileView.GoToPrevFileSourceHistory;
var
aFileSourceIndex, aPathIndex: Integer;
begin
if FHistory.CurrentFileSourceIndex > 0 then begin
aFileSourceIndex := FHistory.CurrentFileSourceIndex - 1;
aPathIndex := FHistory.PathsCount[aFileSourceIndex] - 1;
GoToHistoryIndex(aFileSourceIndex, aPathIndex);
end;
end;
function TFileView.hasPrevHistory: Boolean;
begin
Result:= False;