paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fix for bug report 1953 adapted from S Wiktor

Browse Source
This commit is contained in:
pierre 2002-05-16 20:21:50 +00:00
parent fbf499b13d
commit 3336ceac53
2 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
fv/drivers.pas
View File

@ -1146,20 +1146,14 @@ begin
DownWhere.Y:=MouseWhere.Y;
DownTicks:=GetDosTicks;
AutoTicks:=GetDosTicks;
if AutoTicks=0 then
AutoTicks:=1;
AutoDelay:=RepeatDelay;
end;
MouseActionUp :
begin
Event.What:=evMouseUp;
end;
else
begin
if GetDosTicks-AutoTicks>=AutoDelay then
begin
Event.What:=evMouseAuto;
AutoTicks:=GetDosTicks;
AutoDelay:=1;
end;
AutoTicks:=0;
end;
end;
Event.Buttons:=e.Buttons;
@ -1169,6 +1163,15 @@ begin
LastWhere.x:=Event.Where.x;
LastWhere.y:=Event.Where.y;
end
else if (AutoTicks <> 0) and (GetDosTicks >= AutoTicks + AutoDelay) then
begin
Event.What:=evMouseAuto;
Event.Buttons:=LastButtons;
Event.Where.X:=LastWhere.x;
Event.Where.Y:=LastWhere.y;
AutoTicks:=GetDosTicks;
AutoDelay:=1;
end
else
FillChar(Event,sizeof(TEvent),0);
end;
@ -1486,7 +1489,10 @@ BEGIN
END.
{
$Log$
Revision 1.13 2001-10-02 16:35:50 pierre
Revision 1.14 2002-05-16 20:21:50 pierre
+ fix for bug report 1953 adapted from S Wiktor
Revision 1.13 2001/10/02 16:35:50 pierre
* fix several problems, try to get the graph version to compile
Revision 1.12 2001/08/05 02:03:13 peter

26
fvision/drivers.pas
View File

@ -1146,20 +1146,14 @@ begin
DownWhere.Y:=MouseWhere.Y;
DownTicks:=GetDosTicks;
AutoTicks:=GetDosTicks;
if AutoTicks=0 then
AutoTicks:=1;
AutoDelay:=RepeatDelay;
end;
MouseActionUp :
begin
Event.What:=evMouseUp;
end;
else
begin
if GetDosTicks-AutoTicks>=AutoDelay then
begin
Event.What:=evMouseAuto;
AutoTicks:=GetDosTicks;
AutoDelay:=1;
end;
AutoTicks:=0;
end;
end;
Event.Buttons:=e.Buttons;
@ -1169,6 +1163,15 @@ begin
LastWhere.x:=Event.Where.x;
LastWhere.y:=Event.Where.y;
end
else if (AutoTicks <> 0) and (GetDosTicks >= AutoTicks + AutoDelay) then
begin
Event.What:=evMouseAuto;
Event.Buttons:=LastButtons;
Event.Where.X:=LastWhere.x;
Event.Where.Y:=LastWhere.y;
AutoTicks:=GetDosTicks;
AutoDelay:=1;
end
else
FillChar(Event,sizeof(TEvent),0);
end;
@ -1486,7 +1489,10 @@ BEGIN
END.
{
$Log$
Revision 1.13 2001-10-02 16:35:50 pierre
Revision 1.14 2002-05-16 20:21:50 pierre
+ fix for bug report 1953 adapted from S Wiktor
Revision 1.13 2001/10/02 16:35:50 pierre
* fix several problems, try to get the graph version to compile
Revision 1.12 2001/08/05 02:03:13 peter