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

Correct mouse button mapping under Unix

Browse Source
This commit is contained in:
Margers 2025-01-09 21:33:44 +00:00 committed by Michael Van Canneyt
parent 24f498292a
commit beb8e63075
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/rtl-console/src/unix/keyboard.pp
View File

@ -551,11 +551,11 @@ const
interpret button 2 as button 5}
case buttonval of
%00100000,%01000000 : {left button pressed,moved}
MouseEvent.buttons:=1;
MouseEvent.buttons:=MouseLeftButton;
%00100001,%01000001 : {middle button pressed,moved }
MouseEvent.buttons:=2;
MouseEvent.buttons:=MouseMiddleButton;
%00100010,%01000010 : { right button pressed,moved }
MouseEvent.buttons:=4;
MouseEvent.buttons:=MouseRightButton;
%00100011,%01000011 : { no button pressed,moved }
MouseEvent.buttons:=0;
%01100000: { button 4 pressed }
@ -739,17 +739,17 @@ const
exit;
case buttonval and (67 or 128) of
0 : {left button press}
ButtonMask:=1;
ButtonMask:=MouseLeftButton;
1 : {middle button pressed }
ButtonMask:=2;
ButtonMask:=MouseMiddleButton;
2 : { right button pressed }
ButtonMask:=4;
ButtonMask:=MouseRightButton;
3 : { no button pressed }
ButtonMask:=0;
64: { button 4 pressed }
ButtonMask:=8;
ButtonMask:=MouseButton4;
65: { button 5 pressed }
ButtonMask:=16;
ButtonMask:=MouseButton5;
128: { button browse back }
ButtonMask:=MouseXButton1;
129: { button browse forward }