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

LCL: fixed compilation

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-08-27 23:25:20 +03:00
parent c39225f011
commit 2464831975
5 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/application.inc
View File

@ -417,7 +417,7 @@ end;
------------------------------------------------------------------------------}
procedure TApplication.ProcessMessages;
var
context: TLCLHandle;
context: THandle;
begin
if Self=nil then begin
// when the programmer did a mistake, avoid getting strange errors
@ -1277,7 +1277,7 @@ end;
------------------------------------------------------------------------------}
procedure TApplication.HandleMessage;
var
context: TLCLHandle;
context: THandle;
begin
context := WidgetSet.BeginMessageProcess;
try

4
lcl/include/interfacebase.inc
View File

@ -84,12 +84,12 @@ procedure TWidgetSet.AppSetupMainForm(AMainForm: TObject); //e.g. handle widge
begin
end;
function TWidgetSet.BeginMessageProcess: TLCLHandle;
function TWidgetSet.BeginMessageProcess: THandle;
begin
Result := 0;
end;
procedure TWidgetSet.EndMessageProcess(context: TLCLHandle);
procedure TWidgetSet.EndMessageProcess(context: THandle);
begin
end;

4
lcl/interfacebase.pp
View File

@ -152,8 +152,8 @@ type
// resources during message processing.
// for example, on Cocoa, it needs to be used to release AutoReleasePool
// to avoid resource leaks.
function BeginMessageProcess: TLCLHandle; virtual;
procedure EndMessageProcess(context: TLCLHandle); virtual;
function BeginMessageProcess: THandle; virtual;
procedure EndMessageProcess(context: THandle); virtual;
function LCLPlatform: TLCLPlatform; virtual; abstract;
function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; virtual;

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

@ -201,8 +201,8 @@ type
procedure AppSetIcon(const Small, Big: HICON); override;
procedure AppSetTitle(const ATitle: string); override;
function BeginMessageProcess: TLCLHandle; override;
procedure EndMessageProcess(context: TLCLHandle); override;
function BeginMessageProcess: THandle; override;
procedure EndMessageProcess(context: THandle); override;
function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; override;

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

@ -122,12 +122,12 @@ begin
AppRunMessages(true, NSDate.distantFuture);
end;
function TCocoaWidgetSet.BeginMessageProcess: TLCLHandle;
function TCocoaWidgetSet.BeginMessageProcess: THandle;
begin
Result := TLCLHandle(NSAutoreleasePool.alloc.init);
Result := THandle(NSAutoreleasePool.alloc.init);
end;
procedure TCocoaWidgetSet.EndMessageProcess(context: TLCLHandle);
procedure TCocoaWidgetSet.EndMessageProcess(context: THandle);
begin
NSAutoreleasePool(context).release;
end;