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

gtk2: don't propagate mouse after events to parent (by cobines, issue #0014001)

Browse Source 
git-svn-id: trunk@20658 -
This commit is contained in:
paul 2009-06-18 01:11:57 +00:00
parent 2283989588
commit 0de0f63bc5
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/gtk/gtkcallback.inc
View File

@ -1611,7 +1611,7 @@ end;
function gtkMouseBtnPressAfter(widget: PGtkWidget; event : pgdkEventButton;
data: gPointer) : GBoolean; cdecl;
begin
Result := CallBackDefaultReturn;
Result := True;
MousePositionValid := False;
{$IFDEF VerboseMouseBugfix}
@ -1785,8 +1785,8 @@ end;
function gtkMouseBtnReleaseAfter(widget: PGtkWidget; event : pgdkEventButton;
data: gPointer) : GBoolean; cdecl;
begin
Result := CallBackDefaultReturn;
MousePositionValid:=false;
Result := True;
MousePositionValid := False;
{$IFDEF VerboseMouseBugfix}
DebugLn('[gtkMouseBtnReleaseAfter] ',DbgSName(TObject(Data)),' ',