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.