paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 19:17:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Don't unselect a row in DBGrid when opening a PopupMenu. Issue #32471, patch from Soner.

Browse Source 
git-svn-id: trunk@55940 -
This commit is contained in:
juha 2017-09-28 12:07:22 +00:00
parent cb3c2eb2ec
commit 451dd1597a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/dbgrids.pas
View File

@ -2656,12 +2656,14 @@ begin
if Gz=gzFixedRows then
P.X := Col;
if P.Y=Row then begin
if P.Y=Row then begin // The current active row was clicked again.
//doAcceptValue;
if ssCtrl in Shift then begin
doMouseDown;
ToggleSelectedRow;
// Don't unselect the row if Right-click was for PopupMenu.
if (Button<>mbRight) or (PopupMenu=Nil) then
ToggleSelectedRow;
end
else begin
if Button=mbLeft then
@ -2684,8 +2686,11 @@ begin
if IsMouseOverCellButton(X, Y) then
StartPushCell;
end;
if ssCtrl in Shift then
ToggleSelectedRow
if ssCtrl in Shift then begin
// Don't unselect if Right-click for PopupMenu. Select an unselected row.
if (Button<>mbRight) or (PopupMenu=Nil) or not FSelectedRows.CurrentRowSelected then
ToggleSelectedRow;
end
else begin
if Button=mbLeft then
ClearSelection(true);