paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 03:30:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

FV add mouse triple click

Browse Source
This commit is contained in:
Margers 2025-01-09 21:50:47 +00:00 committed by Michael Van Canneyt
parent a6b0e4badc
commit c893233359
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fv/src/drivers.inc
View File

@ -339,6 +339,7 @@ TYPE
evMouse: (
Buttons: Byte; { Mouse buttons }
Double: Boolean; { Double click state }
Triple: Boolean; { Triple click state }
Where: TPoint); { Mouse position }
evKeyDown: (
{ ** KEY EVENT ** }
@ -1404,19 +1405,30 @@ begin
MouseWhere.X:=e.x;
MouseWhere.Y:=e.y;
Event.Double:=false;
Event.Triple:=false;
case e.Action of
MouseActionMove :
Event.What:=evMouseMove;
MouseActionDown :
begin
Event.What:=evMouseDown;
if (DownButtons=e.Buttons) and (LastWhere.X=MouseWhere.X) and (LastWhere.Y=MouseWhere.Y) and
if (DownButtons=e.Buttons) and (DownWhere.X=MouseWhere.X) and (DownWhere.Y=MouseWhere.Y) and
(GetDosTicks-DownTicks<=DoubleDelay) then
begin
Event.Double:=true;
if LastDouble and ((e.Buttons and( mbScrollUp or mbScrollDown)) = 0) then
begin {only "normal" buttons can produce triple click}
Event.Double:=false;
Event.Triple:=true;
end;
end;
LastDouble:=Event.Double;
DownButtons:=e.Buttons;
DownWhere.X:=MouseWhere.x;
DownWhere.Y:=MouseWhere.y;
DownTicks:=GetDosTicks;
if Event.Triple then
dec(DownTicks,DoubleDelay); {after triple click can follow only single click}
AutoTicks:=GetDosTicks;
if AutoTicks=0 then
AutoTicks:=1;