paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Properly implement TimeGetTime and set DropTarget to true. Issue 20732

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2190 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2011-12-11 13:19:07 +00:00
parent 82c33c64f8
commit 0762a333ab
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/virtualtreeview-new/branches/4.8/include/intf/dummydragmanager.inc
View File

@ -666,6 +666,7 @@ function TVTDragManager.GetIsDropTarget: Boolean;
begin begin
//Result := FIsDropTarget; //Result := FIsDropTarget;
Result := True;
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------

12
components/virtualtreeview-new/branches/4.8/units/gtk2/fakemmsystem.pas
View File

@ -5,7 +5,7 @@ unit fakemmsystem;
interface interface
uses uses
Classes, SysUtils, Types; Classes, SysUtils, Types, LCLIntf;
function timeBeginPeriod(x1: DWord): DWord; function timeBeginPeriod(x1: DWord): DWord;
@ -17,21 +17,17 @@ implementation
function timeBeginPeriod(x1: DWord): DWord; function timeBeginPeriod(x1: DWord): DWord;
begin begin
//
end; end;
function timeEndPeriod(x1: DWord): DWord; function timeEndPeriod(x1: DWord): DWord;
begin begin
//
end; end;
function timeGetTime: DWORD; function timeGetTime: DWORD;
var
ATime: TSystemTime;
begin begin
//todo: properly implement Result := GetTickCount;
GetLocalTime(ATime);
Result := ATime.MilliSecond;
end; end;
end. end.