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

Gtk3: fixed right mouse click behaviour.

Browse Source
This commit is contained in:
zeljan1 2025-03-07 09:05:47 +01:00
parent e8fa62c8e7
commit 46def57926
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2290,11 +2290,7 @@ begin
' Event.Type=',Event^.type_,' Capture=',LCLintf.GetCapture); ' Event.Type=',Event^.type_,' Capture=',LCLintf.GetCapture);
{$ENDIF} {$ENDIF}
if Event^.button.send_event = NO_PROPAGATION_TO_PARENT then if Event^.button.send_event = NO_PROPAGATION_TO_PARENT then
begin
if Event^.type_ <> GDK_BUTTON_RELEASE then
LCLIntf.SetCapture(HWND(Self));
exit(gtk_true); exit(gtk_true);
end;
SavedHandle := PtrUInt(Self); SavedHandle := PtrUInt(Self);
@ -2396,7 +2392,7 @@ begin
if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then if (SavedHandle <> PtrUInt(Self)) or (LCLObject = nil) or (FWidget = nil) then
exit; exit;
DeliverMessage(MsgPopup, True); Result := DeliverMessage(MsgPopup, True) <> 0;
end; end;
if not Result then if not Result then