mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Create shortcut only for real file system

Browse source
This commit is contained in:
Alexander Koblov 2018-12-19 17:43:39 +00:00
commit 82548b2a01
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/platform/uosforms.pas
View file

@ -454,6 +454,12 @@ var
ShortcutName: String;
SelectedFiles: TFiles;
begin
if not (frmMain.ActiveFrame.FileSource.IsClass(TFileSystemFileSource)) then
begin
msgWarning(rsMsgErrNotSupported);
Exit;
end;
SelectedFiles := frmMain.ActiveFrame.CloneSelectedOrActiveFiles;
try
if SelectedFiles.Count > 0 then