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

Cocoa: BeginMessageProcess/EndMessageProcess implemented, fix resources leak

Browse Source
This commit is contained in:
rich2014 2023-08-26 23:50:13 +08:00
parent 2d1027253f
commit 7f00662152
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/cocoa/cocoaint.pas
View File

@ -201,6 +201,9 @@ type
procedure AppSetIcon(const Small, Big: HICON); override; procedure AppSetIcon(const Small, Big: HICON); override;
procedure AppSetTitle(const ATitle: string); override; procedure AppSetTitle(const ATitle: string); override;
function BeginMessageProcess: TLCLHandle; override;
procedure EndMessageProcess(context: TLCLHandle); override;
function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; override; function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; override;
function CreateTimer(Interval: integer; TimerFunc: TWSTimerProc): TLCLHandle; override; function CreateTimer(Interval: integer; TimerFunc: TWSTimerProc): TLCLHandle; override;

11
lcl/interfaces/cocoa/cocoaobject.inc
View File

@ -124,6 +124,17 @@ begin
AppRunMessages(true, NSDate.distantFuture); AppRunMessages(true, NSDate.distantFuture);
end; end;
function TCocoaWidgetSet.BeginMessageProcess: TLCLHandle;
begin
Result := TLCLHandle(NSAutoreleasePool.alloc.init);
end;
procedure TCocoaWidgetSet.EndMessageProcess(context: TLCLHandle);
begin
NSAutoreleasePool(context).release;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCocoaWidgetSet.Create Method: TCocoaWidgetSet.Create