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

Gtk3: send LM_CONTEXTMENU in proper order.

Browse Source
This commit is contained in:
zeljan1 2025-03-26 18:43:33 +01:00
parent 4f7b7c63ef
commit 336c552579
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -2251,9 +2251,11 @@ begin
NotifyApplicationUserInput(LCLObject, Msg.Msg); NotifyApplicationUserInput(LCLObject, Msg.Msg);
Event^.button.send_event := NO_PROPAGATION_TO_PARENT; Event^.button.send_event := NO_PROPAGATION_TO_PARENT;
Result := False; if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
Result := DeliverMessage(Msg, True) <> 0;
if Msg.Msg = LM_RBUTTONDOWN then if not Result and (Msg.Msg = LM_RBUTTONDOWN) then
begin begin
MsgPopup := Msg; MsgPopup := Msg;
MsgPopup.Msg := LM_CONTEXTMENU; MsgPopup.Msg := LM_CONTEXTMENU;
@ -2266,12 +2268,6 @@ begin
Result := DeliverMessage(MsgPopup, True) <> 0; Result := DeliverMessage(MsgPopup, True) <> 0;
end; end;
if not Result then
begin
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
Result := DeliverMessage(Msg, True) <> 0;
end;
if wtPanel in WidgetType then if wtPanel in WidgetType then
Result := GDK_EVENT_STOP; Result := GDK_EVENT_STOP;
end; end;
@ -3030,9 +3026,11 @@ begin
// we must trigger get_preferred_width after changing size // we must trigger get_preferred_width after changing size
Widget^.queue_resize; Widget^.queue_resize;
if [wtCustomControl, wtScrollingWinControl] * WidgetType <> [] then
{if wtProgressBar in WidgetType then begin
getContainerWidget^.set_size_request(AWidth, AHeight);} if Gtk3IsGdkWindow(Widget^.get_window) then
Widget^.get_window^.process_updates(True);
end;
finally finally
EndUpdate; EndUpdate;
end; end;