paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 02:58:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: win32: less hints

Browse Source 
git-svn-id: trunk@46902 -
This commit is contained in:
mattias 2014-11-20 15:24:54 +00:00
parent 11db85beb6
commit 6669260656
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32callback.inc
View File

@ -1688,7 +1688,7 @@ begin
// always within the time-window
if (MouseDownCount < 1) or (MouseDownCount > 4) then MouseDownCount := 1;
inc(MouseDownCount);
MouseDownTime := GetTickCount;
MouseDownTime := GetTickCount64;
with LMMouse Do
begin
case MouseDownCount of
@ -1706,13 +1706,13 @@ begin
begin
if (MouseDownCount < 1) or (MouseDownCount > 4) then MouseDownCount := 1;
if (MouseDownWindow = Window)
and (GetTickCount - MouseDownTime <= GetDoubleClickTime)
and (GetTickCount64 - MouseDownTime <= GetDoubleClickTime)
and CheckMouseMovement then
inc(MouseDownCount)
else
MouseDownCount := 1;
MouseDownTime := GetTickCount;
MouseDownTime := GetTickCount64;
MouseDownWindow := Window;
GetCursorPos(MouseDownPos);
NotifyUserInput := True;

4
lcl/interfaces/win32/win32int.pp
View File

@ -1,4 +1,4 @@
{ $Id: win32int.pp 39894 2013-01-19 17:42:38Z juha $ }
{ $Id$ }
{
/***************************************************************************
WIN32INT.pp - Win32Interface Object
@ -263,7 +263,7 @@ type
var
MouseDownCount: Integer;
MouseDownTime: dword;
MouseDownTime: QWord;
MouseDownPos: TPoint;
MouseDownWindow: HWND = 0;
ComboBoxHandleSizeWindow: HWND = 0;