Patch from Graeme to improve epiktimer

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1223 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2010-05-18 08:15:32 +00:00
parent 7dc3b52515
commit 221ad24074
3 changed files with 14 additions and 51 deletions

View File

@@ -70,12 +70,9 @@ uses
{$IFDEF Windows}
Windows, MMSystem,
{$ELSE}
baseunix, unix, unixutil,
unix, unixutil,
{$ENDIF}
{$IFDEF FPC}
LResources,
{$ENDIF}
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, dateutils;
Classes, SysUtils, dateutils;
Const
DefaultSystemTicksPerSecond = 1000000; //Divisor for microsecond resolution
@@ -279,7 +276,6 @@ type
property CorrelationMode:CorrelationModes read FCorrelationMode write FCorrelationMode;
end;
procedure Register;
implementation
@@ -785,18 +781,5 @@ begin
// here in case we need to clean something up in a later version
end;
(* * * * * * * * * * * Register Component * * * * * * * * * * * *)
procedure Register;
begin
RegisterComponents('System', [TEpikTimer]);
end;
Initialization
{$IFDEF FPC}
{$I epiktimer.lrs}
{$ENDIF}
end.