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

Cocoa/ScrollView: fix the issue of missing child control callback clear in lclClearCallback()

Browse Source
This commit is contained in:
rich2014 2024-12-19 00:34:45 +08:00
parent 950d962e1d
commit d9ba51bbe9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -661,6 +661,8 @@ end;
procedure TCocoaManualScrollView.lclClearCallback;
begin
callback := nil;
if Assigned(self.documentView) then
self.documentView.lclClearCallback;
end;
function TCocoaManualScrollView.lclContentView: NSView;
@ -1121,6 +1123,8 @@ end;
procedure TCocoaScrollView.lclClearCallback;
begin
callback := nil;
if Assigned(self.documentView) then
self.documentView.lclClearCallback;
end;
{ TCocoaScrollBar }