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

UPD: replace with CurrentRealPath() for better compatibility with various FileSources in UpdatePrompt()

Browse source
This commit is contained in:
rich2014 2026-06-08 09:49:59 +08:00
commit a3b021ee76
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fmain.pas
View file

@ -6976,7 +6976,7 @@ begin
with lblCommandPath do
begin
Visible := True;
st := ExcludeTrailingBackslash(ActiveFrame.CurrentPath);
st := ExcludeTrailingBackslash(ActiveFrame.CurrentRealPath);
Hint := st;
Caption := MinimizeFilePath(Format(fmtCommandPath, [st]),
@ -6987,7 +6987,7 @@ begin
if (fspDirectAccess in ActiveFrame.FileSource.GetProperties) then
begin
if gTermWindow and Assigned(Cons) then
Cons.SetCurrentDir(ActiveFrame.CurrentPath);
Cons.SetCurrentDir(ActiveFrame.CurrentRealPath);
end;
edtCommand.Visible := True;
@ -7001,7 +7001,7 @@ begin
Properties := ActiveFrame.FileSource.GetProperties;
if (fspDirectAccess in Properties) and not (fspLinksToLocalFiles in Properties) then
begin
mbSetCurrentDir(ActiveFrame.CurrentPath);
mbSetCurrentDir(ActiveFrame.CurrentRealPath);
end;
end;