paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Win32: fix range check error with newly started Windows. Issue #20321, patch from Benito van der Zander

Browse Source 
git-svn-id: trunk@32464 -
This commit is contained in:
juha 2011-09-23 07:41:10 +00:00
parent e0f7806aca
commit 4d3cc5e247
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,7 +294,10 @@ const
initialization
{ initialize mousedownclick to far before double click time }
MouseDownTime := GetTickCount - 5000;
if GetTickCount > 5000 then
MouseDownTime := GetTickCount - 5000
else
MouseDownTime := 0;
{$IFDEF WindowsUnicodeSupport}
SystemCharSetIsUTF8:=true;
{$ELSE}