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

Cocoa: Fix the scrollWheel event processing logic on TCocoaScrollBar

Browse Source
This commit is contained in:
rich2014 2024-05-13 23:18:13 +08:00
parent 5a7f3952aa
commit dca0f86606
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoascrollers.pas
View File

@ -1062,11 +1062,10 @@ end;
procedure TCocoaScrollBar.scrollWheel(event: NSEvent);
begin
if suppressLCLMouse then
inherited scrollWheel(event)
if Assigned(callback) then
callback.scrollWheel(event)
else
if not Assigned(callback) or not callback.scrollWheel(event) then
inherited scrollWheel(event);
Inherited;
end;
function TCocoaScrollBar.acceptsFirstResponder: LCLObjCBoolean;