paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +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
ToggleSelectedRow
else begin
if Button=mbLeft then
ClearSelection(true)
if (Button=mbLeft) or (dgAnyButtonCanSelect in Options) then
ClearSelection(true);
// 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;
doMoveToColumn;
end;