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

LCL: grids: no scrolling by interface

Browse Source 
git-svn-id: trunk@21440 -
This commit is contained in:
mattias 2009-08-25 10:30:55 +00:00
parent 141dffc70a
commit f552d85248
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/version.inc
View File

@ -1 +1 @@
'0.9.29'
'0.9.28'

4
lcl/grids.pas
View File

@ -5533,7 +5533,7 @@ begin
Result:=inherited DoMouseWheelDown(Shift, MousePos);
if not Result then begin
GridMouseWheel(Shift, 1);
// keep Result=false to let the interface scroll
Result := True; // handled, no further scrolling by the widgetset
end;
{$ifdef dbgScroll}DebugLn('doMouseWheelDown END');{$endif}
end;
@ -5545,7 +5545,7 @@ begin
Result:=inherited DoMouseWheelUp(Shift, MousePos);
if not Result then begin
GridMouseWheel(Shift, -1);
// keep Result=false to let the interface scroll
Result := True; // handled, no further scrolling by the widgetset
end;
{$ifdef dbgScroll}DebugLn('doMouseWheelUP END');{$endif}
end;