paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:40:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: less hints

Browse Source 
git-svn-id: trunk@58047 -
This commit is contained in:
mattias 2018-05-28 13:43:33 +00:00
parent dfe5c6d9de
commit 62fbb3de6c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/mouseandkeyinput/mouseinputintf.pas
View File

@ -125,7 +125,7 @@ var
TimeStep: Integer;
X, Y: Integer;
Start: TPoint;
S: LongWord;
S: QWord;
begin
Start := Mouse.CursorPos;
@ -133,8 +133,9 @@ begin
begin
TimeStep := Min(Interval, Duration);
S := GetTickCount;
while GetTickCount - S < TimeStep do Application.ProcessMessages;
S := GetTickCount64;
while GetTickCount64 - S < TimeStep do
Application.ProcessMessages;
X := Start.X + ((ScreenX - Start.X) * TimeStep) div Duration;
Y := Start.Y + ((ScreenY - Start.Y) * TimeStep) div Duration;