paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 23:08:05 +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);
begin
if self.hasHorizontalScroller or self.hasVerticalScroller then
inherited scrollWheel( theEvent )
else if Assigned(self.enclosingScrollView) then
if self.hasHorizontalScroller or self.hasVerticalScroller then begin
inherited scrollWheel( theEvent );
callback.scrollWheel( theEvent );
end else if Assigned(self.enclosingScrollView) then
self.enclosingScrollView.scrollWheel( theEvent )
else
inherited scrollWheel( theEvent );