paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 13:07:15 +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} interpret button 2 as button 5}
case buttonval of case buttonval of
%00100000,%01000000 : {left button pressed,moved} %00100000,%01000000 : {left button pressed,moved}
MouseEvent.buttons:=1; MouseEvent.buttons:=MouseLeftButton;
%00100001,%01000001 : {middle button pressed,moved } %00100001,%01000001 : {middle button pressed,moved }
MouseEvent.buttons:=2; MouseEvent.buttons:=MouseMiddleButton;
%00100010,%01000010 : { right button pressed,moved } %00100010,%01000010 : { right button pressed,moved }
MouseEvent.buttons:=4; MouseEvent.buttons:=MouseRightButton;
%00100011,%01000011 : { no button pressed,moved } %00100011,%01000011 : { no button pressed,moved }
MouseEvent.buttons:=0; MouseEvent.buttons:=0;
%01100000: { button 4 pressed } %01100000: { button 4 pressed }
@ -739,17 +739,17 @@ const
exit; exit;
case buttonval and (67 or 128) of case buttonval and (67 or 128) of
0 : {left button press} 0 : {left button press}
ButtonMask:=1; ButtonMask:=MouseLeftButton;
1 : {middle button pressed } 1 : {middle button pressed }
ButtonMask:=2; ButtonMask:=MouseMiddleButton;
2 : { right button pressed } 2 : { right button pressed }
ButtonMask:=4; ButtonMask:=MouseRightButton;
3 : { no button pressed } 3 : { no button pressed }
ButtonMask:=0; ButtonMask:=0;
64: { button 4 pressed } 64: { button 4 pressed }
ButtonMask:=8; ButtonMask:=MouseButton4;
65: { button 5 pressed } 65: { button 5 pressed }
ButtonMask:=16; ButtonMask:=MouseButton5;
128: { button browse back } 128: { button browse back }
ButtonMask:=MouseXButton1; ButtonMask:=MouseXButton1;
129: { button browse forward } 129: { button browse forward }