paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 23:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: better fix for crash. issue #41449

Browse Source
This commit is contained in:
zeljan1 2025-02-21 20:13:59 +01:00
parent 87877c4fda
commit dc40fbaf65
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2397,7 +2397,7 @@ begin
Event^.button.send_event := NO_PROPAGATION_TO_PARENT;
Result := False;
if SavedHandle <> PtrUInt(Self) then
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
if Msg.Msg = LM_RBUTTONDOWN then
@ -2407,14 +2407,14 @@ begin
MsgPopup.XPos := SmallInt(Round(Event^.button.x_root));
MsgPopup.YPos := SmallInt(Round(Event^.button.y_root));
DeliverMessage(MsgPopup, True);
if SavedHandle <> PtrUInt(Self) then
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
end;
if not Result then
begin
Result := DeliverMessage(Msg, True) <> 0;
if SavedHandle <> PtrUInt(Self) then
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit;
end;