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

DEL: Invalid special paths

Browse source
This commit is contained in:
Alexander Koblov 2026-02-24 17:57:10 +03:00
commit 4816772ac3
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/uspecialdir.pas
View file

@ -96,7 +96,7 @@ implementation
uses
//Lazarus, Free-Pascal, etc.
EditBtn, Dialogs, ExtCtrls, StrUtils, StdCtrls, lazutf8,
EditBtn, Dialogs, ExtCtrls, StrUtils, StdCtrls, LazUTF8, LazFileUtils,
{$IFDEF MSWINDOWS}
ShlObj, uShellFolder,
{$ENDIF}
@ -194,13 +194,18 @@ var
procedure AddToSubMenu(ParamMenuItem:TMenuItem; TagRequested:longint; ProcedureWhenClickOnMenuItem:TProcedureWhenClickOnMenuItem);
var
localmi:TMenuItem;
MenuItem: TMenuItem;
begin
localmi:=TMenuItem.Create(ParamMenuItem);
localmi.Caption:=GetMenuCaptionAccordingToOptions(SpecialDir[IndexVariable].VariableName,SpecialDir[IndexVariable].PathValue);
localmi.tag:=TagRequested;
localmi.OnClick:=ProcedureWhenClickOnMenuItem;
ParamMenuItem.Add(localmi);
if (SpecialDir[IndexVariable].Dispatcher = sd_DOUBLECOMMANDER) then
begin
if not FilenameIsAbsolute(SpecialDir[IndexVariable].PathValue) then
Exit;
end;
MenuItem:= TMenuItem.Create(ParamMenuItem);
MenuItem.Caption:= GetMenuCaptionAccordingToOptions(SpecialDir[IndexVariable].VariableName, SpecialDir[IndexVariable].PathValue);
MenuItem.Tag:= TagRequested;
MenuItem.OnClick:= ProcedureWhenClickOnMenuItem;
ParamMenuItem.Add(MenuItem);
end;
procedure AddBatchOfMenuItems(SubMenuTitle:string; StartingIndex,StopIndex,TagOffset:longint; ProcedureWhenClickOnMenuItem:TProcedureWhenClickOnMenuItem);
@ -585,11 +590,7 @@ begin
if EqualPos <> 0 then
begin
EnvValue:=copy(EnvVar, EqualPos + 1, MaxInt);
{$IFDEF MSWINDOWS}
if (not gShowOnlyValidEnv) OR (ExtractFileDrive(EnvValue)<>'') then
{$ELSE}
if (not gShowOnlyValidEnv) OR (UTF8LeftStr(EnvValue,1)=PathDelim) then
{$ENDIF}
if (not gShowOnlyValidEnv) or FilenameIsAbsolute(EnvValue) then
begin
LocalSpecialDir:=TSpecialDir.Create;
LocalSpecialDir.fDispatcher:=sd_ENVIRONMENTVARIABLE;