paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 15:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix dbgrid right click selection when dgAnyButtonCanSelect option is active, patch by Emil Totev, issue #37357

Browse Source
This commit is contained in:
Jesus Reyes A 2021-08-14 16:42:06 -05:00
parent 1c87dc96eb
commit a80484b538
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/dbgrids.pas
View File

@ -2820,10 +2820,10 @@ begin
if ssCtrl in Shift then if ssCtrl in Shift then
ToggleSelectedRow ToggleSelectedRow
else begin else begin
if Button=mbLeft then if (Button=mbLeft) or (dgAnyButtonCanSelect in Options) then
ClearSelection(true) ClearSelection(true);
// Select row before popupmenu // Select row before popupmenu
else if (Button=mbRight) and Assigned(PopupMenu) and not FSelectedRows.CurrentRowSelected then if (Button=mbRight) and Assigned(PopupMenu) and not FSelectedRows.CurrentRowSelected then
ToggleSelectedRow; ToggleSelectedRow;
doMoveToColumn; doMoveToColumn;
end; end;