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

gtk2: fix mouse keys in mouse messages 2

Browse Source 
git-svn-id: trunk@51726 -
This commit is contained in:
ondrej 2016-02-27 06:56:23 +00:00
parent 578a281e53
commit acd27e9025
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2062,9 +2062,9 @@ 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;
2: MessI.Keys := MessI.Keys or MK_DOUBLECLICK;
3: MessI.Keys := MessI.Keys or MK_TRIPLECLICK;
4: MessI.Keys := MessI.Keys or MK_QUADCLICK;
end;
{$IFDEF VerboseMouseBugfix}
@ -2228,11 +2228,6 @@ 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;
@ -2270,6 +2265,11 @@ begin
3: ShiftState := ShiftState - [ssRight];
end;
MessI.Keys := ShiftStateToKeys(ShiftState);
case LastMouse.ClickCount of
2: MessI.Keys := MessI.Keys or MK_DOUBLECLICK;
3: MessI.Keys := MessI.Keys or MK_TRIPLECLICK;
4: MessI.Keys := MessI.Keys or MK_QUADCLICK;
end;
if MessI.Msg <> LM_NULL then
begin