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

gtk2: fix mouse button index regression from r51723 #a26b02db5a

Browse Source 
git-svn-id: trunk@51750 -
This commit is contained in:
ondrej 2016-02-29 09:32:09 +00:00
parent 110fbf2c35
commit b294e20fc9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2114,8 +2114,8 @@ begin
MessI.Keys := 0; MessI.Keys := 0;
case event^.Button of case event^.Button of
1: if not CheckMouseButtonDown(1, MK_LBUTTON) then Exit; 1: if not CheckMouseButtonDown(1, MK_LBUTTON) then Exit;
2: if not CheckMouseButtonDown(2, MK_MBUTTON) then Exit; 2: if not CheckMouseButtonDown(3, MK_MBUTTON) then Exit;
3: if not CheckMouseButtonDown(3, MK_RBUTTON) then Exit; 3: if not CheckMouseButtonDown(2, MK_RBUTTON) then Exit;
8: if not CheckMouseButtonDown(4, MK_XBUTTON1) then Exit; 8: if not CheckMouseButtonDown(4, MK_XBUTTON1) then Exit;
9: if not CheckMouseButtonDown(4, MK_XBUTTON2) then Exit; 9: if not CheckMouseButtonDown(4, MK_XBUTTON2) then Exit;
else else
@ -2244,8 +2244,8 @@ begin
case event^.Button of case event^.Button of
1: if not CheckMouseButtonUp(1, LM_LBUTTONUP) then Exit; 1: if not CheckMouseButtonUp(1, LM_LBUTTONUP) then Exit;
2: if not CheckMouseButtonUp(2, LM_MBUTTONUP) then Exit; 2: if not CheckMouseButtonUp(3, LM_MBUTTONUP) then Exit;
3: if not CheckMouseButtonUp(3, LM_RBUTTONUP) then exit; 3: if not CheckMouseButtonUp(2, LM_RBUTTONUP) then exit;
8: if not CheckMouseButtonUp(4, LM_XBUTTONUP) then exit; 8: if not CheckMouseButtonUp(4, LM_XBUTTONUP) then exit;
9: if not CheckMouseButtonUp(4, LM_XBUTTONUP) then exit; 9: if not CheckMouseButtonUp(4, LM_XBUTTONUP) then exit;
else else