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

Cocoa: Fix the issue that NSScrollView always consumes scrollWheel by itself

Browse Source 
when NSScrollView itself does not need to scroll, scrollWheel should be passed to the upper NSScrollView.
it's intuitive and consistent with usage habits.
for example, the usability of "Lazarus IDE - Options Dialog" can be greatly improved.
This commit is contained in:
rich2014 2024-02-18 22:16:17 +08:00
parent 5cb028ee29
commit ed95006509
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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;