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

cocoa: change PostMessage event processing to use performSelectorOnMainThread

Browse Source 
git-svn-id: trunk@61336 -
This commit is contained in:
dmitry 2019-06-07 13:01:20 +00:00
parent c13bcb61c2
commit 86aa535424
1 changed files with 37 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1857,24 +1857,54 @@ begin
ctx.Polyline(PPointArray(Points)^, NumPts);
end;
type
TLCLEventMessage = objcclass(NSObject)
handle: HWND;
msg: Cardinal;
wp: WParam;
lp: LParam;
procedure lclRunEvent(sender: id); message 'lclRunEvent:';
end;
procedure TLCLEventMessage.lclRunEvent(sender: id);
begin
NSObject(handle).lclDeliverMessage(msg, wp, lp);
self.release;
end;
function AllocLCLEventMessage(ahandle: HWND; amsg: Cardinal; awp: WParam; alp: LParam): TLCLEventMessage;
begin
Result := TLCLEventMessage.alloc.init;
Result.handle := ahandle;
Result.msg := amsg;
Result.wp := awp;
Result.lp := alp;
end;
function TCocoaWidgetSet.PostMessage(Handle: HWND; Msg: Cardinal;
wParam: WParam; lParam: LParam): Boolean;
var
Info: NSDictionary;
Event: NSEvent;
m: TLCLEventMessage;
begin
Result := Handle <> 0;
if Result then
begin
Info := NewUserEventInfo(Handle, Msg, WParam, LParam);
//Info := NewUserEventInfo(Handle, Msg, WParam, LParam);
// if we will want a postmessage using notification center
// NSDistributedNotificationCenter.defaultCenter.postNotificationName_object_userInfo_deliverImmediately(NSMessageNotification, nil, Info, False);
Event := PrepareUserEvent(Handle, Info, False);
{$ifdef BOOLFIX}
NSApp.postEvent_atStart_(Event, Ord(False));
{$else}
NSApp.postEvent_atStart(Event, False);
{$endif}
//Event := PrepareUserEvent(Handle, Info, False);
//{$ifdef BOOLFIX}
//NSApp.postEvent_atStart_(Event, Ord(False));
//{$else}
//NSApp.postEvent_atStart(Event, False);
//{$endif}
m:=AllocLCLEventMessage(Handle, Msg, wParam, lParam);
m.performSelectorOnMainThread_withObject_waitUntilDone(
ObjCSelector('lclRunEvent:'), nil, false
);
end;
end;