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

Fix: Cocoa: memory leaks in TCocoaStepper

Browse Source
This commit is contained in:
rich2014 2023-05-13 20:30:53 +08:00
parent d83d653b18
commit ec2aed9989
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/cocoa/cocoabuttons.pas
View File

@ -121,6 +121,9 @@ type
procedure mouseDragged(event: NSEvent); override;
procedure mouseMoved(event: NSEvent); override;
function lclGetCallback: ICommonCallback; override;
procedure lclClearCallback; override;
end;
implementation
@ -202,6 +205,16 @@ begin
inherited mouseMoved(event);
end;
function TCocoaStepper.lclGetCallback: ICommonCallback;
begin
Result:= callback;
end;
procedure TCocoaStepper.lclClearCallback;
begin
callback := nil;
end;
{ TCocoaButton }
procedure TCocoaButton.lclSetFrame(const r: TRect);