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

cocoa: fix mouse messages sent twice to LCL

Browse Source 
git-svn-id: trunk@51737 -
This commit is contained in:
ondrej 2016-02-28 06:54:43 +00:00
parent 95b3e6fd5c
commit 132fb04646
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -755,7 +755,8 @@ begin
Msg.Msg := CheckMouseButtonDown(Event,MButton);
NotifyApplicationUserInput(Target, Msg.Msg);
Result := DeliverMessage(Msg) <> 0;
DeliverMessage(Msg);
Result := True;
// TODO: Check if Cocoa has special context menu check event
if (Event.type_ = NSRightMouseDown) and (GetTarget is TControl) then
@ -767,7 +768,8 @@ begin
ScreenMousePos(MousePos);
MsgContext.XPos := Round(MousePos.X);
MsgContext.YPos := Round(MousePos.Y);
Result := DeliverMessage(MsgContext) <> 0;
DeliverMessage(MsgContext);
Result := True;
end;
end;
NSLeftMouseUp,
@ -777,7 +779,8 @@ begin
Msg.Msg := MSGKINDUP[MButton];
NotifyApplicationUserInput(Target, Msg.Msg);
Result := DeliverMessage(Msg) <> 0;
DeliverMessage(Msg);
Result := True;
end;
end;