paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 06:48:16 +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); procedure TCocoaScrollBar.scrollWheel(event: NSEvent);
begin begin
if suppressLCLMouse then if Assigned(callback) then
inherited scrollWheel(event) callback.scrollWheel(event)
else else
if not Assigned(callback) or not callback.scrollWheel(event) then Inherited;
inherited scrollWheel(event);
end; end;
function TCocoaScrollBar.acceptsFirstResponder: LCLObjCBoolean; function TCocoaScrollBar.acceptsFirstResponder: LCLObjCBoolean;