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

Patch from Graeme to improve epiktimer

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1224 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2010-05-18 08:18:20 +00:00
parent 221ad24074
commit 3010f3d960
3 changed files with 101 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
components/epiktimer/etpackage_dsgn.lpk Normal file
View File

@ -0,0 +1,52 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="3">
<Name Value="etpackage_dsgn"/>
<Author Value="Tom Lisjac <netdxr@gmail.com>"/>
<CompilerOptions>
<Version Value="8"/>
<SearchPaths>
<OtherUnitFiles Value="$(LazarusDir)/lcl/units/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
</SearchPaths>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="EpikTimer elapsed time component
http://wiki.lazarus.freepascal.org/EpikTimer
"/>
<License Value="Modified LGPL
"/>
<Version Major="1"/>
<Files Count="2">
<Item1>
<Filename Value="epiktimer.lrs"/>
<Type Value="LRS"/>
</Item1>
<Item2>
<Filename Value="etpackage_lcl.pas"/>
<HasRegisterProc Value="True"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="etpackage_lcl"/>
</Item2>
</Files>
<Type Value="DesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="etpackage"/>
<MinVersion Major="1" Build="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
</CONFIG>

21
components/epiktimer/etpackage_dsgn.pas Normal file
View File

@ -0,0 +1,21 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit etpackage_dsgn;
interface
uses
etpackage_lcl, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('etpackage_lcl', @etpackage_lcl.Register);
end;
initialization
RegisterPackage('etpackage_dsgn', @Register);
end.

28
components/epiktimer/etpackage_lcl.pas Normal file
View File

@ -0,0 +1,28 @@
unit etpackage_lcl;
{$mode objfpc}{$H+}
interface
uses
Classes, LResources;
procedure Register;
implementation
uses
LazarusPackageIntf, EpikTimer;
procedure Register;
begin
RegisterComponents('System', [TEpikTimer]);
end;
initialization
{$I epiktimer.lrs}
end.