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

Gtk3: fix for sporadic crash, removed unneeded LM_CLICKED. issue #41449

Browse Source
This commit is contained in:
zeljan1 2025-02-22 20:39:10 +01:00
parent ccd49bd9a3
commit a19c10092a
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2422,8 +2422,6 @@ begin
Event^.button.send_event := NO_PROPAGATION_TO_PARENT;
Result := False;
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
if Msg.Msg = LM_RBUTTONDOWN then
begin
@ -2431,22 +2429,18 @@ begin
MsgPopup.Msg := LM_CONTEXTMENU;
MsgPopup.XPos := SmallInt(Round(Event^.button.x_root));
MsgPopup.YPos := SmallInt(Round(Event^.button.y_root));
DeliverMessage(MsgPopup, True);
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
DeliverMessage(MsgPopup, True);
end;
if not Result then
begin
Result := DeliverMessage(Msg, True) <> 0;
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
end;
if Event^.type_ = GDK_BUTTON_RELEASE then
begin
Msg.Msg := LM_CLICKED;
DeliverMessage(Msg, True);
Result := DeliverMessage(Msg, True) <> 0;
end;
end;