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: Different rightclick behaviour 0.9.10 and 1.0.0 alpha (fixes #105)

Browse source 
(cherry picked from commit 840312d5f7)
This commit is contained in:
Alexander Koblov 2022-01-26 20:29:20 +03:00
commit 9f6ac077f6
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -1286,10 +1286,12 @@ end;
procedure TFileViewWithMainCtrl.tmContextMenuTimer(Sender: TObject);
var
AFile: TDisplayFile;
Index, Count: Integer;
ClientPoint, MousePoint: TPoint;
Background: Boolean;
FileIndex: PtrInt;
AtFileList: Boolean;
Status: Boolean;
begin
FMainControlMouseDown:= False;
tmContextMenu.Enabled:= False; // stop context menu timer
@ -1305,8 +1307,29 @@ begin
if FRenameFileIndex = FileIndex then
Exit;
// Restore selection status by default
Status := not FMouseSelectionLastState;
if (Status = False) then
begin
Count := 0;
for Index := 0 to FFiles.Count - 1 do
begin
if FFiles[Index].Selected then
begin
Inc(Count);
// If multiple files selected then
// select file under cursor too
if Count > 1 then
begin
Status := True;
Break;
end;
end;
end;
end;
AFile := FFiles[FileIndex];
MarkFile(AFile, True, False);
MarkFile(AFile, Status, False);
DoSelectionChanged(FileIndex);
end;