object main: Tmain
  Left = 249
  Height = 717
  Top = 198
  Width = 1085
  Caption = 'Peltier & Seebeck effects'
  ClientHeight = 717
  ClientWidth = 1085
  Color = clWhite
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '2.0.6.0'
  Visible = True
  object Save: TCDButton
    Left = 968
    Height = 34
    Top = 304
    Width = 96
    Caption = 'Save'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SaveClick
    TabOrder = 0
    TabStop = True
  end
  object Image: TCDButton
    Left = 968
    Height = 34
    Top = 352
    Width = 96
    Caption = 'Image'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = ImageClick
    TabOrder = 1
    TabStop = True
  end
  object Print: TCDButton
    Left = 968
    Height = 34
    Top = 400
    Width = 96
    Caption = 'Print'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = PrintClick
    TabOrder = 2
    TabStop = True
  end
  object Quit: TCDButton
    Left = 968
    Height = 34
    Top = 664
    Width = 96
    Caption = 'Quit'
    Color = clMoneyGreen
    DrawStyle = dsDefault
    OnClick = QuitClick
    TabOrder = 3
    TabStop = True
  end
  object Time: TCDButton
    Left = 120
    Height = 34
    Top = 544
    Width = 104
    Caption = 'Time'
    Color = clYellow
    DrawStyle = dsDefault
    OnMouseUp = TimeMouseUp
    TabOrder = 4
    TabStop = True
  end
  object Temperature: TCDButton
    Left = 376
    Height = 34
    Top = 544
    Width = 104
    Caption = 'Temperature'
    Color = clSkyBlue
    DrawStyle = dsDefault
    OnMouseUp = TemperatureMouseUp
    TabOrder = 5
    TabStop = True
  end
  object ThermoButton: TCDButton
    Left = 624
    Height = 34
    Top = 544
    Width = 104
    Caption = 'U_T'
    Color = clLime
    DrawStyle = dsDefault
    OnMouseUp = ThermoButtonMouseUp
    TabOrder = 6
    TabStop = True
  end
  object Timeeditmin: TFloatSpinEdit
    Left = 51
    Height = 23
    Top = 600
    Width = 109
    MaxValue = 100000000
    MinValue = 0
    OnKeyPress = TimeeditminKeyPress
    OnMouseUp = TimeeditminMouseUp
    TabOrder = 7
    Value = 0
  end
  object Timeeditmax: TFloatSpinEdit
    Left = 176
    Height = 23
    Top = 600
    Width = 109
    MaxValue = 1000000
    MinValue = 1
    OnKeyPress = TimeeditmaxKeyPress
    OnMouseUp = TimeeditmaxMouseUp
    TabOrder = 8
    Value = 1
  end
  object Tempeditmin: TFloatSpinEdit
    Left = 304
    Height = 23
    Top = 600
    Width = 109
    MaxValue = 50
    MinValue = -50
    OnKeyPress = TempeditminKeyPress
    OnMouseUp = TempeditminMouseUp
    TabOrder = 9
    Value = 0
  end
  object Tempeditmax: TFloatSpinEdit
    Left = 432
    Height = 23
    Top = 600
    Width = 109
    MaxValue = 50
    MinValue = -50
    OnChange = TempeditmaxChange
    OnKeyPress = TempeditmaxKeyPress
    OnMouseUp = TempeditmaxMouseUp
    TabOrder = 10
    Value = 0
  end
  object dLeditmin: TFloatSpinEdit
    Left = 555
    Height = 23
    Top = 600
    Width = 109
    Increment = 0.01
    MaxValue = 500
    MinValue = -500
    OnKeyPress = dLeditminKeyPress
    OnMouseUp = dLeditminMouseUp
    TabOrder = 11
    Value = 0
  end
  object TimeText: TStaticText
    Left = 96
    Height = 25
    Top = 648
    Width = 128
    Caption = 'TimeText'
    TabOrder = 12
  end
  object TempText: TStaticText
    Left = 368
    Height = 24
    Top = 648
    Width = 128
    Caption = 'TempText'
    Font.Color = clBlue
    ParentFont = False
    TabOrder = 13
  end
  object thermofText: TStaticText
    Left = 616
    Height = 25
    Top = 648
    Width = 128
    Caption = 'thermofText'
    Font.Color = clGreen
    ParentFont = False
    TabOrder = 14
  end
  object Chart: TChart
    Left = 40
    Height = 504
    Top = 24
    Width = 800
    AllowZoom = False
    AxisList = <    
      item
        Grid.Visible = False
        Visible = False
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 1
        Range.UseMax = True
        Range.UseMin = True
        Title.LabelFont.Orientation = 900
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        Visible = False
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 1
        Range.UseMax = True
        Range.UseMin = True
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        TickColor = clGreen
        AxisPen.Color = clGreen
        Marks.LabelFont.Color = clGreen
        Marks.Frame.Color = clGreen
        Marks.LabelBrush.Color = clDefault
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Color = clGreen
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = ' U_T [mV]'
        Title.Frame.Color = clGreen
        Title.LabelBrush.Color = clDefault
        Title.LabelBrush.Style = bsClear
        Transformations = dLAxisTrans
      end    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        TickColor = clBlue
        Alignment = calRight
        AxisPen.Color = clBlue
        Marks.LabelFont.Color = clBlue
        Marks.Frame.Color = clBlue
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.Alignment = taCenter
        Title.LabelFont.Color = clBlue
        Title.LabelFont.Orientation = -900
        Title.Visible = True
        Title.Caption = 'Temperature [C]'
        Title.Frame.Color = clBlue
        Title.LabelBrush.Style = bsClear
        Transformations = TempAxisTrans
      end    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        Alignment = calBottom
        Marks.LabelFont.Color = clBlack
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Color = clBlack
        Title.Visible = True
        Title.Caption = 'Time [s]'
        Title.LabelBrush.Style = bsClear
        Transformations = TimeAxiTsrans
      end    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        TickColor = clBlue
        Visible = False
        Alignment = calBottom
        AxisPen.Color = clBlue
        AxisPen.Visible = True
        Marks.LabelFont.Color = clBlue
        Marks.Frame.Color = clBlue
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Color = clBlue
        Title.Visible = True
        Title.Caption = 'Temperature [C]'
        Title.Frame.Color = clBlue
        Title.LabelBrush.Style = bsClear
        Transformations = TempAxisTrans
      end>
    BackColor = clWhite
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Toolset = ChartToolset
    OnAfterDraw = ChartAfterDraw
    Color = clWhite
    OnMouseDown = ChartMouseDown
    OnMouseUp = ChartMouseUp
    object ChartConstantLine1: TConstantLine
      Active = False
      LineStyle = lsVertical
      Pen.Color = clLime
      Position = 0
    end
    object ChartConstantLine2: TConstantLine
      Active = False
      LineStyle = lsVertical
      Pen.Color = clRed
      Position = 0
    end
    object thermo_TimeLineSeries: TLineSeries
      Marks.Frame.Color = clGreen
      AxisIndexX = 1
      AxisIndexY = 0
      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 Temp_TimeLineSeries: TLineSeries
      Marks.Frame.Color = clBlue
      AxisIndexX = 1
      AxisIndexY = 0
      LinePen.Color = clBlue
      LineType = ltNone
      Pointer.Brush.Color = clBlue
      Pointer.HorizSize = 1
      Pointer.Pen.Color = clBlue
      Pointer.VertSize = 1
      Pointer.Visible = True
      ShowPoints = True
    end
    object thermoConstantLine: TConstantLine
      Arrow.Visible = True
      AxisIndex = 2
      Pen.Color = clGreen
      Position = 0
    end
    object thermo_TempLineSeries: TLineSeries
      Marks.Frame.Color = clGreen
      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 LinFuncSeries: TFuncSeries
      Pen.Color = clRed
      OnCalculate = LinFuncSeriesCalculate
    end
    object ExpFuncSeries: TFuncSeries
      OnCalculate = ExpFuncSeriesCalculate
    end
  end
  object currentButton: TCDButton
    Left = 856
    Height = 34
    Top = 599
    Width = 96
    Caption = 'Current'
    Color = clWhite
    DrawStyle = dsDefault
    OnClick = currentButtonClick
    TabOrder = 16
    TabStop = True
    Visible = False
  end
  object SBmode: TCDButton
    Left = 968
    Height = 34
    Top = 160
    Width = 96
    Caption = 'Seebeck off'
    Color = clWhite
    DrawStyle = dsDefault
    OnClick = SBmodeClick
    TabOrder = 17
    TabStop = True
  end
  object dLeditmax: TFloatSpinEdit
    Left = 680
    Height = 23
    Top = 600
    Width = 109
    Increment = 0.01
    MaxValue = 500
    MinValue = -500
    OnKeyPress = dLeditmaxKeyPress
    OnMouseUp = dLeditmaxMouseUp
    TabOrder = 18
    Value = 0
  end
  object currentedit: TFloatSpinEdit
    Left = 856
    Height = 23
    Top = 648
    Width = 96
    Increment = 0.1
    MaxValue = 6.8
    MinValue = 0
    OnKeyPress = currenteditKeyPress
    OnMouseUp = currenteditMouseUp
    TabOrder = 19
    Value = 0
    Visible = False
  end
  object manual: TCDButton
    Left = 968
    Height = 34
    Top = 552
    Width = 96
    Caption = 'Manual'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = manualClick
    TabOrder = 20
    TabStop = True
    Visible = False
  end
  object CurrentText: TStaticText
    Left = 864
    Height = 25
    Top = 16
    Width = 152
    Caption = 'Current='
    TabOrder = 21
  end
  object T2Text: TStaticText
    Left = 864
    Height = 25
    Top = 64
    Width = 152
    Caption = 'T0='
    TabOrder = 22
  end
  object coursortext: TStaticText
    Left = 24
    Height = 24
    Top = 680
    Width = 456
    TabOrder = 23
  end
  object xmodeButton: TCDButton
    Left = 840
    Height = 34
    Top = 520
    Width = 40
    Caption = 'X'
    Color = clMoneyGreen
    DrawStyle = dsDefault
    OnClick = xmodeButtonClick
    TabOrder = 24
    TabStop = True
  end
  object T1Text: TStaticText
    Left = 864
    Height = 25
    Top = 120
    Width = 152
    Caption = 'T='
    TabOrder = 25
  end
  object currentButton1: TCDButton
    Left = 968
    Height = 34
    Top = 208
    Width = 96
    Caption = 'Current set'
    Color = clSilver
    DrawStyle = dsDefault
    TabOrder = 26
    TabStop = True
  end
  object currentedit1: TFloatSpinEdit
    Left = 856
    Height = 23
    Top = 209
    Width = 96
    Increment = 0.1
    MaxValue = 6.8
    MinValue = 0
    TabOrder = 27
    Value = 0
  end
  object PEmode: TCDButton
    Left = 968
    Height = 34
    Top = 256
    Width = 96
    Caption = 'Peltier off'
    Color = clWhite
    DrawStyle = dsDefault
    OnClick = PEmodeClick
    TabOrder = 28
    TabStop = True
  end
  object PE_SBmode: TCDButton
    Left = 968
    Height = 34
    Top = 600
    Width = 96
    Caption = 'Peltier'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = PE_SBmodeClick
    TabOrder = 29
    TabStop = True
    Visible = False
  end
  object Text1: TStaticText
    Left = 488
    Height = 24
    Top = 680
    Width = 56
    Caption = 'Test'
    Font.Color = clRed
    OnClick = Text1Click
    ParentFont = False
    TabOrder = 30
    Visible = False
  end
  object Text2: TStaticText
    Left = 544
    Height = 25
    Top = 679
    Width = 72
    Caption = 'Measure'
    Font.Color = clRed
    OnClick = Text1Click
    ParentFont = False
    TabOrder = 31
    Visible = False
  end
  object RedrawButton: TCDButton
    Left = 856
    Height = 34
    Top = 304
    Width = 96
    Caption = 'ReLoad'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = RedrawButtonClick
    TabOrder = 32
    TabStop = True
  end
  object FitlinButton: TCDButton
    Left = 968
    Height = 34
    Top = 448
    Width = 96
    Caption = 'Fit linear'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitlinButtonClick
    TabOrder = 33
    TabStop = True
  end
  object FitexpButton: TCDButton
    Left = 968
    Height = 34
    Top = 496
    Width = 96
    Caption = 'Fit exp.'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitexpButtonClick
    TabOrder = 34
    TabStop = True
  end
  object Command: TEdit
    Left = 624
    Height = 23
    Top = 680
    Width = 224
    OnKeyPress = CommandKeyPress
    TabOrder = 35
    Text = 'SETTEMP 22.0'
    Visible = False
  end
  object PrintDialog: TPrintDialog
    FromPage = 1
    ToPage = 1
    left = 160
    top = 96
  end
  object SaveDialog: TSaveDialog
    left = 216
    top = 96
  end
  object Timer: TTimer
    Enabled = False
    Interval = 250
    OnTimer = TimerTimer
    left = 272
    top = 96
  end
  object TimeAxiTsrans: TChartAxisTransformations
    left = 328
    top = 96
    object TimeLinearAxisTrans: TLinearAxisTransform
    end
  end
  object dLAxisTrans: TChartAxisTransformations
    left = 416
    top = 96
    object dLLinearAxisTrans: TLinearAxisTransform
    end
  end
  object TempAxisTrans: TChartAxisTransformations
    left = 504
    top = 96
    object TempLinearAxisTrans: TLinearAxisTransform
    end
  end
  object SelectDirectoryDialog: TSelectDirectoryDialog
    Title = 'Select Measure Directory'
    left = 227
    top = 211
  end
  object Timer1: TTimer
    Interval = 250
    OnTimer = Timer1Timer
    left = 592
    top = 96
  end
  object OpenDialog: TOpenDialog
    left = 408
    top = 216
  end
  object ChartToolset: TChartToolset
    left = 130
    top = 83
    object ChartToolsetDataPointDragTool: TDataPointDragTool
      Shift = [ssLeft]
      OnAfterMouseUp = ChartToolsetDataPointDragToolAfterMouseUp
      AffectedSeries = '0,1'
      DistanceMode = cdmOnlyX
      EscapeCancels = False
      OnDrag = ChartToolsetDataPointDragToolDrag
    end
  end
end