diff --git a/components/epiktimer/etdemo.lpi b/components/epiktimer/etdemo.lpi index 5210f9214..e23b5cbd7 100644 --- a/components/epiktimer/etdemo.lpi +++ b/components/epiktimer/etdemo.lpi @@ -1,104 +1,18 @@ - + - - + + + + - - - <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> diff --git a/components/epiktimer/etdemo.lpr b/components/epiktimer/etdemo.lpr index 96ba3c5bc..7188afdee 100644 --- a/components/epiktimer/etdemo.lpr +++ b/components/epiktimer/etdemo.lpr @@ -7,6 +7,9 @@ uses Forms, main, EpikTimer, newsw, splash; var i:Integer; + +{$R *.res} + begin Application.Initialize; Form3 := TForm3.Create(nil); diff --git a/components/epiktimer/main.lfm b/components/epiktimer/main.lfm index 7944567a4..c1fc465b9 100644 --- a/components/epiktimer/main.lfm +++ b/components/epiktimer/main.lfm @@ -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 diff --git a/components/epiktimer/main.lrs b/components/epiktimer/main.lrs index d305720b2..c87afadea 100644 --- a/components/epiktimer/main.lrs +++ b/components/epiktimer/main.lrs @@ -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 ]); - diff --git a/components/epiktimer/main.pas b/components/epiktimer/main.pas index 6438d87a4..f79d268e4 100644 --- a/components/epiktimer/main.pas +++ b/components/epiktimer/main.pas @@ -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);