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

FIX: Drag&Drop - move file when drop it on the tab by left + right mouse button (fixes #1287)

Browse source
This commit is contained in:
Alexander Koblov 2023-09-25 20:03:16 +03:00
commit aee27d7f2e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/fmain.pas
View file

@ -1478,7 +1478,7 @@ begin
TargetPath := IncludeTrailingPathDelimiter(TargetPath);
if not Assigned(TargetFileSource) then
TargetFileSource := TFileSystemFileSource.GetFileSource;
case GetDropEffectByKeyAndMouse(GetKeyShiftState, mbLeft) of
case GetDropEffectByKeyAndMouse(GetKeyShiftStateEx, mbLeft) of
DropCopyEffect:
Self.CopyFiles(ActiveFrame.FileSource, TargetFileSource, SourceFiles, TargetPath, gShowDialogOnDragDrop);
DropMoveEffect:
@ -2682,7 +2682,7 @@ begin
begin
TargetPath := ANotebook.View[ATabIndex].CurrentPath;
TargetFileSource := ANotebook.View[ATabIndex].FileSource;
case GetDropEffectByKeyAndMouse(GetKeyShiftState, mbLeft) of
case GetDropEffectByKeyAndMouse(GetKeyShiftStateEx, mbLeft) of
DropCopyEffect:
Self.CopyFiles(ActiveFrame.FileSource, TargetFileSource, SourceFiles, TargetPath, gShowDialogOnDragDrop);
DropMoveEffect: