paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 07:57:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

Sparta_DockedFormEditor: GTK2: Fixed mouse default event handler creation. Issue #32199

Browse Source 
git-svn-id: trunk@56053 -
This commit is contained in:
michl 2017-10-14 15:03:46 +00:00
parent ecfce9f8b0
commit a66ce4f9b5
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -2074,15 +2074,21 @@ var
end;
end;
if (LastMouse.Down) and
(not (gdk_event_get_type(Event) in [GDK_BUTTON_PRESS, gdk_2button_press, gdk_3button_press]))
then begin
{$IFDEF VerboseMouseBugfix}
DebugLn('DeliverMouseDownMessage: NO CLICK: LastMouse.Down=',dbgs(LastMouse.Down),
' Event^.theType=',dbgs(gdk_event_get_type(Event)));
{$ENDIF}
Exit;
end;
if (LastMouse.Down) then
if (gdk_event_get_type(Event) in [GDK_BUTTON_PRESS, gdk_2button_press, gdk_3button_press]) then
begin
// After a LastMouse.Down has to follow a LastMouse.Up. Issue #32199
if LastMouse.WinControl <> AWinControl then
Exit;
end
else
begin
{$IFDEF VerboseMouseBugfix}
DebugLn('DeliverMouseDownMessage: NO CLICK: LastMouse.Down=',dbgs(LastMouse.Down),
' Event^.theType=',dbgs(gdk_event_get_type(Event)));
{$ENDIF}
Exit;
end;
if (LastMouse.Down) and (gdk_event_get_type(Event) = GDK_BUTTON_PRESS) and
(csDesigning in AWinControl.ComponentState) then