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

epiktimer: Fix compilation for fpc3.0

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5251 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-10-08 11:50:29 +00:00
parent db7fbe66f0
commit 33f7d1b3af
5 changed files with 494 additions and 592 deletions
Download Patch File Download Diff File Expand all files Collapse all files

232
components/epiktimer/etdemo.lpi
View File

@ -1,104 +1,18 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<Version Value="9"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="etdemo"/>
<ActiveEditorIndexAtStart Value="0"/>
<UseXPManifest Value="True"/>
</General>
<LazDoc Paths=""/>
<Units Count="9">
<Unit0>
<CursorPos X="10" Y="3"/>
<EditorIndex Value="0"/>
<Filename Value="etdemo.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="project1"/>
<UsageCount Value="25"/>
</Unit0>
<Unit1>
<CursorPos X="25" Y="182"/>
<EditorIndex Value="4"/>
<Filename Value="main.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="main.lrs"/>
<TopLine Value="174"/>
<UnitName Value="main"/>
<UsageCount Value="20"/>
</Unit1>
<Unit2>
<CursorPos X="1" Y="563"/>
<EditorIndex Value="2"/>
<Filename Value="EpikTimer.pas"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="550"/>
<UnitName Value="EpikTimer"/>
<UsageCount Value="20"/>
</Unit2>
<Unit3>
<CursorPos X="7" Y="6"/>
<EditorIndex Value="1"/>
<Filename Value="newsw.pas"/>
<ComponentName Value="Form2"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="newsw.lrs"/>
<TopLine Value="18"/>
<UnitName Value="newsw"/>
<UsageCount Value="20"/>
</Unit3>
<Unit4>
<CursorPos X="8" Y="7"/>
<EditorIndex Value="3"/>
<Filename Value="splash.pas"/>
<ComponentName Value="Form3"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="splash.lrs"/>
<TopLine Value="1"/>
<UnitName Value="splash"/>
<UsageCount Value="20"/>
</Unit4>
<Unit5>
<CursorPos X="14" Y="8"/>
<Filename Value="C:/Programas/lazarus_stable/fpcsrc/rtl/win32/windows.pp"/>
<TopLine Value="1"/>
<UnitName Value="windows"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<CursorPos X="8" Y="1"/>
<Filename Value="etpackage.pas"/>
<TopLine Value="1"/>
<UnitName Value="etpackage"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<CursorPos X="3" Y="21"/>
<Filename Value="home/felipe/Programa��o/OsciloscopioISA/principal.pas"/>
<ComponentName Value="frmPrincipal"/>
<HasResources Value="True"/>
<ResourceFilename Value="home/felipe/Programa��o/OsciloscopioISA/principal.lrs"/>
<TopLine Value="5"/>
<UnitName Value="principal"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<CursorPos X="12" Y="1495"/>
<Filename Value="usr/share/fpcsrc/rtl/unix/linuxold.inc"/>
<TopLine Value="1478"/>
<UsageCount Value="10"/>
</Unit8>
</Units>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -117,18 +31,128 @@
<MinVersion Major="1" Valid="True"/>
</Item1>
</RequiredPackages>
<JumpHistory Count="0" HistoryIndex="-1"/>
<Units Count="9">
<Unit0>
<Filename Value="etdemo.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<CursorPos X="19" Y="4"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<TopLine Value="212"/>
<CursorPos X="43" Y="239"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="epiktimer.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="EpikTimer"/>
<EditorIndex Value="2"/>
<TopLine Value="236"/>
<CursorPos X="16" Y="255"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="newsw.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="1"/>
<TopLine Value="18"/>
<CursorPos X="7" Y="6"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit3>
<Unit4>
<Filename Value="splash.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form3"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="3"/>
<CursorPos X="8" Y="7"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit4>
<Unit5>
<Filename Value="C:/Programas/lazarus_stable/fpcsrc/rtl/win32/windows.pp"/>
<CursorPos X="14" Y="8"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="etpackage.pas"/>
<CursorPos X="8"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="home/felipe/Programa��o/OsciloscopioISA/principal.pas"/>
<ComponentName Value="frmPrincipal"/>
<HasResources Value="True"/>
<TopLine Value="5"/>
<CursorPos X="3" Y="21"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="usr/share/fpcsrc/rtl/unix/linuxold.inc"/>
<TopLine Value="1478"/>
<CursorPos X="12" Y="1495"/>
<UsageCount Value="10"/>
</Unit8>
</Units>
<JumpHistory Count="4" HistoryIndex="2">
<Position1>
<Filename Value="etdemo.lpr"/>
<Caret Line="4" Column="19"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="230" Column="18" TopLine="211"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="225" Column="24" TopLine="211"/>
</Position3>
<Position4>
<Filename Value="epiktimer.pas"/>
<Caret Line="255" Column="16" TopLine="236"/>
</Position4>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="11"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</CONFIG>

3
components/epiktimer/etdemo.lpr
View File

@ -7,6 +7,9 @@ uses
Forms, main, EpikTimer, newsw, splash;
var i:Integer;
{$R *.res}
begin
Application.Initialize;
Form3 := TForm3.Create(nil);

435
components/epiktimer/main.lfm
View File

@ -1,200 +1,204 @@
object Form1: TForm1
BorderStyle = bsToolWindow
Caption = 'EpikTimer Component Test Application'
OnCreate = Form1CREATE
OnDestroy = Form1DESTROY
PixelsPerInch = 96
Position = poScreenCenter
ShowHint = True
Left = 216
Height = 598
Top = 304
Width = 715
HorzScrollBar.Page = 714
VertScrollBar.Page = 597
Left = 160
Height = 598
Top = 707
Width = 715
BorderStyle = bsToolWindow
Caption = 'EpikTimer Component Test Application'
ClientHeight = 598
ClientWidth = 715
OnCreate = Form1CREATE
OnDestroy = Form1DESTROY
Position = poScreenCenter
ShowHint = True
LCLVersion = '1.7'
object Groupbox2: TGroupBox
Caption = 'Host Hardware Information'
ClientHeight = 77
ClientWidth = 691
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Left = 10
Height = 95
Top = 50
Width = 695
Caption = 'Host Hardware Information'
ClientHeight = 75
ClientWidth = 691
TabOrder = 0
object Label6: TLabel
Caption = 'Has CPUID: '
Color = clNone
Left = 13
Height = 17
Height = 15
Top = 4
Width = 140
Width = 63
Caption = 'Has CPUID: '
ParentColor = False
end
object Label7: TLabel
Caption = 'Has Time Stamp Counter: '
Color = clNone
Left = 168
Height = 17
Height = 15
Top = 4
Width = 190
Width = 139
Caption = 'Has Time Stamp Counter: '
ParentColor = False
end
object Label9: TLabel
Caption = 'Time Stamp Value'
Color = clNone
Left = 133
Height = 17
Height = 15
Top = 55
Width = 120
Width = 95
Caption = 'Time Stamp Value'
ParentColor = False
end
object Label8: TLabel
Caption = 'System Ticks (in microseconds)'
Color = clNone
Left = 363
Height = 17
Height = 15
Top = 55
Width = 185
Width = 166
Caption = 'System Ticks (in microseconds)'
ParentColor = False
end
object Edit4: TEdit
TabOrder = 2
Left = 133
Height = 23
Top = 30
Width = 211
TabOrder = 2
end
object Button6: TButton
Left = 13
Height = 25
Hint = 'Gets the current value of the Pentium Time Stamp counter and the System ticks counter'
Top = 29
Width = 100
BorderSpacing.InnerBorder = 2
Caption = 'Get Time Stamp'
OnClick = Button6CLICK
ParentShowHint = False
ShowHint = True
TabOrder = 0
Left = 13
Height = 25
Hint = 'Gets the current value of the Pentium Time Stamp counter and the System ticks counter'
Top = 29
Width = 100
end
object Edit6: TEdit
TabOrder = 1
Left = 363
Height = 23
Top = 29
Width = 210
TabOrder = 1
end
end
object Groupbox3: TGroupBox
Caption = 'Timer/Stopwatch Functions'
ClientHeight = 152
ClientWidth = 691
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Left = 10
Height = 170
Top = 420
Width = 695
Caption = 'Timer/Stopwatch Functions'
ClientHeight = 150
ClientWidth = 691
TabOrder = 1
object Label3: TLabel
Caption = 'Elapsed seconds'
Color = clNone
Left = 323
Height = 17
Height = 15
Top = 35
Width = 115
Width = 86
Caption = 'Elapsed seconds'
ParentColor = False
end
object Label4: TLabel
Caption = 'Elapsed Day:H:M:S.ms'
Color = clNone
Left = 323
Height = 17
Height = 15
Top = 85
Width = 130
Width = 117
Caption = 'Elapsed Day:H:M:S.ms'
ParentColor = False
end
object Label5: TLabel
Caption = 'Precision'
Color = clNone
Left = 378
Height = 17
Height = 15
Top = 120
Width = 115
Width = 48
Caption = 'Precision'
ParentColor = False
end
object Button2: TButton
Left = 18
Height = 25
Top = 10
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Start'
OnClick = Button2CLICK
TabOrder = 0
Left = 18
Height = 25
Top = 10
Width = 75
end
object Button3: TButton
BorderSpacing.InnerBorder = 2
Caption = 'Stop'
OnClick = Button3CLICK
TabOrder = 1
Left = 18
Height = 25
Top = 80
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Stop'
OnClick = Button3CLICK
TabOrder = 1
end
object Button4: TButton
BorderSpacing.InnerBorder = 2
Caption = 'Elapsed'
OnClick = Button4CLICK
TabOrder = 2
Left = 18
Height = 25
Top = 45
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Elapsed'
OnClick = Button4CLICK
TabOrder = 2
end
object Edit2: TEdit
TabOrder = 3
Left = 323
Height = 23
Top = 10
Width = 155
TabOrder = 3
end
object Edit3: TEdit
TabOrder = 4
Left = 323
Height = 23
Top = 60
Width = 155
TabOrder = 4
end
object Button5: TButton
BorderSpacing.InnerBorder = 2
Caption = 'Clear'
OnClick = Button5CLICK
TabOrder = 5
Left = 18
Height = 25
Top = 115
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Clear'
OnClick = Button5CLICK
TabOrder = 5
end
object Checkbox2: TCheckBox
Left = 533
Height = 19
Top = 117
Width = 68
AllowGrayed = True
Caption = 'Want MS'
DragCursor = crDefault
OnClick = Checkbox2CLICK
TabOrder = 6
Left = 533
Height = 20
Top = 117
Width = 88
end
object Checkbox3: TCheckBox
Left = 443
Height = 19
Top = 118
Width = 76
AllowGrayed = True
Caption = 'Want Days'
DragCursor = crDefault
OnClick = Checkbox3CLICK
TabOrder = 7
Left = 443
Height = 20
Top = 118
Width = 88
end
object Combobox1: TComboBox
Left = 323
Height = 23
Top = 114
Width = 50
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'0'
'1'
@ -204,358 +208,357 @@ object Form1: TForm1
'5'
'6'
)
ItemIndex = 0
MaxLength = 0
OnChange = Combobox1CHANGE
ParentCtl3D = False
Style = csDropDownList
TabOrder = 8
Text = '0'
Left = 323
Height = 21
Top = 114
Width = 50
end
object Edit5: TEdit
TabOrder = 11
Left = 103
Height = 23
Top = 10
Width = 205
TabOrder = 11
end
object Edit8: TEdit
TabOrder = 13
Left = 103
Height = 23
Top = 45
Width = 205
TabOrder = 13
end
object Edit11: TEdit
TabOrder = 9
Left = 103
Height = 23
Top = 80
Width = 205
TabOrder = 9
end
object Edit1: TEdit
TabOrder = 10
Left = 103
Height = 23
Top = 115
Width = 205
TabOrder = 10
end
object Groupbox1: TGroupBox
Caption = 'Spawn Timers'
ClientHeight = 77
ClientWidth = 187
ParentColor = True
ParentCtl3D = False
TabOrder = 12
Left = 492
Height = 95
Top = 10
Width = 191
Caption = 'Spawn Timers'
ClientHeight = 75
ClientWidth = 187
TabOrder = 12
object Button1: TButton
Left = 13
Height = 25
Top = 5
Width = 25
BorderSpacing.InnerBorder = 2
Caption = '1'
OnClick = Button1CLICK
TabOrder = 0
Left = 13
end
object Button9: TButton
Left = 46
Height = 25
Top = 5
Width = 25
end
object Button9: TButton
BorderSpacing.InnerBorder = 2
Caption = '2'
OnClick = Button1CLICK
TabOrder = 1
Left = 46
end
object Button10: TButton
Left = 79
Height = 25
Top = 5
Width = 25
end
object Button10: TButton
BorderSpacing.InnerBorder = 2
Caption = '3'
OnClick = Button1CLICK
TabOrder = 2
Left = 79
end
object Button11: TButton
Left = 112
Height = 25
Top = 5
Width = 25
end
object Button11: TButton
BorderSpacing.InnerBorder = 2
Caption = '4'
OnClick = Button1CLICK
TabOrder = 3
Left = 112
end
object Button12: TButton
Left = 145
Height = 25
Top = 5
Width = 25
end
object Button12: TButton
BorderSpacing.InnerBorder = 2
Caption = '5'
OnClick = Button1CLICK
TabOrder = 4
Left = 145
Height = 25
Top = 5
Width = 25
end
object Button13: TButton
BorderSpacing.InnerBorder = 2
Caption = '6'
OnClick = Button1CLICK
TabOrder = 5
Left = 13
Height = 25
Top = 45
Width = 25
BorderSpacing.InnerBorder = 2
Caption = '6'
OnClick = Button1CLICK
TabOrder = 5
end
object Button14: TButton
BorderSpacing.InnerBorder = 2
Caption = '7'
OnClick = Button1CLICK
TabOrder = 6
Left = 46
Height = 25
Top = 45
Width = 25
BorderSpacing.InnerBorder = 2
Caption = '7'
OnClick = Button1CLICK
TabOrder = 6
end
object Button15: TButton
BorderSpacing.InnerBorder = 2
Caption = '8'
OnClick = Button1CLICK
TabOrder = 7
Left = 79
Height = 25
Top = 45
Width = 25
BorderSpacing.InnerBorder = 2
Caption = '8'
OnClick = Button1CLICK
TabOrder = 7
end
object Button16: TButton
BorderSpacing.InnerBorder = 2
Caption = '9'
OnClick = Button1CLICK
TabOrder = 8
Left = 112
Height = 25
Top = 45
Width = 25
BorderSpacing.InnerBorder = 2
Caption = '9'
OnClick = Button1CLICK
TabOrder = 8
end
object Button17: TButton
BorderSpacing.InnerBorder = 2
Caption = '10'
OnClick = Button1CLICK
TabOrder = 9
Left = 145
Height = 25
Top = 45
Width = 25
BorderSpacing.InnerBorder = 2
Caption = '10'
OnClick = Button1CLICK
TabOrder = 9
end
end
end
object Groupbox4: TGroupBox
Caption = 'Timebase calibration'
ClientHeight = 252
ClientWidth = 691
ParentColor = True
ParentCtl3D = False
TabOrder = 2
Left = 10
Height = 270
Top = 150
Width = 695
Caption = 'Timebase calibration'
ClientHeight = 250
ClientWidth = 691
TabOrder = 2
object Label10: TLabel
Caption = 'SystemSleep(0)'
Color = clNone
Left = 114
Height = 17
Height = 15
Top = 130
Width = 120
Width = 80
Caption = 'SystemSleep(0)'
ParentColor = False
end
object Label16: TLabel
Caption = 'Ticks'
Color = clNone
Left = 253
Height = 17
Height = 15
Top = 130
Width = 85
Width = 27
Caption = 'Ticks'
ParentColor = False
end
object Label17: TLabel
Caption = 'Ticks per second'
Color = clNone
Left = 334
Height = 17
Height = 15
Top = 130
Width = 95
Width = 88
Caption = 'Ticks per second'
ParentColor = False
end
object Label2: TLabel
Caption = 'Jitter (current-previous)'
Color = clNone
Left = 509
Height = 17
Height = 15
Top = 130
Width = 130
Width = 124
Caption = 'Jitter (current-previous)'
ParentColor = False
end
object Memo2: TMemo
ScrollBars = ssAutoVertical
TabOrder = 0
Left = 114
Height = 125
Top = 5
Width = 135
ScrollBars = ssAutoVertical
TabOrder = 0
end
object Memo3: TMemo
ScrollBars = ssAutoVertical
TabOrder = 1
Left = 253
Height = 125
Top = 5
Width = 79
ScrollBars = ssAutoVertical
TabOrder = 1
end
object Memo4: TMemo
ScrollBars = ssAutoVertical
TabOrder = 2
Left = 334
Height = 125
Top = 5
Width = 170
ScrollBars = ssAutoVertical
TabOrder = 2
end
object Button7: TButton
Left = 9
Height = 25
Hint = 'Calls the calibration routines for call overhead calculation and gated timebase frequency measurement'
Top = 5
Width = 95
BorderSpacing.InnerBorder = 2
Caption = 'Calibrate'
OnClick = Button7CLICK
ParentShowHint = False
ShowHint = True
TabOrder = 6
Left = 9
Height = 25
Hint = 'Calls the calibration routines for call overhead calculation and gated timebase frequency measurement'
Top = 5
Width = 95
end
object Radiogroup1: TRadioGroup
Left = 8
Height = 90
Top = 40
Width = 96
AutoFill = True
Caption = 'Timebase'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 70
ClientWidth = 92
Items.Strings = (
'System'
'Hardware'
)
OnClick = Radiogroup1CLICK
ParentColor = True
Left = 8
Height = 90
Top = 40
Width = 96
TabOrder = 5
end
object Memo1: TMemo
ScrollBars = ssAutoVertical
TabOrder = 3
Left = 509
Height = 125
Top = 5
Width = 174
ScrollBars = ssAutoVertical
TabOrder = 3
end
object Groupbox5: TGroupBox
Caption = 'Timebase Correlation'
ClientHeight = 72
ClientWidth = 667
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Left = 8
Height = 90
Top = 155
Width = 671
Caption = 'Timebase Correlation'
ClientHeight = 70
ClientWidth = 667
TabOrder = 4
object Label11: TLabel
Caption = 'System Has Microsecond Clock:'
Color = clNone
Left = 13
Height = 17
Height = 15
Top = 5
Width = 235
Width = 169
Caption = 'System Has Microsecond Clock:'
ParentColor = False
end
object Label1: TLabel
Caption = 'Correlated HW clock frequency'
Color = clNone
Left = 118
Height = 17
Height = 15
Top = 55
Width = 185
Width = 165
Caption = 'Correlated HW clock frequency'
ParentColor = False
end
object Label12: TLabel
Caption = 'Jitter (Hz)'
Color = clNone
Left = 328
Height = 17
Height = 15
Top = 55
Width = 80
Width = 50
Caption = 'Jitter (Hz)'
ParentColor = False
end
object Button8: TButton
BorderSpacing.InnerBorder = 2
Caption = 'Correlate'
OnClick = Button8CLICK
TabOrder = 0
Left = 13
Height = 25
Top = 30
Width = 95
BorderSpacing.InnerBorder = 2
Caption = 'Correlate'
OnClick = Button8CLICK
TabOrder = 0
end
object Edit7: TEdit
TabOrder = 1
Left = 118
Height = 23
Top = 30
Width = 190
TabOrder = 1
end
object Checkbox4: TCheckBox
Left = 473
Height = 19
Top = 33
Width = 110
AllowGrayed = True
Caption = 'Apply Correction'
DragCursor = crDefault
TabOrder = 2
Left = 473
Height = 20
Top = 33
Width = 130
end
object Edit9: TEdit
TabOrder = 3
Left = 328
Height = 23
Top = 30
Width = 125
TabOrder = 3
end
end
end
object Panel1: TPanel
Left = 0
Height = 40
Top = 0
Width = 715
Align = alTop
ClientHeight = 40
ClientWidth = 715
FullRepaint = False
TabOrder = 3
TabStop = True
Height = 40
Width = 715
object Label13: TLabel
Left = 5
Height = 30
Top = 5
Width = 289
Alignment = taCenter
Caption = 'Test and demo program for the EpikTimer component.'#10'Beta release: 7-3-2003'
Color = clNone
Left = 5
Height = 35
Top = 5
Width = 708
ParentColor = False
end
object Button18: TButton
BorderSpacing.InnerBorder = 2
Caption = 'About'
OnClick = Button18CLICK
TabOrder = 0
Left = 660
Height = 25
Top = 8
Width = 45
BorderSpacing.InnerBorder = 2
Caption = 'About'
OnClick = Button18CLICK
TabOrder = 0
end
end
end

405
components/epiktimer/main.lrs
View File

@ -1,273 +1,140 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6'$Ep'
+'ikTimer Component Test Application'#8'OnCreate'#7#11'Form1CREATE'#9'OnDestr'
+'oy'#7#12'Form1DESTROY'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCent'
+'er'#8'ShowHint'#9#18'HorzScrollBar.Page'#3#202#2#18'VertScrollBar.Page'#3'U'
+#2#4'Left'#3#160#0#6'Height'#3'V'#2#3'Top'#3#195#2#5'Width'#3#203#2#0#9'TGro'
+'upBox'#9'Groupbox2'#7'Caption'#6#25'Host Hardware Information'#12'ClientHei'
+'ght'#2'M'#11'ClientWidth'#3#179#2#11'ParentColor'#9#11'ParentCtl3D'#8#8'Tab'
+'Order'#2#0#4'Left'#2#10#6'Height'#2'_'#3'Top'#2'2'#5'Width'#3#183#2#0#6'TLa'
+'bel'#6'Label6'#7'Caption'#6#11'Has CPUID: '#5'Color'#7#6'clNone'#4'Left'#2
+#13#6'Height'#2#17#3'Top'#2#4#5'Width'#3#140#0#0#0#6'TLabel'#6'Label7'#7'Cap'
+'tion'#6#24'Has Time Stamp Counter: '#5'Color'#7#6'clNone'#4'Left'#3#168#0#6
+'Height'#2#17#3'Top'#2#4#5'Width'#3#190#0#0#0#6'TLabel'#6'Label9'#7'Caption'
+#6#16'Time Stamp Value'#5'Color'#7#6'clNone'#4'Left'#3#133#0#6'Height'#2#17#3
+'Top'#2'7'#5'Width'#2'x'#0#0#6'TLabel'#6'Label8'#7'Caption'#6#30'System Tick'
+'s (in microseconds)'#5'Color'#7#6'clNone'#4'Left'#3'k'#1#6'Height'#2#17#3'T'
+'op'#2'7'#5'Width'#3#185#0#0#0#5'TEdit'#5'Edit4'#8'TabOrder'#2#2#4'Left'#3
+#133#0#6'Height'#2#23#3'Top'#2#30#5'Width'#3#211#0#0#0#7'TButton'#7'Button6'
+#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#14'Get Time Stamp'#7'OnClick'
+#7#12'Button6CLICK'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#4'Lef'
+'t'#2#13#6'Height'#2#25#4'Hint'#6'UGets the current value of the Pentium Tim'
+'e Stamp counter and the System ticks counter'#3'Top'#2#29#5'Width'#2'd'#0#0
+#5'TEdit'#5'Edit6'#8'TabOrder'#2#1#4'Left'#3'k'#1#6'Height'#2#23#3'Top'#2#29
+#5'Width'#3#210#0#0#0#0#9'TGroupBox'#9'Groupbox3'#7'Caption'#6#25'Timer/Stop'
+'watch Functions'#12'ClientHeight'#3#152#0#11'ClientWidth'#3#179#2#11'Parent'
+'Color'#9#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#10#6'Height'#3#170#0#3
+'Top'#3#164#1#5'Width'#3#183#2#0#6'TLabel'#6'Label3'#7'Caption'#6#15'Elapsed'
+' seconds'#5'Color'#7#6'clNone'#4'Left'#3'C'#1#6'Height'#2#17#3'Top'#2'#'#5
+'Width'#2's'#0#0#6'TLabel'#6'Label4'#7'Caption'#6#20'Elapsed Day:H:M:S.ms'#5
+'Color'#7#6'clNone'#4'Left'#3'C'#1#6'Height'#2#17#3'Top'#2'U'#5'Width'#3#130
+#0#0#0#6'TLabel'#6'Label5'#7'Caption'#6#9'Precision'#5'Color'#7#6'clNone'#4
+'Left'#3'z'#1#6'Height'#2#17#3'Top'#2'x'#5'Width'#2's'#0#0#7'TButton'#7'Butt'
+'on2'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'Start'#7'OnClick'#7#12
+'Button2CLICK'#8'TabOrder'#2#0#4'Left'#2#18#6'Height'#2#25#3'Top'#2#10#5'Wid'
+'th'#2'K'#0#0#7'TButton'#7'Button3'#25'BorderSpacing.InnerBorder'#2#2#7'Capt'
+'ion'#6#4'Stop'#7'OnClick'#7#12'Button3CLICK'#8'TabOrder'#2#1#4'Left'#2#18#6
+'Height'#2#25#3'Top'#2'P'#5'Width'#2'K'#0#0#7'TButton'#7'Button4'#25'BorderS'
+'pacing.InnerBorder'#2#2#7'Caption'#6#7'Elapsed'#7'OnClick'#7#12'Button4CLIC'
+'K'#8'TabOrder'#2#2#4'Left'#2#18#6'Height'#2#25#3'Top'#2'-'#5'Width'#2'K'#0#0
+#5'TEdit'#5'Edit2'#8'TabOrder'#2#3#4'Left'#3'C'#1#6'Height'#2#23#3'Top'#2#10
+#5'Width'#3#155#0#0#0#5'TEdit'#5'Edit3'#8'TabOrder'#2#4#4'Left'#3'C'#1#6'Hei'
+'ght'#2#23#3'Top'#2'<'#5'Width'#3#155#0#0#0#7'TButton'#7'Button5'#25'BorderS'
+'pacing.InnerBorder'#2#2#7'Caption'#6#5'Clear'#7'OnClick'#7#12'Button5CLICK'
+#8'TabOrder'#2#5#4'Left'#2#18#6'Height'#2#25#3'Top'#2's'#5'Width'#2'K'#0#0#9
+'TCheckBox'#9'Checkbox2'#11'AllowGrayed'#9#7'Caption'#6#7'Want MS'#10'DragCu'
+'rsor'#7#9'crDefault'#7'OnClick'#7#14'Checkbox2CLICK'#8'TabOrder'#2#6#4'Left'
+#3#21#2#6'Height'#2#20#3'Top'#2'u'#5'Width'#2'X'#0#0#9'TCheckBox'#9'Checkbox'
+'3'#11'AllowGrayed'#9#7'Caption'#6#9'Want Days'#10'DragCursor'#7#9'crDefault'
+#7'OnClick'#7#14'Checkbox3CLICK'#8'TabOrder'#2#7#4'Left'#3#187#1#6'Height'#2
+#20#3'Top'#2'v'#5'Width'#2'X'#0#0#9'TComboBox'#9'Combobox1'#13'Items.Strings'
+#1#6#1'0'#6#1'1'#6#1'2'#6#1'3'#6#1'4'#6#1'5'#6#1'6'#0#9'ItemIndex'#2#0#9'Max'
+'Length'#2#0#8'OnChange'#7#15'Combobox1CHANGE'#11'ParentCtl3D'#8#5'Style'#7
+#14'csDropDownList'#8'TabOrder'#2#8#4'Text'#6#1'0'#4'Left'#3'C'#1#6'Height'#2
+#21#3'Top'#2'r'#5'Width'#2'2'#0#0#5'TEdit'#5'Edit5'#8'TabOrder'#2#11#4'Left'
+#2'g'#6'Height'#2#23#3'Top'#2#10#5'Width'#3#205#0#0#0#5'TEdit'#5'Edit8'#8'Ta'
+'bOrder'#2#13#4'Left'#2'g'#6'Height'#2#23#3'Top'#2'-'#5'Width'#3#205#0#0#0#5
+'TEdit'#6'Edit11'#8'TabOrder'#2#9#4'Left'#2'g'#6'Height'#2#23#3'Top'#2'P'#5
+'Width'#3#205#0#0#0#5'TEdit'#5'Edit1'#8'TabOrder'#2#10#4'Left'#2'g'#6'Height'
+#2#23#3'Top'#2's'#5'Width'#3#205#0#0#0#9'TGroupBox'#9'Groupbox1'#7'Caption'#6
+#12'Spawn Timers'#12'ClientHeight'#2'M'#11'ClientWidth'#3#187#0#11'ParentCol'
+'or'#9#11'ParentCtl3D'#8#8'TabOrder'#2#12#4'Left'#3#236#1#6'Height'#2'_'#3'T'
+'op'#2#10#5'Width'#3#191#0#0#7'TButton'#7'Button1'#25'BorderSpacing.InnerBor'
+'der'#2#2#7'Caption'#6#1'1'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#0#4
+'Left'#2#13#6'Height'#2#25#3'Top'#2#5#5'Width'#2#25#0#0#7'TButton'#7'Button9'
+#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1'2'#7'OnClick'#7#12'Button1'
,'CLICK'#8'TabOrder'#2#1#4'Left'#2'.'#6'Height'#2#25#3'Top'#2#5#5'Width'#2#25
+#0#0#7'TButton'#8'Button10'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1
+'3'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#2#4'Left'#2'O'#6'Height'#2#25
+#3'Top'#2#5#5'Width'#2#25#0#0#7'TButton'#8'Button11'#25'BorderSpacing.InnerB'
+'order'#2#2#7'Caption'#6#1'4'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#3#4
+'Left'#2'p'#6'Height'#2#25#3'Top'#2#5#5'Width'#2#25#0#0#7'TButton'#8'Button1'
+'2'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1'5'#7'OnClick'#7#12'Butt'
+'on1CLICK'#8'TabOrder'#2#4#4'Left'#3#145#0#6'Height'#2#25#3'Top'#2#5#5'Width'
+#2#25#0#0#7'TButton'#8'Button13'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'
+#6#1'6'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#5#4'Left'#2#13#6'Height'
+#2#25#3'Top'#2'-'#5'Width'#2#25#0#0#7'TButton'#8'Button14'#25'BorderSpacing.'
+'InnerBorder'#2#2#7'Caption'#6#1'7'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'
+#2#6#4'Left'#2'.'#6'Height'#2#25#3'Top'#2'-'#5'Width'#2#25#0#0#7'TButton'#8
+'Button15'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1'8'#7'OnClick'#7
+#12'Button1CLICK'#8'TabOrder'#2#7#4'Left'#2'O'#6'Height'#2#25#3'Top'#2'-'#5
+'Width'#2#25#0#0#7'TButton'#8'Button16'#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#1'9'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#8#4'Left'#2'p'#6
+'Height'#2#25#3'Top'#2'-'#5'Width'#2#25#0#0#7'TButton'#8'Button17'#25'Border'
+'Spacing.InnerBorder'#2#2#7'Caption'#6#2'10'#7'OnClick'#7#12'Button1CLICK'#8
+'TabOrder'#2#9#4'Left'#3#145#0#6'Height'#2#25#3'Top'#2'-'#5'Width'#2#25#0#0#0
+#0#9'TGroupBox'#9'Groupbox4'#7'Caption'#6#20'Timebase calibration'#12'Client'
+'Height'#3#252#0#11'ClientWidth'#3#179#2#11'ParentColor'#9#11'ParentCtl3D'#8
+#8'TabOrder'#2#2#4'Left'#2#10#6'Height'#3#14#1#3'Top'#3#150#0#5'Width'#3#183
+#2#0#6'TLabel'#7'Label10'#7'Caption'#6#14'SystemSleep(0)'#5'Color'#7#6'clNon'
+'e'#4'Left'#2'r'#6'Height'#2#17#3'Top'#3#130#0#5'Width'#2'x'#0#0#6'TLabel'#7
+'Label16'#7'Caption'#6#5'Ticks'#5'Color'#7#6'clNone'#4'Left'#3#253#0#6'Heigh'
+'t'#2#17#3'Top'#3#130#0#5'Width'#2'U'#0#0#6'TLabel'#7'Label17'#7'Caption'#6
+#16'Ticks per second'#5'Color'#7#6'clNone'#4'Left'#3'N'#1#6'Height'#2#17#3'T'
+'op'#3#130#0#5'Width'#2'_'#0#0#6'TLabel'#6'Label2'#7'Caption'#6#25'Jitter (c'
+'urrent-previous)'#5'Color'#7#6'clNone'#4'Left'#3#253#1#6'Height'#2#17#3'Top'
+#3#130#0#5'Width'#3#130#0#0#0#5'TMemo'#5'Memo2'#10'ScrollBars'#7#14'ssAutoVe'
+'rtical'#8'TabOrder'#2#0#4'Left'#2'r'#6'Height'#2'}'#3'Top'#2#5#5'Width'#3
+#135#0#0#0#5'TMemo'#5'Memo3'#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'
+#2#1#4'Left'#3#253#0#6'Height'#2'}'#3'Top'#2#5#5'Width'#2'O'#0#0#5'TMemo'#5
+'Memo4'#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#2#4'Left'#3'N'#1#6
+'Height'#2'}'#3'Top'#2#5#5'Width'#3#170#0#0#0#7'TButton'#7'Button7'#25'Borde'
+'rSpacing.InnerBorder'#2#2#7'Caption'#6#9'Calibrate'#7'OnClick'#7#12'Button7'
+'CLICK'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#6#4'Left'#2#9#6'Hei'
+'ght'#2#25#4'Hint'#6'eCalls the calibration routines for call overhead calcu'
+'lation and gated timebase frequency measurement'#3'Top'#2#5#5'Width'#2'_'#0
+#0#11'TRadioGroup'#11'Radiogroup1'#7'Caption'#6#8'Timebase'#13'Items.Strings'
+#1#6#6'System'#6#8'Hardware'#0#7'OnClick'#7#16'Radiogroup1CLICK'#11'ParentCo'
+'lor'#9#4'Left'#2#8#6'Height'#2'Z'#3'Top'#2'('#5'Width'#2'`'#0#0#5'TMemo'#5
+'Memo1'#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#3#4'Left'#3#253#1#6
+'Height'#2'}'#3'Top'#2#5#5'Width'#3#174#0#0#0#9'TGroupBox'#9'Groupbox5'#7'Ca'
+'ption'#6#20'Timebase Correlation'#12'ClientHeight'#2'H'#11'ClientWidth'#3
+#155#2#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#4#4'Left'#2#8#6'Hei'
+'ght'#2'Z'#3'Top'#3#155#0#5'Width'#3#159#2#0#6'TLabel'#7'Label11'#7'Caption'
+#6#29'System Has Microsecond Clock:'#5'Color'#7#6'clNone'#4'Left'#2#13#6'Hei'
+'ght'#2#17#3'Top'#2#5#5'Width'#3#235#0#0#0#6'TLabel'#6'Label1'#7'Caption'#6
+#29'Correlated HW clock frequency'#5'Color'#7#6'clNone'#4'Left'#2'v'#6'Heigh'
+'t'#2#17#3'Top'#2'7'#5'Width'#3#185#0#0#0#6'TLabel'#7'Label12'#7'Caption'#6
+#11'Jitter (Hz)'#5'Color'#7#6'clNone'#4'Left'#3'H'#1#6'Height'#2#17#3'Top'#2
+'7'#5'Width'#2'P'#0#0#7'TButton'#7'Button8'#25'BorderSpacing.InnerBorder'#2#2
+#7'Caption'#6#9'Correlate'#7'OnClick'#7#12'Button8CLICK'#8'TabOrder'#2#0#4'L'
+'eft'#2#13#6'Height'#2#25#3'Top'#2#30#5'Width'#2'_'#0#0#5'TEdit'#5'Edit7'#8
+'TabOrder'#2#1#4'Left'#2'v'#6'Height'#2#23#3'Top'#2#30#5'Width'#3#190#0#0#0#9
+'TCheckBox'#9'Checkbox4'#11'AllowGrayed'#9#7'Caption'#6#16'Apply Correction'
+#10'DragCursor'#7#9'crDefault'#8'TabOrder'#2#2#4'Left'#3#217#1#6'Height'#2#20
+#3'Top'#2'!'#5'Width'#3#130#0#0#0#5'TEdit'#5'Edit9'#8'TabOrder'#2#3#4'Left'#3
+'H'#1#6'Height'#2#23#3'Top'#2#30#5'Width'#2'}'#0#0#0#0#6'TPanel'#6'Panel1'#5
+'Align'#7#5'alTop'#12'ClientHeight'#2'('#11'ClientWidth'#3#203#2#11'FullRepa'
+'int'#8#8'TabOrder'#2#3#7'TabStop'#9#6'Height'#2'('#5'Width'#3#203#2#0#6'TLa'
+'bel'#7'Label13'#9'Alignment'#7#8'taCenter'#7'Caption'#6'ITest and demo prog'
,'ram for the EpikTimer component.'#10'Beta release: 7-3-2003'#5'Color'#7#6'c'
+'lNone'#4'Left'#2#5#6'Height'#2'#'#3'Top'#2#5#5'Width'#3#196#2#0#0#7'TButton'
+#8'Button18'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'About'#7'OnCli'
+'ck'#7#13'Button18CLICK'#8'TabOrder'#2#0#4'Left'#3#148#2#6'Height'#2#25#3'To'
+'p'#2#8#5'Width'#2'-'#0#0#0#0
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#216#0#6'Height'#3'V'#2#3'Top'#3'0'#1#5'Wi'
+'dth'#3#203#2#18'HorzScrollBar.Page'#3#202#2#18'VertScrollBar.Page'#3'U'#2#11
+'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6'$EpikTimer Component Test Appl'
+'ication'#12'ClientHeight'#3'V'#2#11'ClientWidth'#3#203#2#8'OnCreate'#7#11'F'
+'orm1CREATE'#9'OnDestroy'#7#12'Form1DESTROY'#8'Position'#7#14'poScreenCenter'
+#8'ShowHint'#9#10'LCLVersion'#6#3'1.7'#0#9'TGroupBox'#9'Groupbox2'#4'Left'#2
+#10#6'Height'#2'_'#3'Top'#2'2'#5'Width'#3#183#2#7'Caption'#6#25'Host Hardwar'
+'e Information'#12'ClientHeight'#2'K'#11'ClientWidth'#3#179#2#8'TabOrder'#2#0
+#0#6'TLabel'#6'Label6'#4'Left'#2#13#6'Height'#2#15#3'Top'#2#4#5'Width'#2'?'#7
+'Caption'#6#11'Has CPUID: '#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'
+#3#168#0#6'Height'#2#15#3'Top'#2#4#5'Width'#3#139#0#7'Caption'#6#24'Has Time'
+' Stamp Counter: '#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#133#0
+#6'Height'#2#15#3'Top'#2'7'#5'Width'#2'_'#7'Caption'#6#16'Time Stamp Value'
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3'k'#1#6'Height'#2#15#3'T'
+'op'#2'7'#5'Width'#3#166#0#7'Caption'#6#30'System Ticks (in microseconds)'#11
+'ParentColor'#8#0#0#5'TEdit'#5'Edit4'#4'Left'#3#133#0#6'Height'#2#23#3'Top'#2
+#30#5'Width'#3#211#0#8'TabOrder'#2#2#0#0#7'TButton'#7'Button6'#4'Left'#2#13#6
+'Height'#2#25#4'Hint'#6'UGets the current value of the Pentium Time Stamp co'
+'unter and the System ticks counter'#3'Top'#2#29#5'Width'#2'd'#25'BorderSpac'
+'ing.InnerBorder'#2#2#7'Caption'#6#14'Get Time Stamp'#7'OnClick'#7#12'Button'
+'6CLICK'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#0#0#5'TEdit'#5'E'
+'dit6'#4'Left'#3'k'#1#6'Height'#2#23#3'Top'#2#29#5'Width'#3#210#0#8'TabOrder'
+#2#1#0#0#0#9'TGroupBox'#9'Groupbox3'#4'Left'#2#10#6'Height'#3#170#0#3'Top'#3
+#164#1#5'Width'#3#183#2#7'Caption'#6#25'Timer/Stopwatch Functions'#12'Client'
+'Height'#3#150#0#11'ClientWidth'#3#179#2#8'TabOrder'#2#1#0#6'TLabel'#6'Label'
+'3'#4'Left'#3'C'#1#6'Height'#2#15#3'Top'#2'#'#5'Width'#2'V'#7'Caption'#6#15
+'Elapsed seconds'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3'C'#1#6
+'Height'#2#15#3'Top'#2'U'#5'Width'#2'u'#7'Caption'#6#20'Elapsed Day:H:M:S.ms'
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3'z'#1#6'Height'#2#15#3'T'
+'op'#2'x'#5'Width'#2'0'#7'Caption'#6#9'Precision'#11'ParentColor'#8#0#0#7'TB'
+'utton'#7'Button2'#4'Left'#2#18#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#25
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'Start'#7'OnClick'#7#12'Button'
+'2CLICK'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button3'#4'Left'#2#18#6'Height'#2
+#25#3'Top'#2'P'#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
+#4'Stop'#7'OnClick'#7#12'Button3CLICK'#8'TabOrder'#2#1#0#0#7'TButton'#7'Butt'
+'on4'#4'Left'#2#18#6'Height'#2#25#3'Top'#2'-'#5'Width'#2'K'#25'BorderSpacing'
+'.InnerBorder'#2#2#7'Caption'#6#7'Elapsed'#7'OnClick'#7#12'Button4CLICK'#8'T'
+'abOrder'#2#2#0#0#5'TEdit'#5'Edit2'#4'Left'#3'C'#1#6'Height'#2#23#3'Top'#2#10
+#5'Width'#3#155#0#8'TabOrder'#2#3#0#0#5'TEdit'#5'Edit3'#4'Left'#3'C'#1#6'Hei'
+'ght'#2#23#3'Top'#2'<'#5'Width'#3#155#0#8'TabOrder'#2#4#0#0#7'TButton'#7'But'
+'ton5'#4'Left'#2#18#6'Height'#2#25#3'Top'#2's'#5'Width'#2'K'#25'BorderSpacin'
+'g.InnerBorder'#2#2#7'Caption'#6#5'Clear'#7'OnClick'#7#12'Button5CLICK'#8'Ta'
+'bOrder'#2#5#0#0#9'TCheckBox'#9'Checkbox2'#4'Left'#3#21#2#6'Height'#2#19#3'T'
+'op'#2'u'#5'Width'#2'D'#11'AllowGrayed'#9#7'Caption'#6#7'Want MS'#10'DragCur'
+'sor'#7#9'crDefault'#7'OnClick'#7#14'Checkbox2CLICK'#8'TabOrder'#2#6#0#0#9'T'
+'CheckBox'#9'Checkbox3'#4'Left'#3#187#1#6'Height'#2#19#3'Top'#2'v'#5'Width'#2
+'L'#11'AllowGrayed'#9#7'Caption'#6#9'Want Days'#10'DragCursor'#7#9'crDefault'
+#7'OnClick'#7#14'Checkbox3CLICK'#8'TabOrder'#2#7#0#0#9'TComboBox'#9'Combobox'
+'1'#4'Left'#3'C'#1#6'Height'#2#23#3'Top'#2'r'#5'Width'#2'2'#10'ItemHeight'#2
+#15#9'ItemIndex'#2#0#13'Items.Strings'#1#6#1'0'#6#1'1'#6#1'2'#6#1'3'#6#1'4'#6
+#1'5'#6#1'6'#0#8'OnChange'#7#15'Combobox1CHANGE'#5'Style'#7#14'csDropDownLis'
+'t'#8'TabOrder'#2#8#4'Text'#6#1'0'#0#0#5'TEdit'#5'Edit5'#4'Left'#2'g'#6'Heig'
+'ht'#2#23#3'Top'#2#10#5'Width'#3#205#0#8'TabOrder'#2#11#0#0#5'TEdit'#5'Edit8'
+#4'Left'#2'g'#6'Height'#2#23#3'Top'#2'-'#5'Width'#3#205#0#8'TabOrder'#2#13#0
+#0#5'TEdit'#6'Edit11'#4'Left'#2'g'#6'Height'#2#23#3'Top'#2'P'#5'Width'#3#205
+#0#8'TabOrder'#2#9#0#0#5'TEdit'#5'Edit1'#4'Left'#2'g'#6'Height'#2#23#3'Top'#2
+'s'#5'Width'#3#205#0#8'TabOrder'#2#10#0#0#9'TGroupBox'#9'Groupbox1'#4'Left'#3
+#236#1#6'Height'#2'_'#3'Top'#2#10#5'Width'#3#191#0#7'Caption'#6#12'Spawn Tim'
+'ers'#12'ClientHeight'#2'K'#11'ClientWidth'#3#187#0#8'TabOrder'#2#12#0#7'TBu'
+'tton'#7'Button1'#4'Left'#2#13#6'Height'#2#25#3'Top'#2#5#5'Width'#2#25#25'Bo'
+'rderSpacing.InnerBorder'#2#2#7'Caption'#6#1'1'#7'OnClick'#7#12'Button1CLICK'
+#8'TabOrder'#2#0#0#0#7'TButton'#7'Button9'#4'Left'#2'.'#6'Height'#2#25#3'Top'
+#2#5#5'Width'#2#25#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1'2'#7'OnC'
+'lick'#7#12'Button1CLICK'#8'TabOrder'#2#1#0#0#7'TButton'#8'Button10'#4'Left'
,#2'O'#6'Height'#2#25#3'Top'#2#5#5'Width'#2#25#25'BorderSpacing.InnerBorder'#2
+#2#7'Caption'#6#1'3'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#2#0#0#7'TBu'
+'tton'#8'Button11'#4'Left'#2'p'#6'Height'#2#25#3'Top'#2#5#5'Width'#2#25#25'B'
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#1'4'#7'OnClick'#7#12'Button1CLIC'
+'K'#8'TabOrder'#2#3#0#0#7'TButton'#8'Button12'#4'Left'#3#145#0#6'Height'#2#25
+#3'Top'#2#5#5'Width'#2#25#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1'5'
+#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#4#0#0#7'TButton'#8'Button13'#4
+'Left'#2#13#6'Height'#2#25#3'Top'#2'-'#5'Width'#2#25#25'BorderSpacing.InnerB'
+'order'#2#2#7'Caption'#6#1'6'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#5#0
+#0#7'TButton'#8'Button14'#4'Left'#2'.'#6'Height'#2#25#3'Top'#2'-'#5'Width'#2
+#25#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#1'7'#7'OnClick'#7#12'Butt'
+'on1CLICK'#8'TabOrder'#2#6#0#0#7'TButton'#8'Button15'#4'Left'#2'O'#6'Height'
+#2#25#3'Top'#2'-'#5'Width'#2#25#25'BorderSpacing.InnerBorder'#2#2#7'Caption'
+#6#1'8'#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#7#0#0#7'TButton'#8'Butto'
+'n16'#4'Left'#2'p'#6'Height'#2#25#3'Top'#2'-'#5'Width'#2#25#25'BorderSpacing'
+'.InnerBorder'#2#2#7'Caption'#6#1'9'#7'OnClick'#7#12'Button1CLICK'#8'TabOrde'
+'r'#2#8#0#0#7'TButton'#8'Button17'#4'Left'#3#145#0#6'Height'#2#25#3'Top'#2'-'
+#5'Width'#2#25#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2'10'#7'OnClic'
+'k'#7#12'Button1CLICK'#8'TabOrder'#2#9#0#0#0#0#9'TGroupBox'#9'Groupbox4'#4'L'
+'eft'#2#10#6'Height'#3#14#1#3'Top'#3#150#0#5'Width'#3#183#2#7'Caption'#6#20
+'Timebase calibration'#12'ClientHeight'#3#250#0#11'ClientWidth'#3#179#2#8'Ta'
+'bOrder'#2#2#0#6'TLabel'#7'Label10'#4'Left'#2'r'#6'Height'#2#15#3'Top'#3#130
+#0#5'Width'#2'P'#7'Caption'#6#14'SystemSleep(0)'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#7'Label16'#4'Left'#3#253#0#6'Height'#2#15#3'Top'#3#130#0#5'Width'#2#27
+#7'Caption'#6#5'Ticks'#11'ParentColor'#8#0#0#6'TLabel'#7'Label17'#4'Left'#3
+'N'#1#6'Height'#2#15#3'Top'#3#130#0#5'Width'#2'X'#7'Caption'#6#16'Ticks per '
+'second'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#253#1#6'Height'
+#2#15#3'Top'#3#130#0#5'Width'#2'|'#7'Caption'#6#25'Jitter (current-previous)'
+#11'ParentColor'#8#0#0#5'TMemo'#5'Memo2'#4'Left'#2'r'#6'Height'#2'}'#3'Top'#2
+#5#5'Width'#3#135#0#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#0#0#0#5
+'TMemo'#5'Memo3'#4'Left'#3#253#0#6'Height'#2'}'#3'Top'#2#5#5'Width'#2'O'#10
+'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#1#0#0#5'TMemo'#5'Memo4'#4'Le'
+'ft'#3'N'#1#6'Height'#2'}'#3'Top'#2#5#5'Width'#3#170#0#10'ScrollBars'#7#14's'
+'sAutoVertical'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button7'#4'Left'#2#9#6'Heig'
+'ht'#2#25#4'Hint'#6'eCalls the calibration routines for call overhead calcul'
+'ation and gated timebase frequency measurement'#3'Top'#2#5#5'Width'#2'_'#25
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#9'Calibrate'#7'OnClick'#7#12'Bu'
+'tton7CLICK'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#6#0#0#11'TRadi'
+'oGroup'#11'Radiogroup1'#4'Left'#2#8#6'Height'#2'Z'#3'Top'#2'('#5'Width'#2'`'
+#8'AutoFill'#9#7'Caption'#6#8'Timebase'#28'ChildSizing.LeftRightSpacing'#2#6
+#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi'
+'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH'
+'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal'
+'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil'
+'dSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'F'#11'ClientWidth'#2'\'#13
+'Items.Strings'#1#6#6'System'#6#8'Hardware'#0#7'OnClick'#7#16'Radiogroup1CLI'
+'CK'#8'TabOrder'#2#5#0#0#5'TMemo'#5'Memo1'#4'Left'#3#253#1#6'Height'#2'}'#3
+'Top'#2#5#5'Width'#3#174#0#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2
+#3#0#0#9'TGroupBox'#9'Groupbox5'#4'Left'#2#8#6'Height'#2'Z'#3'Top'#3#155#0#5
+'Width'#3#159#2#7'Caption'#6#20'Timebase Correlation'#12'ClientHeight'#2'F'
+#11'ClientWidth'#3#155#2#8'TabOrder'#2#4#0#6'TLabel'#7'Label11'#4'Left'#2#13
+#6'Height'#2#15#3'Top'#2#5#5'Width'#3#169#0#7'Caption'#6#29'System Has Micro'
+'second Clock:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2'v'#6'Hei'
+'ght'#2#15#3'Top'#2'7'#5'Width'#3#165#0#7'Caption'#6#29'Correlated HW clock '
+'frequency'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'H'#1#6'Heig'
+'ht'#2#15#3'Top'#2'7'#5'Width'#2'2'#7'Caption'#6#11'Jitter (Hz)'#11'ParentCo'
+'lor'#8#0#0#7'TButton'#7'Button8'#4'Left'#2#13#6'Height'#2#25#3'Top'#2#30#5
+'Width'#2'_'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#9'Correlate'#7'O'
+'nClick'#7#12'Button8CLICK'#8'TabOrder'#2#0#0#0#5'TEdit'#5'Edit7'#4'Left'#2
+'v'#6'Height'#2#23#3'Top'#2#30#5'Width'#3#190#0#8'TabOrder'#2#1#0#0#9'TCheck'
+'Box'#9'Checkbox4'#4'Left'#3#217#1#6'Height'#2#19#3'Top'#2'!'#5'Width'#2'n'
+#11'AllowGrayed'#9#7'Caption'#6#16'Apply Correction'#10'DragCursor'#7#9'crDe'
+'fault'#8'TabOrder'#2#2#0#0#5'TEdit'#5'Edit9'#4'Left'#3'H'#1#6'Height'#2#23#3
+'Top'#2#30#5'Width'#2'}'#8'TabOrder'#2#3#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'
,#2#0#6'Height'#2'('#3'Top'#2#0#5'Width'#3#203#2#5'Align'#7#5'alTop'#12'Clien'
+'tHeight'#2'('#11'ClientWidth'#3#203#2#11'FullRepaint'#8#8'TabOrder'#2#3#7'T'
+'abStop'#9#0#6'TLabel'#7'Label13'#4'Left'#2#5#6'Height'#2#30#3'Top'#2#5#5'Wi'
+'dth'#3'!'#1#9'Alignment'#7#8'taCenter'#7'Caption'#6'ITest and demo program '
+'for the EpikTimer component.'#10'Beta release: 7-3-2003'#11'ParentColor'#8#0
+#0#7'TButton'#8'Button18'#4'Left'#3#148#2#6'Height'#2#25#3'Top'#2#8#5'Width'
+#2'-'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'About'#7'OnClick'#7#13
+'Button18CLICK'#8'TabOrder'#2#0#0#0#0#0
]);

11
components/epiktimer/main.pas
View File

@ -220,14 +220,19 @@ begin
end;
procedure TForm1.Button8CLICK(Sender: TObject);
Var CorrelatedTickFrequency:TickType;
Var
CorrelatedTickFrequency:TickType;
tbdata: TimeBaseData;
begin
CorrelatedTickFrequency:=ET.GetTimebaseCorrelation;
Edit9.text:=format('%.0n',[extended(CorrelationJitter-CorrelatedTickFrequency)]);
Edit7.text:=format('%.0n',[extended(CorrelatedTickFrequency)]);
CorrelationJitter:= CorrelatedTickFrequency;
If checkbox4.checked then
ET.HWTimebase.TicksFrequency:=trunc(CorrelatedTickFrequency);
If checkbox4.checked then begin
tbdata := ET.HWTimebase;
tbdata.TicksFrequency := trunc(CorrelatedTickFrequency);
ET.HWTimebase := tbdata;
end;
end;
procedure TForm1.Checkbox2CLICK(Sender: TObject);