From 328ff73c9154fe06516ccf85781744db6c0f900e Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Wed, 3 Nov 2004 22:59:58 +0000
Subject: [PATCH] * fixed GetTickCount

git-svn-id: trunk@6192 -
---
 lcl/lclintf.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/lclintf.pas b/lcl/lclintf.pas
index d9ec632a7a..ff4b22d357 100644
--- a/lcl/lclintf.pas
+++ b/lcl/lclintf.pas
@@ -90,11 +90,8 @@ var
 
 {$IFNDEF Win32}
 function GetTickCount: DWord;
-var
-  hour, minutes, secs, msecs, usecs: word;
 begin
-  GetTime(hour, minutes, secs, msecs, usecs);
-  Result:=(((hour*60)+minutes)*60+secs)*1000+msecs;
+  Result := Trunc(Now * 24 * 60 * 60 * 1000);
 end;
 {$ENDIF}
 
@@ -182,6 +179,9 @@ end.
 
 {
   $Log$
+  Revision 1.17  2004/11/03 22:59:58  marc
+  * fixed GetTickCount
+
   Revision 1.16  2004/08/18 09:31:21  mattias
   removed obsolete unit vclglobals