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: Check file name on the local file system only (fixes #709)

Browse source
This commit is contained in:
Alexander Koblov 2023-01-15 14:07:18 +03:00
commit 28ea809388
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fileviews/ufileviewheader.pas
View file

@ -85,7 +85,7 @@ implementation
uses
LCLType, ShellCtrls, Graphics, uDCUtils, DCOSUtils, DCStrUtils, uKeyboard,
fMain, uFileSourceUtil, uGlobs, uPixMapManager, uLng, uFileFunctions,
uArchiveFileSource, uFileViewWithPanels;
uArchiveFileSource, uFileViewWithPanels, uVfsModule;
const
SortingImageIndex: array[TSortDirection] of Integer = (-1, 0, 1);
@ -101,6 +101,7 @@ procedure TFileViewHeader.PathEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
NewPath: String;
AClass: TFileSourceClass;
begin
case Key of
VK_ESCAPE:
@ -116,7 +117,9 @@ begin
Key := 0; // catch the enter
NewPath:= NormalizePathDelimiters(FPathEdit.Text);
NewPath:= ReplaceEnvVars(ReplaceTilde(NewPath));
if not mbFileExists(NewPath) then
AClass:= gVfsModuleList.GetFileSource(NewPath);
// Check file name on the local file system only
if not ((AClass = nil) and mbFileExists(NewPath)) then
begin
if not ChooseFileSource(FFileView, NewPath, True) then
Exit;