You've already forked lazarus-ccr
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:
@@ -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.
|
||||
|
||||
|
Reference in New Issue
Block a user