paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 13:30:37 +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; procedure TCocoaManualScrollView.lclClearCallback;
begin begin
callback := nil; callback := nil;
if Assigned(self.documentView) then
self.documentView.lclClearCallback;
end; end;
function TCocoaManualScrollView.lclContentView: NSView; function TCocoaManualScrollView.lclContentView: NSView;
@ -1121,6 +1123,8 @@ end;
procedure TCocoaScrollView.lclClearCallback; procedure TCocoaScrollView.lclClearCallback;
begin begin
callback := nil; callback := nil;
if Assigned(self.documentView) then
self.documentView.lclClearCallback;
end; end;
{ TCocoaScrollBar } { TCocoaScrollBar }