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

gtk2: fix mouse keys in mouse messages

Browse Source 
git-svn-id: trunk@51725 -
This commit is contained in:
ondrej 2016-02-27 06:30:20 +00:00
parent 396007f486
commit 578a281e53
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2061,6 +2061,11 @@ var
MessI.Msg := CheckMouseButtonDownUp(AWinControl, LastMouse, EventXY, MouseButton, True);
MessI.Keys := MessI.Keys or BtnKey;
case LastMouse.ClickCount of
2: Msg.Keys := Msg.Keys or MK_DOUBLECLICK;
3: Msg.Keys := Msg.Keys or MK_TRIPLECLICK;
4: Msg.Keys := Msg.Keys or MK_QUADCLICK;
end;
{$IFDEF VerboseMouseBugfix}
DebugLn(' ClickCount=',dbgs(LastMouse.ClickCount));
@ -2223,6 +2228,11 @@ var
function CheckMouseButtonUp(MouseButton, BtnKey: longint): boolean;
begin
MessI.Msg := CheckMouseButtonDownUp(AWinControl, LastMouse, EventXY, MouseButton, False);
case LastMouse.ClickCount of
2: Msg.Keys := Msg.Keys or MK_DOUBLECLICK;
3: Msg.Keys := Msg.Keys or MK_TRIPLECLICK;
4: Msg.Keys := Msg.Keys or MK_QUADCLICK;
end;
Result := True;
end;