diff --git a/lcl/interfaces/cocoa/cocoascrollers.pas b/lcl/interfaces/cocoa/cocoascrollers.pas index 4c5cf37b21..ce947f002a 100644 --- a/lcl/interfaces/cocoa/cocoascrollers.pas +++ b/lcl/interfaces/cocoa/cocoascrollers.pas @@ -53,6 +53,7 @@ type function lclClientFrame: TRect; override; function lclContentView: NSView; override; procedure setDocumentView(aView: NSView); override; + procedure scrollWheel(theEvent: NSEvent); override; procedure ensureDocumentViewSizeChanged(newSize: NSSize; ensureWidth: Boolean; ensureHeight: Boolean); message 'ensureDocumentViewSizeChanged:newSize:ensureWidth:'; @@ -727,6 +728,16 @@ begin lclVertScrollInfo.fMask:= 0; end; +procedure TCocoaScrollView.scrollWheel(theEvent: NSEvent); +begin + if self.hasHorizontalScroller or self.hasVerticalScroller then + inherited scrollWheel( theEvent ) + else if Assigned(self.enclosingScrollView) then + self.enclosingScrollView.scrollWheel( theEvent ) + else + inherited scrollWheel( theEvent ); +end; + procedure TCocoaScrollView.lclUpdate; begin documentView.lclUpdate;