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

cocoa: memory management - removing unneeded autorelease pools. There's one global and one per each event

Browse Source 
git-svn-id: trunk@59232 -
This commit is contained in:
dmitry 2018-10-03 02:49:23 +00:00
parent 9b98baa793
commit 0c9d342feb
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoawsforms.pas
View File

@ -571,7 +571,6 @@ var
cnt: TCocoaWindowContent;
ns: NSString;
R: NSRect;
pool:NSAutoReleasePool;
lDestView: NSView;
ds: TCocoaDesignOverlay;
cb: TLCLWindowCallback;
@ -580,7 +579,6 @@ begin
// if parent is specified neither Window nor Panel needs to be created
// the only thing that needs to be created is Content
pool := NSAutoreleasePool.alloc.init;
R := CreateParamsToNSRect(AParams);
cnt := TCocoaWindowContent.alloc.initWithFrame(R);
cb := TLCLWindowCallback.Create(cnt, AWinControl, cnt);
@ -593,7 +591,6 @@ begin
if not Assigned(win) then
begin
pool.release;
Result := 0;
Exit;
end;
@ -660,7 +657,6 @@ begin
end;
end;
pool.release;
Result := TLCLIntfHandle(cnt);
end;
@ -926,15 +922,12 @@ end;
class procedure TCocoaWSCustomForm.SetBounds(const AWinControl: TWinControl;
const ALeft, ATop, AWidth, AHeight: Integer);
var pool: NSAutoreleasePool;
begin
if AWinControl.HandleAllocated then
begin
pool := NSAutoreleasePool.alloc.init;
//debugln('TCocoaWSCustomForm.SetBounds: '+AWinControl.Name+'Bounds='+dbgs(Bounds(ALeft, ATop, AWidth, AHeight)));
NSObject(AWinControl.Handle).lclSetFrame(Bounds(ALeft, ATop, AWidth, AHeight));
TCocoaWindowContent(AwinControl.Handle).callback.boundsDidChange(NSObject(AWinControl.Handle));
pool.release;
end;
end;