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

LCL, grids, disable selection on mousewheel, issue #20494

Browse Source 
git-svn-id: trunk@32947 -
This commit is contained in:
jesus 2011-10-17 15:14:38 +00:00
parent b31ac2827b
commit 5d8d41f146
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/grids.pas
View File

@ -7575,6 +7575,7 @@ end;
procedure TCustomGrid.GridMouseWheel(shift: TShiftState; Delta: Integer); procedure TCustomGrid.GridMouseWheel(shift: TShiftState; Delta: Integer);
begin begin
FSelectActive := false;
if ssCtrl in Shift then if ssCtrl in Shift then
MoveNextSelectable(true, Delta, 0) MoveNextSelectable(true, Delta, 0)
else else