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

LCL: grids: fixed result of DoMouseWheelUp/Down

Browse Source 
git-svn-id: trunk@21422 -
This commit is contained in:
mattias 2009-08-23 12:49:32 +00:00
parent 0f47af48bc
commit d5a845d99d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

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