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: Feature [0000750] Open VFS List from Left/Right Drive List #2

Browse source
This commit is contained in:
Alexander Koblov 2020-11-27 21:55:02 +00:00
commit 2bf47c5427
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/filesources/vfs/uvfsfilesource.pas
View file

@ -43,6 +43,8 @@ type
// Retrieve some properties of the file source.
function GetProperties: TFileSourceProperties; override;
function GetRootDir(sPath : String): String; override;
// These functions create an operation object specific to the file source.
function CreateListOperation(TargetPath: String): TFileSourceOperation; override;
function CreateExecuteOperation(var ExecutableFile: TFile; BasePath, Verb: String): TFileSourceOperation; override;
@ -90,6 +92,11 @@ begin
Result := [fspVirtual];
end;
function TVfsFileSource.GetRootDir(sPath: String): String;
begin
Result:= 'vfs:' + PathDelim;
end;
function TVfsFileSource.GetSupportedFileProperties: TFilePropertiesTypes;
begin
Result := inherited GetSupportedFileProperties +

2
src/fmain.pas
View file

@ -4470,7 +4470,7 @@ begin
// Add virtual drive
New(Drive);
Drive^.DriveType:= dtVirtual;
Drive^.Path:= PathDelim;
Drive^.Path:= 'vfs:' + PathDelim;
Drive^.DisplayName:= PathDelim + PathDelim;
Drive^.DriveLabel:= StripHotkey(actOpenVirtualFileSystemList.Caption);
Drive^.FileSystem:= 'VFS';