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: Deselecting file with right mouse button after context menu has been shown.

Browse source
This commit is contained in:
cobines 2012-03-08 21:54:28 +00:00
commit 87a848d17d
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/newdesign/ucolumnsfileview.pas
View file

@ -1126,16 +1126,21 @@ begin
// show context menu
MousePoint:= dgPanel.ScreenToClient(Mouse.CursorPos);
Background:= not dgPanel.MouseOnGrid(MousePoint.x, MousePoint.y);
frmMain.Commands.DoContextMenu(Self, Mouse.CursorPos.x, Mouse.CursorPos.y, Background);
if not Background then
begin
// get current row
dgPanel.MouseToCell(MousePoint.x, MousePoint.y, iCol, iRow);
if iRow < dgPanel.FixedRows then Exit;
AFile := FFiles[iRow - dgPanel.FixedRows]; // get current file
MarkFile(AFile, False); // unselect file
dgPanel.InvalidateRow(iRow); // invalidate current row
if iRow >= dgPanel.FixedRows then
begin
AFile := FFiles[iRow - dgPanel.FixedRows]; // get current file
MarkFile(AFile, not FLastSelectionState);
UpdateInfoPanel;
dgPanel.InvalidateRow(iRow);
end;
end;
frmMain.Commands.DoContextMenu(Self, Mouse.CursorPos.x, Mouse.CursorPos.y, Background);
end;
procedure TColumnsFileView.tmClearGridTimer(Sender: TObject);