From 0762a333ab23c62a32e6e18cae2fe51f106f3ee5 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 11 Dec 2011 13:19:07 +0000
Subject: [PATCH] * Properly implement TimeGetTime and set DropTarget to true.
 Issue 20732

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2190 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../branches/4.8/include/intf/dummydragmanager.inc   |  1 +
 .../branches/4.8/units/gtk2/fakemmsystem.pas         | 12 ++++--------
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/components/virtualtreeview-new/branches/4.8/include/intf/dummydragmanager.inc b/components/virtualtreeview-new/branches/4.8/include/intf/dummydragmanager.inc
index c6bd4ca70..d4065dae1 100644
--- a/components/virtualtreeview-new/branches/4.8/include/intf/dummydragmanager.inc
+++ b/components/virtualtreeview-new/branches/4.8/include/intf/dummydragmanager.inc
@@ -666,6 +666,7 @@ function TVTDragManager.GetIsDropTarget: Boolean;
 
 begin
   //Result := FIsDropTarget;
+  Result := True;
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
diff --git a/components/virtualtreeview-new/branches/4.8/units/gtk2/fakemmsystem.pas b/components/virtualtreeview-new/branches/4.8/units/gtk2/fakemmsystem.pas
index f73f1a5b5..0ccb81599 100644
--- a/components/virtualtreeview-new/branches/4.8/units/gtk2/fakemmsystem.pas
+++ b/components/virtualtreeview-new/branches/4.8/units/gtk2/fakemmsystem.pas
@@ -5,7 +5,7 @@ unit fakemmsystem;
 interface
 
 uses
-  Classes, SysUtils, Types;
+  Classes, SysUtils, Types, LCLIntf;
   
 function timeBeginPeriod(x1: DWord): DWord;
 
@@ -17,21 +17,17 @@ implementation
 
 function timeBeginPeriod(x1: DWord): DWord;
 begin
-
+  //
 end;
 
 function timeEndPeriod(x1: DWord): DWord;
 begin
-
+  //
 end;
 
 function timeGetTime: DWORD;
-var
-  ATime: TSystemTime;
 begin
-  //todo: properly implement
-  GetLocalTime(ATime);
-  Result := ATime.MilliSecond;
+  Result := GetTickCount;
 end;
 
 end.