main.lfm

object Form1: TForm1
  Left = 326
  Height = 598
  Top = 248
  Width = 715
  HorzScrollBar.Page = 714
  VertScrollBar.Page = 597
  BorderStyle = bsToolWindow
  Caption = 'EpikTimer Component Test Application'
  ClientHeight = 598
  ClientWidth = 715
  OnCreate = Form1CREATE
  OnDestroy = Form1DESTROY
  Position = poScreenCenter
  ShowHint = True
  LCLVersion = '1.1'
  object Groupbox2: TGroupBox
    Left = 10
    Height = 95
    Top = 50
    Width = 695
    Caption = 'Host Hardware Information'
    ClientHeight = 78
    ClientWidth = 691
    TabOrder = 0
    object Label6: TLabel
      Left = 13
      Height = 15
      Top = 4
      Width = 77
      Caption = 'Has CPUID: '
      ParentColor = False
    end
    object Label7: TLabel
      Left = 168
      Height = 15
      Top = 4
      Width = 170
      Caption = 'Has Time Stamp Counter: '
      ParentColor = False
    end
    object Label9: TLabel
      Left = 133
      Height = 15
      Top = 55
      Width = 117
      Caption = 'Time Stamp Value'
      ParentColor = False
    end
    object Label8: TLabel
      Left = 363
      Height = 15
      Top = 55
      Width = 202
      Caption = 'System Ticks (in microseconds)'
      ParentColor = False
    end
    object Edit4: TEdit
      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
    end
    object Edit6: TEdit
      Left = 363
      Height = 23
      Top = 29
      Width = 210
      TabOrder = 1
    end
  end
  object Groupbox3: TGroupBox
    Left = 10
    Height = 170
    Top = 420
    Width = 695
    Caption = 'Timer/Stopwatch Functions'
    ClientHeight = 153
    ClientWidth = 691
    TabOrder = 1
    object Label3: TLabel
      Left = 323
      Height = 15
      Top = 35
      Width = 107
      Caption = 'Elapsed seconds'
      ParentColor = False
    end
    object Label4: TLabel
      Left = 323
      Height = 15
      Top = 85
      Width = 144
      Caption = 'Elapsed Day:H:M:S.ms'
      ParentColor = False
    end
    object Label5: TLabel
      Left = 378
      Height = 15
      Top = 120
      Width = 57
      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
    end
    object Button3: TButton
      Left = 18
      Height = 25
      Top = 80
      Width = 75
      BorderSpacing.InnerBorder = 2
      Caption = 'Stop'
      OnClick = Button3CLICK
      TabOrder = 1
    end
    object Button4: TButton
      Left = 18
      Height = 25
      Top = 45
      Width = 75
      BorderSpacing.InnerBorder = 2
      Caption = 'Elapsed'
      OnClick = Button4CLICK
      TabOrder = 2
    end
    object Edit2: TEdit
      Left = 323
      Height = 23
      Top = 10
      Width = 155
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 323
      Height = 23
      Top = 60
      Width = 155
      TabOrder = 4
    end
    object Button5: TButton
      Left = 18
      Height = 25
      Top = 115
      Width = 75
      BorderSpacing.InnerBorder = 2
      Caption = 'Clear'
      OnClick = Button5CLICK
      TabOrder = 5
    end
    object Checkbox2: TCheckBox
      Left = 533
      Height = 21
      Top = 117
      Width = 78
      AllowGrayed = True
      Caption = 'Want MS'
      DragCursor = crDefault
      OnClick = Checkbox2CLICK
      TabOrder = 6
    end
    object Checkbox3: TCheckBox
      Left = 443
      Height = 21
      Top = 118
      Width = 90
      AllowGrayed = True
      Caption = 'Want Days'
      DragCursor = crDefault
      OnClick = Checkbox3CLICK
      TabOrder = 7
    end
    object Combobox1: TComboBox
      Left = 323
      Height = 23
      Top = 114
      Width = 50
      ItemHeight = 0
      ItemIndex = 0
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
      )
      OnChange = Combobox1CHANGE
      Style = csDropDownList
      TabOrder = 8
      Text = '0'
    end
    object Edit5: TEdit
      Left = 103
      Height = 23
      Top = 10
      Width = 205
      TabOrder = 11
    end
    object Edit8: TEdit
      Left = 103
      Height = 23
      Top = 45
      Width = 205
      TabOrder = 13
    end
    object Edit11: TEdit
      Left = 103
      Height = 23
      Top = 80
      Width = 205
      TabOrder = 9
    end
    object Edit1: TEdit
      Left = 103
      Height = 23
      Top = 115
      Width = 205
      TabOrder = 10
    end
    object Groupbox1: TGroupBox
      Left = 492
      Height = 95
      Top = 10
      Width = 191
      Caption = 'Spawn Timers'
      ClientHeight = 78
      ClientWidth = 187
      TabOrder = 12
      object Button1: TButton
        Left = 13
        Height = 25
        Top = 5
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '1'
        OnClick = Button1CLICK
        TabOrder = 0
      end
      object Button9: TButton
        Left = 46
        Height = 25
        Top = 5
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '2'
        OnClick = Button1CLICK
        TabOrder = 1
      end
      object Button10: TButton
        Left = 79
        Height = 25
        Top = 5
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '3'
        OnClick = Button1CLICK
        TabOrder = 2
      end
      object Button11: TButton
        Left = 112
        Height = 25
        Top = 5
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '4'
        OnClick = Button1CLICK
        TabOrder = 3
      end
      object Button12: TButton
        Left = 145
        Height = 25
        Top = 5
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '5'
        OnClick = Button1CLICK
        TabOrder = 4
      end
      object Button13: TButton
        Left = 13
        Height = 25
        Top = 45
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '6'
        OnClick = Button1CLICK
        TabOrder = 5
      end
      object Button14: TButton
        Left = 46
        Height = 25
        Top = 45
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '7'
        OnClick = Button1CLICK
        TabOrder = 6
      end
      object Button15: TButton
        Left = 79
        Height = 25
        Top = 45
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '8'
        OnClick = Button1CLICK
        TabOrder = 7
      end
      object Button16: TButton
        Left = 112
        Height = 25
        Top = 45
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '9'
        OnClick = Button1CLICK
        TabOrder = 8
      end
      object Button17: TButton
        Left = 145
        Height = 25
        Top = 45
        Width = 25
        BorderSpacing.InnerBorder = 2
        Caption = '10'
        OnClick = Button1CLICK
        TabOrder = 9
      end
    end
  end
  object Groupbox4: TGroupBox
    Left = 10
    Height = 270
    Top = 150
    Width = 695
    Caption = 'Timebase calibration'
    ClientHeight = 253
    ClientWidth = 691
    TabOrder = 2
    object Label10: TLabel
      Left = 114
      Height = 15
      Top = 130
      Width = 103
      Caption = 'SystemSleep(0)'
      ParentColor = False
    end
    object Label16: TLabel
      Left = 253
      Height = 15
      Top = 130
      Width = 31
      Caption = 'Ticks'
      ParentColor = False
    end
    object Label17: TLabel
      Left = 334
      Height = 15
      Top = 130
      Width = 106
      Caption = 'Ticks per second'
      ParentColor = False
    end
    object Label2: TLabel
      Left = 509
      Height = 15
      Top = 130
      Width = 148
      Caption = 'Jitter (current-previous)'
      ParentColor = False
    end
    object Memo2: TMemo
      Left = 114
      Height = 125
      Top = 5
      Width = 135
      ScrollBars = ssAutoVertical
      TabOrder = 0
    end
    object Memo3: TMemo
      Left = 253
      Height = 125
      Top = 5
      Width = 79
      ScrollBars = ssAutoVertical
      TabOrder = 1
    end
    object Memo4: TMemo
      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
    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 = 73
      ClientWidth = 92
      Items.Strings = (
        'System'
        'Hardware'
      )
      OnClick = Radiogroup1CLICK
      TabOrder = 5
    end
    object Memo1: TMemo
      Left = 509
      Height = 125
      Top = 5
      Width = 174
      ScrollBars = ssAutoVertical
      TabOrder = 3
    end
    object Groupbox5: TGroupBox
      Left = 8
      Height = 90
      Top = 155
      Width = 671
      Caption = 'Timebase Correlation'
      ClientHeight = 73
      ClientWidth = 667
      TabOrder = 4
      object Label11: TLabel
        Left = 13
        Height = 15
        Top = 5
        Width = 204
        Caption = 'System Has Microsecond Clock:'
        ParentColor = False
      end
      object Label1: TLabel
        Left = 118
        Height = 15
        Top = 55
        Width = 195
        Caption = 'Correlated HW clock frequency'
        ParentColor = False
      end
      object Label12: TLabel
        Left = 328
        Height = 15
        Top = 55
        Width = 60
        Caption = 'Jitter (Hz)'
        ParentColor = False
      end
      object Button8: TButton
        Left = 13
        Height = 25
        Top = 30
        Width = 95
        BorderSpacing.InnerBorder = 2
        Caption = 'Correlate'
        OnClick = Button8CLICK
        TabOrder = 0
      end
      object Edit7: TEdit
        Left = 118
        Height = 23
        Top = 30
        Width = 190
        TabOrder = 1
      end
      object Checkbox4: TCheckBox
        Left = 473
        Height = 21
        Top = 33
        Width = 128
        AllowGrayed = True
        Caption = 'Apply Correction'
        DragCursor = crDefault
        TabOrder = 2
      end
      object Edit9: TEdit
        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
    object Label13: TLabel
      Left = 5
      Height = 33
      Top = 5
      Width = 346
      Alignment = taCenter
      Caption = 'Test and demo program for the EpikTimer component.'#10'http://wiki.freepascal.org/EpikTimer'
      ParentColor = False
    end
    object Button18: TButton
      Left = 660
      Height = 25
      Top = 8
      Width = 45
      BorderSpacing.InnerBorder = 2
      Caption = 'About'
      OnClick = Button18CLICK
      TabOrder = 0
    end
  end
end