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: Don't show directory change error on start

Browse source 
(cherry picked from commit ed026035ed)
This commit is contained in:
Alexander Koblov 2023-09-26 23:36:02 +03:00
commit eecd70c65d
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fileviews/ufileview.pas
View file

@ -2872,6 +2872,8 @@ end;
function TFileView.BeforeChangePath(NewFileSource: IFileSource;
Reason: TChangePathReason; NewPath: String): Boolean;
var
AForm: TCustomForm;
begin
if NewPath <> '' then
begin
@ -2881,7 +2883,12 @@ begin
if Assigned(NewFileSource) and not NewFileSource.SetCurrentWorkingDirectory(NewPath) then
begin
msgError(Format(rsMsgChDirFailed, [NewPath]));
AForm:= GetParentForm(Self);
if Assigned(AForm) and AForm.Visible then
begin
msgError(Format(rsMsgChDirFailed, [NewPath]));
end;
DCDebug(rsMsgChDirFailed, [NewPath]);
Exit(False);
end;