object main: Tmain
  Left = 525
  Height = 764
  Top = 151
  Width = 1047
  Caption = 'Interference'
  ClientHeight = 764
  ClientWidth = 1047
  Font.Height = -15
  Font.Name = 'Sans'
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '3.6.0.0'
  Visible = True
  object RateButton: TCDButton
    Left = 744
    Height = 48
    Top = 92
    Width = 144
    Caption = 'Rate [mm/s]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = RateButtonClick
    TabOrder = 0
    TabStop = True
  end
  object MoveButton: TCDButton
    Left = 744
    Height = 48
    Top = 160
    Width = 144
    Caption = 'Move [mm]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = MoveButtonClick
    TabOrder = 1
    TabStop = True
  end
  object InitposButton: TCDButton
    Left = 744
    Height = 48
    Top = 24
    Width = 144
    Caption = 'Init position'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = InitposButtonClick
    TabOrder = 2
    TabStop = True
  end
  object RateEdit: TFloatSpinEdit
    Left = 896
    Height = 36
    Top = 96
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 1
    MinValue = 0.01
    OnKeyPress = RateEditKeyPress
    OnMouseUp = RateEditMouseUp
    ParentFont = False
    TabOrder = 3
    Value = 1
  end
  object MoveEdit: TFloatSpinEdit
    Left = 896
    Height = 36
    Top = 168
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 250
    MinValue = -250
    OnChange = MoveEditChange
    OnKeyPress = MoveEditKeyPress
    OnMouseUp = MoveEditMouseUp
    ParentFont = False
    TabOrder = 4
  end
  object XOut: TEdit
    Left = 752
    Height = 36
    Top = 232
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 5
    Text = 'X='
  end
  object Status: TEdit
    Left = 752
    Height = 36
    Top = 328
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 6
    Text = 'Status On'
  end
  object QuitButton: TCDButton
    Left = 932
    Height = 43
    Top = 712
    Width = 81
    Caption = 'Quit'
    Color = clOlive
    DrawStyle = dsDefault
    OnClick = QuitButtonClick
    TabOrder = 7
    TabStop = True
  end
  object SaveimageButton: TCDButton
    Left = 901
    Height = 46
    Top = 488
    Width = 137
    Caption = 'Save image'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SaveimageButtonClick
    TabOrder = 8
    TabStop = True
  end
  object StartButton: TCDButton
    Left = 744
    Height = 48
    Top = 432
    Width = 136
    Caption = 'Start'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = StartButtonClick
    TabOrder = 9
    TabStop = True
  end
  object SaveButton: TCDButton
    Left = 901
    Height = 48
    Top = 432
    Width = 136
    Caption = 'Save'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SaveButtonClick
    TabOrder = 10
    TabStop = True
  end
  object ImaxEdit: TFloatSpinEdit
    Left = 8
    Height = 36
    Top = 40
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 1000
    OnKeyPress = ImaxEditKeyPress
    OnMouseUp = ImaxEditMouseUp
    ParentFont = False
    TabOrder = 11
    Value = 50
  end
  object IminEdit: TFloatSpinEdit
    Left = 8
    Height = 36
    Top = 600
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 10000
    OnKeyPress = IminEditKeyPress
    OnMouseUp = IminEditMouseUp
    ParentFont = False
    TabOrder = 12
  end
  object IChart: TChart
    Left = 32
    Height = 504
    Top = 88
    Width = 696
    AllowZoom = False
    AxisList = <    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 50
        Range.UseMax = True
        Range.UseMin = True
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Intensity [mV]'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 100
        Range.Min = -100
        Range.UseMax = True
        Range.UseMin = True
        Title.Visible = True
        Title.Caption = 'X [mm]'
        Title.LabelBrush.Style = bsClear
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Toolset = ChartToolset
    OnAfterDraw = IChartAfterDraw
    object ChartConstantLine1: TConstantLine
      Active = False
      LineStyle = lsVertical
      Pen.Color = clLime
      Position = 10
    end
    object ChartConstantLine2: TConstantLine
      Active = False
      LineStyle = lsVertical
      Pen.Color = clRed
      Position = 200
    end
    object ChartConstantLine3: TConstantLine
      Active = False
      Pen.Color = clBlue
    end
    object MarkerConstantLine: TConstantLine
      Active = False
      LineStyle = lsVertical
      Pen.Color = clBlue
    end
    object IChartLineSeries: TLineSeries
      Legend.Visible = False
      LinePen.Color = clGreen
      LineType = ltNone
      Pointer.Brush.Color = clGreen
      Pointer.HorizSize = 1
      Pointer.Pen.Color = clGreen
      Pointer.VertSize = 1
      Pointer.Visible = True
      ShowPoints = True
    end
    object FitIChartLineSeries: TLineSeries
      Legend.Visible = False
      Active = False
      LinePen.Color = clRed
      LinePen.Width = 4
      LineType = ltNone
      Pointer.Brush.Color = clRed
      Pointer.HorizSize = 1
      Pointer.Pen.Color = clRed
      Pointer.VertSize = 1
      Pointer.Visible = True
      ShowPoints = True
    end
    object FitIChartLineSeries1: TLineSeries
      Legend.Visible = False
      Active = False
      LinePen.Color = clBlue
      LinePen.Width = 2
    end
    object FresnelChartLineSeries: TLineSeries
      Legend.Visible = False
      Active = False
      LinePen.Color = clRed
      LinePen.Width = 4
    end
  end
  object IEdit: TEdit
    Left = 752
    Height = 36
    Top = 280
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 14
    Text = 'I='
  end
  object XmaxEdit: TFloatSpinEdit
    Left = 448
    Height = 36
    Top = 664
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.1
    MaxValue = 200
    MinValue = -200
    OnKeyPress = XmaxEditKeyPress
    OnMouseUp = XmaxEditMouseUp
    ParentFont = False
    TabOrder = 15
    Value = 100
  end
  object RedrawButton: TCDButton
    Left = 744
    Height = 46
    Top = 488
    Width = 136
    Caption = 'ReLoad'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = RedrawButtonClick
    TabOrder = 16
    TabStop = True
  end
  object XminEdit: TFloatSpinEdit
    Left = 312
    Height = 36
    Top = 664
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.1
    MaxValue = 200
    MinValue = -200
    OnKeyPress = XminEditKeyPress
    OnMouseUp = XminEditMouseUp
    ParentFont = False
    TabOrder = 17
    Value = -100
  end
  object SelectXButton: TCDButton
    Left = 376
    Height = 46
    Top = 608
    Width = 124
    Caption = 'Select X'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SelectXButtonClick
    TabOrder = 18
    TabStop = True
  end
  object XzeroButton: TCDButton
    Left = 901
    Height = 48
    Top = 24
    Width = 136
    Caption = 'X zero'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = XzeroButtonClick
    TabOrder = 19
    TabStop = True
    Visible = False
  end
  object getposButton: TCDButton
    Left = 744
    Height = 46
    Top = 709
    Width = 136
    Caption = 'Get position'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = getposButtonClick
    TabOrder = 20
    TabStop = True
  end
  object xposLabel: TLabel
    Left = 16
    Height = 21
    Top = 664
    Width = 34
    Caption = '(x,i)'
    Font.Height = -17
    Font.Name = 'Sans'
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object StepsizeButton: TCDButton
    Left = 744
    Height = 48
    Top = 376
    Width = 136
    Caption = 'Stepsize [mm]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = StepsizeButtonClick
    TabOrder = 21
    TabStop = True
  end
  object StepsizeEdit: TFloatSpinEdit
    Left = 897
    Height = 36
    Top = 384
    Width = 141
    DecimalPlaces = 3
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 10
    MinValue = 0.01
    OnKeyPress = StepsizeEditKeyPress
    OnMouseUp = StepsizeEditMouseUp
    ParentFont = False
    TabOrder = 22
    Value = 0.1
  end
  object FitButton: TCDButton
    Left = 744
    Height = 48
    Top = 544
    Width = 136
    Caption = 'Fit 1'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitButtonClick
    TabOrder = 23
    TabStop = True
  end
  object FitescButton: TCDButton
    Left = 901
    Height = 48
    Top = 544
    Width = 137
    Caption = 'Fit Esc.'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitescButtonClick
    TabOrder = 24
    TabStop = True
    Visible = False
  end
  object FitButton2: TCDButton
    Left = 744
    Height = 48
    Top = 600
    Width = 136
    Caption = 'Fit 2'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitButton2Click
    TabOrder = 25
    TabStop = True
  end
  object FitescButton2: TCDButton
    Left = 901
    Height = 48
    Top = 600
    Width = 136
    Caption = 'Fit Esc.'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitescButton2Click
    TabOrder = 26
    TabStop = True
    Visible = False
  end
  object FresnelButton: TCDButton
    Left = 744
    Height = 48
    Top = 656
    Width = 136
    Caption = 'Fresnel'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FresnelButtonClick
    TabOrder = 27
    TabStop = True
  end
  object FresnelescButton: TCDButton
    Left = 896
    Height = 48
    Top = 656
    Width = 139
    Caption = 'Fesnel Esc.'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FresnelescButtonClick
    TabOrder = 28
    TabStop = True
    Visible = False
  end
  object FresnelEdit: TFloatSpinEdit
    Left = 600
    Height = 36
    Top = 664
    Width = 128
    DecimalPlaces = 4
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.0001
    MaxValue = 200
    OnKeyPress = FresnelEditKeyPress
    OnMouseUp = FresnelEditMouseUp
    ParentFont = False
    TabOrder = 29
    Visible = False
  end
  object Timer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = TimerTimer
    Left = 312
    Top = 16
  end
  object SaveDialog: TSaveDialog
    Left = 224
    Top = 16
  end
  object ChartToolset: TChartToolset
    Left = 96
    Top = 16
    object ChartToolsetDataPointDragTool: TDataPointDragTool
      Shift = [ssLeft]
      OnAfterMouseUp = ChartToolsetDataPointDragToolAfterMouseUp
      AffectedSeries = '0,1,2,3'
      EscapeCancels = False
      OnDrag = ChartToolsetDataPointDragToolDrag
    end
  end
  object OpenDialog: TOpenDialog
    Left = 400
    Top = 16
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 480
    Top = 16
  end
  object SelectDirectoryDialog: TSelectDirectoryDialog
    Title = 'Select Measure Directory'
    Left = 576
    Top = 24
  end
end