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

Cocoa: Fix the Scrolling issue on TCustomControl

Browse Source
This commit is contained in:
rich2014 2024-06-19 21:59:00 +08:00
parent dfc1bbeec2
commit 62cf9b2bae
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -29,7 +29,7 @@ interface
uses
// rtl+ftl
Types, Classes, SysUtils,
Types, Classes, SysUtils, LazLoggerBase, Forms,
// Libs
MacOSAll, CocoaAll, CocoaUtils, CocoaGDIObjects, CocoaCursor,
cocoa_extra,
@ -897,8 +897,14 @@ end;
procedure TCocoaCustomControl.scrollWheel(event: NSEvent);
begin
if not Assigned(callback) or not callback.scrollWheel(event) then
if Assigned(self.lclGetTarget) and (self.lclGetTarget is TScrollingWinControl) then begin
inherited scrollWheel(event);
if Assigned(callback) then
callback.scrollWheel(event);
end else begin
if NOT Assigned(callback) or NOT callback.scrollWheel(event) then
inherited scrollWheel(event);
end;
end;
procedure TCocoaCustomControl.setFrame(aframe: NSRect);