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

Carbon: fixes in NotifyApplicationUserInput

Browse Source
This commit is contained in:
Lipinast Lekrisov 2025-04-29 09:35:32 +00:00 committed by Maxim Ganetsky
parent 3636904959
commit b8daf2d0c1
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbonprivatecommon.inc
View File

@ -192,7 +192,7 @@ begin
if Widget.NeedDeliverMouseEvent(Msg.Msg, Msg) then
begin
NotifyApplicationUserInput(Widget.LCLObject, Msg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@Msg)^);
DeliverMessage(Widget.LCLObject, Msg);
end;
end;
@ -228,7 +228,7 @@ begin
PostponedDown := False;
if AWidget.NeedDeliverMouseEvent(PostponedDownMsg.Msg, PostponedDownMsg) then
begin
NotifyApplicationUserInput(AWidget.LCLObject, PostponedDownMsg.Msg);
NotifyApplicationUserInput(AWidget.LCLObject, PLMessage(@PostponedDownMsg)^);
DeliverMessage(AWidget.LCLObject, PostponedDownMsg);
end;
end;
@ -300,7 +300,7 @@ begin
begin
DeliverMessage(AWidget.LCLObject, Msg);
NotifyApplicationUserInput(AWidget.LCLObject, Msg.Msg);
NotifyApplicationUserInput(AWidget.LCLObject, PLMessage(@Msg)^);
CarbonWidgetSet.SetCaptureWidget(0); // capture is released
end;
end;

2
lcl/interfaces/carbon/carbonprivatecontrol.inc
View File

@ -41,7 +41,7 @@ begin
// send postponed mouse up event
DeliverMessage(LCLTarget, SavedMouseUpMsg);
NotifyApplicationUserInput(LCLTarget, SavedMouseUpMsg.Msg);
NotifyApplicationUserInput(LCLTarget, PLMessage(@SavedMouseUpMsg)^);
CarbonWidgetSet.SetCaptureWidget(0); // capture is released
end;

14
lcl/interfaces/carbon/carbonprivatewindow.inc
View File

@ -331,7 +331,7 @@ begin
begin
if Widget.NeedDeliverMouseEvent(Msg.Message.Msg, Msg) then begin
// Msg is set in the Appropriate HandleMousexxx procedure
NotifyApplicationUserInput(Widget.LCLObject, Msg.Message.Msg);
NotifyApplicationUserInput(Widget.LCLObject, Msg.Message);
if DeliverMessage(Widget.LCLObject, Msg) = 0 then
begin
Result := EventNotHandledErr;
@ -753,7 +753,7 @@ const
DebugLn('[HandleRawKeyDownEvent] LCL handled CN_KEYDOWN, exiting');
{$ENDIF}
NotifyApplicationUserInput(Widget.LCLObject, KeyMsg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@KeyMsg)^);
Result := noErr;
Exit;
end;
@ -773,7 +773,7 @@ const
{$ENDIF}
//Result already set by CallNextEventHandler
NotifyApplicationUserInput(Widget.LCLObject, KeyMsg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@KeyMsg)^);
Exit;
end;
end;
@ -813,7 +813,7 @@ const
if Result=EventNotHandledErr then
Result := noErr;
NotifyApplicationUserInput(Widget.LCLObject, CharMsg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@CharMsg)^);
Exit;
end;
if CharMsg.CharCode<>ord(KeyChar) then
@ -847,7 +847,7 @@ const
if Result=EventNotHandledErr then
Result := noErr;
NotifyApplicationUserInput(Widget.LCLObject, CharMsg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@CharMsg)^);
Exit;
end;
end;
@ -880,7 +880,7 @@ const
{$ENDIF}
Result := noErr;
NotifyApplicationUserInput(Widget.LCLObject, KeyMsg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@KeyMsg)^);
Exit;
end;
@ -901,7 +901,7 @@ const
if Result=EventNotHandledErr then
Result := noErr;
NotifyApplicationUserInput(Widget.LCLObject, KeyMsg.Msg);
NotifyApplicationUserInput(Widget.LCLObject, PLMessage(@KeyMsg)^);
Exit;
end;
end;