lazarus/components/virtualtreeview/units/qt5/fakemmsystem.pas
balazs 8cb178de2c VTV: Initial commit.
git-svn-id: trunk@56963 -
2018-01-05 09:03:08 +00:00

39 lines
490 B
ObjectPascal

unit fakemmsystem;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Types;
function timeBeginPeriod(x1: DWord): DWord;
function timeEndPeriod(x1: DWord): DWord;
function timeGetTime: DWORD;
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;
end;
end.