object main: Tmain
  Left = 757
  Height = 714
  Top = 316
  Width = 1027
  Caption = 'Susceptibility'
  ClientHeight = 714
  ClientWidth = 1027
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  LCLVersion = '3.6.0.0'
  Visible = True
  object CoilcurrentButton: TCDButton
    Left = 696
    Height = 48
    Top = 96
    Width = 120
    Caption = 'Coil I [A]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = CoilcurrentButtonClick
    TabOrder = 0
    TabStop = True
  end
  object HallcurrentButton: TCDButton
    Left = 696
    Height = 48
    Top = 160
    Width = 120
    Caption = 'Hall I [mA]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = HallcurrentButtonClick
    TabOrder = 1
    TabStop = True
  end
  object ManualButton: TCDButton
    Left = 696
    Height = 48
    Top = 32
    Width = 120
    Caption = 'Remote'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = ManualButtonClick
    TabOrder = 2
    TabStop = True
  end
  object FluxzeroButton: TCDButton
    Left = 704
    Height = 48
    Top = 652
    Width = 120
    Caption = 'Flux zero'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FluxzeroButtonClick
    TabOrder = 3
    TabStop = True
  end
  object tareButton: TCDButton
    Left = 696
    Height = 48
    Top = 480
    Width = 120
    Caption = 'Tare'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = tareButtonClick
    TabOrder = 4
    TabStop = True
  end
  object CoilcurrentEdit: TFloatSpinEdit
    Left = 832
    Height = 36
    Top = 104
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 8
    OnKeyPress = CoilcurrentEditKeyPress
    OnMouseUp = CoilcurrentEditMouseUp
    ParentFont = False
    TabOrder = 5
  end
  object HallcurrentEdit: TFloatSpinEdit
    Left = 832
    Height = 36
    Top = 168
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 10
    OnKeyPress = HallcurrentEditKeyPress
    OnMouseUp = HallcurrentEditMouseUp
    ParentFont = False
    TabOrder = 6
    Value = 5
  end
  object Coilcurrent: TEdit
    Left = 512
    Height = 36
    Top = 104
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 7
    Text = 'I_coil='
  end
  object Hallcurrent: TEdit
    Left = 512
    Height = 36
    Top = 168
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 8
    Text = 'I_hall='
  end
  object Uhall: TEdit
    Left = 320
    Height = 36
    Top = 168
    Width = 160
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 9
    Text = 'U_hall='
  end
  object Flux: TEdit
    Left = 512
    Height = 36
    Top = 360
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 10
    Text = 'Flux='
  end
  object Force: TEdit
    Left = 512
    Height = 36
    Top = 488
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 11
    Text = 'M='
  end
  object QuitButton: TCDButton
    Left = 912
    Height = 43
    Top = 640
    Width = 81
    Caption = 'Quit'
    Color = clOlive
    DrawStyle = dsDefault
    OnClick = QuitButtonClick
    TabOrder = 12
    TabStop = True
  end
  object SetfileButton: TCDButton
    Left = 840
    Height = 46
    Top = 544
    Width = 124
    Caption = 'Set File'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SetfileButtonClick
    TabOrder = 13
    TabStop = True
  end
  object SaveButton: TCDButton
    Left = 696
    Height = 48
    Top = 546
    Width = 120
    Caption = 'Save'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SaveButtonClick
    TabOrder = 14
    TabStop = True
  end
  object OffsetButton: TCDButton
    Left = 696
    Height = 48
    Top = 288
    Width = 120
    Caption = 'Offset'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = OffsetButtonClick
    TabOrder = 15
    TabStop = True
  end
  object OffsetEdit: TFloatSpinEdit
    Left = 824
    Height = 36
    Top = 288
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 5000
    MinValue = -5000
    OnKeyPress = OffsetEditKeyPress
    OnMouseUp = OffsetEditMouseUp
    ParentFont = False
    TabOrder = 16
  end
  object FluxmeasureButton: TCDButton
    Left = 696
    Height = 48
    Top = 352
    Width = 120
    Caption = 'Flux measure'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FluxmeasureButtonClick
    TabOrder = 17
    TabStop = True
  end
  object FluxsaveButton: TCDButton
    Left = 840
    Height = 48
    Top = 352
    Width = 120
    Caption = 'Flux save'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FluxsaveButtonClick
    TabOrder = 18
    TabStop = True
  end
  object Flux12Button: TCDButton
    Left = 248
    Height = 48
    Top = 160
    Width = 48
    Caption = 'I.'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = Flux12ButtonClick
    TabOrder = 19
    TabStop = True
  end
  object note: TEdit
    Left = 512
    Height = 36
    Top = 552
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 20
    Text = 'Note'
  end
  object FluxmaxEdit: TFloatSpinEdit
    Left = 24
    Height = 36
    Top = 176
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 500
    MinValue = -500
    OnKeyPress = FluxmaxEditKeyPress
    OnMouseUp = FluxmaxEditMouseUp
    ParentFont = False
    TabOrder = 21
    Value = 10
  end
  object FluxminEdit: TFloatSpinEdit
    Left = 24
    Height = 36
    Top = 664
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 50000
    MinValue = -500
    OnKeyPress = FluxminEditKeyPress
    OnMouseUp = FluxminEditMouseUp
    ParentFont = False
    TabOrder = 22
    Value = -10
  end
  object FluxChart: TChart
    Left = 24
    Height = 416
    Top = 232
    Width = 472
    AllowZoom = False
    AxisList = <    
      item
        Grid.Visible = False
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 10
        Range.Min = -10
        Range.UseMax = True
        Range.UseMin = True
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Flux [mVs]'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 15
        Range.UseMax = True
        Range.UseMin = True
        Title.Visible = True
        Title.Caption = 'time [s]'
        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
    object FluxChartConstantLine1: TConstantLine
      Pen.Color = clRed
    end
    object FluxChartConstantLine2: TConstantLine
      Pen.Color = clLime
      Position = 10
    end
    object FluxChartLineSeries: TLineSeries
    end
  end
  object temp: TEdit
    Left = 512
    Height = 36
    Top = 608
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 24
    Text = 'T='
    Visible = False
  end
  object Command: TEdit
    Left = 96
    Height = 34
    Top = 96
    Width = 280
    TabOrder = 25
    Text = 'COMMAND'
    Visible = False
    OnKeyPress = CommandKeyPress
  end
  object Fluxevaul: TEdit
    Left = 336
    Height = 36
    Top = 664
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 26
    Text = 'Flux=10 mVs'
  end
  object Timer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = TimerTimer
    Left = 328
    Top = 24
  end
  object SaveDialog: TSaveDialog
    Left = 392
    Top = 24
  end
  object SaveDialogflux: TSaveDialog
    Left = 448
    Top = 24
  end
  object ChartToolset: TChartToolset
    Left = 104
    Top = 24
    object ChartToolsetDataPointDragTool: TDataPointDragTool
      Shift = [ssLeft]
      OnAfterMouseUp = ChartToolsetDataPointDragToolAfterMouseUp
      AffectedSeries = '0,1'
      DistanceMode = cdmOnlyY
      EscapeCancels = False
      OnDrag = ChartToolsetDataPointDragToolDrag
    end
  end
  object Timer1: TTimer
    Interval = 200
    OnTimer = Timer1Timer
    Left = 240
    Top = 24
  end
  object SelectDirectoryDialog: TSelectDirectoryDialog
    Title = 'Select Mesure Directory'
    Left = 552
    Top = 24
  end
end