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

ADD/StashFS: step-27: improve context menu and path name

Browse source
This commit is contained in:
rich2014 2026-06-08 23:35:12 +08:00
commit 145a333a44
1 changed files with 28 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

43
src/filesources/stash/ustashfilesource.pas
View file

@ -6,11 +6,11 @@ interface
uses
Classes, SysUtils,
Graphics, Menus,
Graphics, Menus, ActnList,
uFile, uFileProperty, uFileSourceManager,
uFileSourceProperty, uFileSourceOperation, uFileSourceOperationTypes,
uFileSource, uVirtualFileSource, uFileSystemFileSource,
uFileSourceUtil, uDCUtils, uLng, uSysFolders,
uFileSourceUtil, uDCUtils, DCStrUtils, uLng, uSysFolders,
uStashFilesBackend
{$IFDEF DARWIN}
, uDarwinImage
@ -47,6 +47,7 @@ type
function GetLocalName(var aFile: TFile): Boolean; override;
function GetRootDir(sPath : String): String; override;
function GetRealPath(const path: String): String; override;
function IsPathAtRoot(Path: String): Boolean; override;
class function IsSupportedPath(const Path: String): Boolean; override;
class function GetMainIcon(out Path: String): Boolean; override;
@ -78,9 +79,9 @@ type
end;
var
stashActionAddToStash: TBasicAction;
stashActionRemoveFromStash: TBasicAction;
stashActionEmptyStash: TBasicAction;
stashActionAddToStash: TAction;
stashActionRemoveFromStash: TAction;
stashActionEmptyStash: TAction;
const
STASH_SCHEME = 'stash://';
@ -290,6 +291,17 @@ begin
Result:= Path;
end;
function TStashFileSource.IsPathAtRoot(Path: String): Boolean;
var
dirs: TStringList;
dirCount: Integer;
begin
dirs:= TStringList.Create;
dirCount:= GetDirs( ExcludeTrailingPathDelimiter(Path), dirs );
Result:= (dirCount <= 1);
dirs.Free;
end;
class function TStashFileSource.IsSupportedPath(const Path: String): Boolean;
begin
Result:= Path.StartsWith( STASH_SCHEME );
@ -410,6 +422,7 @@ end;
function TStashFileSource.QueryContextMenu(AFiles: TFiles; var AMenu: TPopupMenu): Boolean;
var
removedIndex: Integer;
index: Integer;
function hasValidPath: Boolean;
@ -428,12 +441,10 @@ var
end;
procedure removeAddToStash;
var
item: TMenuItem;
begin
item:= AMenu.Items.Find( 'Add to Stash' );
if Assigned(item) then
AMenu.Items.Remove( item );
removedIndex:= AMenu.Items.IndexOfCaption( stashActionAddToStash.Caption );
if removedIndex >= 0 then
AMenu.Items.Delete( removedIndex );
end;
procedure addRemoveStashItems;
@ -466,21 +477,23 @@ var
end;
begin
Result:= False;
index:= 0;
Result:= True;
removeAddToStash;
if removedIndex >= 0 then
index:= removedIndex
else
index:= 0;
if hasValidPath then
addRemoveStashItems;
if stashFilesBackend.count > 0 then
addEmptyStash;
if index > 0 then begin
if removedIndex < 0 then
addSeperator;
Result:= True;
end;
end;
procedure TStashFileSource.AddSearchPath(