paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 09:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

In console enable mouse buttons browse back/forward (xterm Unix)

Browse Source
This commit is contained in:
Margers 2024-10-04 09:36:10 +00:00 committed by Michael Van Canneyt
parent bda49f7219
commit 8fd249807e
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -737,6 +737,24 @@ const
exit; exit;
if (Y<(Low(MouseEvent.Y)+1)) or (Y>(High(MouseEvent.Y)+1)) then if (Y<(Low(MouseEvent.Y)+1)) or (Y>(High(MouseEvent.Y)+1)) then
exit; exit;
case buttonval and (67 or 128) of
0 : {left button press}
ButtonMask:=1;
1 : {middle button pressed }
ButtonMask:=2;
2 : { right button pressed }
ButtonMask:=4;
3 : { no button pressed }
ButtonMask:=0;
64: { button 4 pressed }
ButtonMask:=8;
65: { button 5 pressed }
ButtonMask:=16;
128: { button browse back }
ButtonMask:=MouseXButton1;
129: { button browse forward }
ButtonMask:=MouseXButton2;
end;
MouseEvent.X:=X-1; MouseEvent.X:=X-1;
MouseEvent.Y:=Y-1; MouseEvent.Y:=Y-1;
if (buttonval and 32)<>0 then if (buttonval and 32)<>0 then
@ -746,20 +764,6 @@ const
end end
else else
begin begin
case buttonval and 67 of
0 : {left button press}
ButtonMask:=1;
1 : {middle button pressed }
ButtonMask:=2;
2 : { right button pressed }
ButtonMask:=4;
3 : { no button pressed }
ButtonMask:=0;
64: { button 4 pressed }
ButtonMask:=8;
65: { button 5 pressed }
ButtonMask:=16;
end;
if ch='M' then if ch='M' then
begin begin
MouseEvent.Action:=MouseActionDown; MouseEvent.Action:=MouseActionDown;