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

Cocoa: Fix the issue that the ScrollBars of corresponding TScrollingWinControl were not updated correctly

Browse Source
This commit is contained in:
rich2014 2024-06-19 20:56:46 +08:00
parent eacd34023f
commit dfc1bbeec2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -743,9 +743,10 @@ end;
procedure TCocoaScrollView.scrollWheel(theEvent: NSEvent); procedure TCocoaScrollView.scrollWheel(theEvent: NSEvent);
begin begin
if self.hasHorizontalScroller or self.hasVerticalScroller then if self.hasHorizontalScroller or self.hasVerticalScroller then begin
inherited scrollWheel( theEvent ) inherited scrollWheel( theEvent );
else if Assigned(self.enclosingScrollView) then callback.scrollWheel( theEvent );
end else if Assigned(self.enclosingScrollView) then
self.enclosingScrollView.scrollWheel( theEvent ) self.enclosingScrollView.scrollWheel( theEvent )
else else
inherited scrollWheel( theEvent ); inherited scrollWheel( theEvent );