pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Patch from Graeme to improve epiktimer

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

21
components/epiktimer/epiktimer.pas
View File

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

33
components/epiktimer/etpackage.lpk
View File

@@ -1,17 +1,13 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<Package Version="2"> <Package Version="3">
<Name Value="etpackage"/> <Name Value="etpackage"/>
<Author Value="Tom Lisjac <netdxr@gmail.com>"/> <Author Value="Tom Lisjac <netdxr@gmail.com>"/>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="$(LazarusDir)/lcl/units/"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
<UnitOutputDirectory Value="lib"/>
</SearchPaths> </SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
@@ -19,29 +15,20 @@
<Description Value="EpikTimer elapsed time component <Description Value="EpikTimer elapsed time component
http://wiki.lazarus.freepascal.org/EpikTimer http://wiki.lazarus.freepascal.org/EpikTimer
"/> "/>
<License Value="Modifyed LGPL <License Value="Modified LGPL
"/> "/>
<Version Major="1"/> <Version Major="1" Build="1"/>
<Files Count="2"> <Files Count="1">
<Item1> <Item1>
<Filename Value="epiktimer.lrs"/>
<Type Value="LRS"/>
</Item1>
<Item2>
<Filename Value="epiktimer.pas"/> <Filename Value="epiktimer.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="EpikTimer"/> <UnitName Value="EpikTimer"/>
</Item2>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1> </Item1>
<Item2> </Files>
<RequiredPkgs Count="1">
<Item1>
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item2> </Item1>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/> <UnitPath Value="$(PkgOutDir)/"/>

9
components/epiktimer/etpackage.pas
View File

@@ -7,15 +7,8 @@ unit etpackage;
interface interface
uses uses
EpikTimer, LazarusPackageIntf; EpikTimer;
implementation implementation
procedure Register;
begin
RegisterUnit('EpikTimer', @EpikTimer.Register);
end;
initialization
RegisterPackage('etpackage', @Register);
end. end.