object main: Tmain
  Left = 538
  Height = 732
  Top = 114
  Width = 1028
  Caption = 'Calorimetry'
  ClientHeight = 732
  ClientWidth = 1028
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '2.2.0.4'
  Visible = True
  object TempheaterButton: TCDButton
    Left = 696
    Height = 48
    Top = 96
    Width = 120
    Caption = 'T heater [°C]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = TempheaterButtonClick
    TabOrder = 0
    TabStop = True
  end
  object UoutButton: TCDButton
    Left = 696
    Height = 48
    Top = 160
    Width = 120
    Caption = 'U [V]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = UoutButtonClick
    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 TempheaterEdit: TFloatSpinEdit
    Left = 832
    Height = 36
    Top = 104
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 38
    MinValue = 18
    OnKeyPress = TempheaterEditKeyPress
    OnMouseUp = TempheaterEditMouseUp
    ParentFont = False
    TabOrder = 3
    Value = 20
  end
  object UEdit: TFloatSpinEdit
    Left = 832
    Height = 36
    Top = 168
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 3.2
    OnChange = UEditChange
    OnKeyPress = UEditKeyPress
    OnMouseUp = UEditMouseUp
    ParentFont = False
    TabOrder = 4
    Value = 1
  end
  object Tempheater: TEdit
    Left = 496
    Height = 36
    Top = 104
    Width = 184
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 5
    Text = 'T heater='
  end
  object Uout: TEdit
    Left = 496
    Height = 36
    Top = 168
    Width = 184
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 6
    Text = 'U='
  end
  object T: TEdit
    Left = 752
    Height = 36
    Top = 232
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 7
    Text = 'T='
  end
  object QuitButton: TCDButton
    Left = 928
    Height = 43
    Top = 16
    Width = 81
    Caption = 'Quit'
    Color = clOlive
    DrawStyle = dsDefault
    OnClick = QuitButtonClick
    TabOrder = 8
    TabStop = True
  end
  object SaveimageButton: TCDButton
    Left = 840
    Height = 46
    Top = 408
    Width = 124
    Caption = 'Save image'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SaveimageButtonClick
    TabOrder = 9
    TabStop = True
  end
  object StartButton: TCDButton
    Left = 696
    Height = 48
    Top = 344
    Width = 120
    Caption = 'Start'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = StartButtonClick
    TabOrder = 10
    TabStop = True
  end
  object SaveButton: TCDButton
    Left = 844
    Height = 48
    Top = 344
    Width = 120
    Caption = 'Save'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = SaveButtonClick
    TabOrder = 11
    TabStop = True
  end
  object poweredit: TEdit
    Left = 320
    Height = 36
    Top = 104
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 12
    Text = 'U_power='
  end
  object TempmaxEdit: TFloatSpinEdit
    Left = 8
    Height = 36
    Top = 172
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 40
    MinValue = 10
    OnKeyPress = TempmaxEditKeyPress
    OnMouseUp = TempmaxEditMouseUp
    ParentFont = False
    TabOrder = 13
    Value = 35
  end
  object TempminEdit: TFloatSpinEdit
    Left = 8
    Height = 36
    Top = 679
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 35
    MinValue = 10
    OnChange = TempminEditChange
    OnKeyPress = TempminEditKeyPress
    OnMouseUp = TempminEditMouseUp
    ParentFont = False
    TabOrder = 14
    Value = 20
  end
  object TempChart: TChart
    Left = 24
    Height = 448
    Top = 224
    Width = 655
    AllowZoom = False
    AxisList = <    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 35
        Range.Min = 20
        Range.UseMax = True
        Range.UseMin = True
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Temp [°C]'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        Intervals.MaxLength = 100
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Range.Max = 900
        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
    OnAfterDraw = TempChartAfterDraw
    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 TempChartLineSeries: TLineSeries
      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
      Active = False
      Pen.Color = clRed
      Pen.Cosmetic = False
      Pen.EndCap = pecFlat
      Pen.Style = psDashDot
      OnCalculate = LinFuncSeriesCalculate
    end
    object ExpFuncSeries: TFuncSeries
      Active = False
      Pen.Color = clRed
      Pen.Cosmetic = False
      Pen.EndCap = pecFlat
      Pen.Style = psDashDot
      OnCalculate = ExpFuncSeriesCalculate
    end
    object BaseFuncSeries: TFuncSeries
      Active = False
      OnCalculate = BaseFuncSeriesCalculate
    end
  end
  object T0Edit: TEdit
    Left = 752
    Height = 36
    Top = 280
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 16
    Text = 'T_out='
  end
  object TimeEdit: TFloatSpinEdit
    Left = 616
    Height = 36
    Top = 680
    Width = 128
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.1
    MaxValue = 1000000
    OnKeyPress = TimeEditKeyPress
    OnMouseUp = TimeEditMouseUp
    ParentFont = False
    TabOrder = 17
    Value = 900
  end
  object FitlinButton: TCDButton
    Left = 844
    Height = 48
    Top = 536
    Width = 120
    Caption = 'Fit linear'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitlinButtonClick
    TabOrder = 18
    TabStop = True
  end
  object FitexpButton: TCDButton
    Left = 848
    Height = 48
    Top = 600
    Width = 120
    Caption = 'Fit exp.'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitexpButtonClick
    TabOrder = 19
    TabStop = True
  end
  object IntButton: TCDButton
    Left = 844
    Height = 48
    Top = 664
    Width = 120
    Caption = 'Integral'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = IntButtonClick
    TabOrder = 20
    TabStop = True
  end
  object RedrawButton: TCDButton
    Left = 696
    Height = 46
    Top = 408
    Width = 124
    Caption = 'ReLoad'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = RedrawButtonClick
    TabOrder = 21
    TabStop = True
  end
  object mtimeedit: TEdit
    Left = 320
    Height = 36
    Top = 168
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 22
    Text = 't=0 s'
  end
  object TimeEditbox: TEdit
    Left = 320
    Height = 36
    Top = 680
    Width = 168
    Font.Height = -16
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 23
    Text = 't=0 s'
  end
  object REdit: TFloatSpinEdit
    Left = 496
    Height = 36
    Top = 40
    Width = 141
    Font.Height = -16
    Font.Name = 'Sans'
    Increment = 0.01
    MaxValue = 10
    MinValue = 0.0001
    OnKeyPress = REditKeyPress
    OnMouseUp = REditMouseUp
    ParentFont = False
    TabOrder = 24
    Value = 4.7
    Visible = False
  end
  object RButton: TCDButton
    Left = 408
    Height = 48
    Top = 32
    Width = 80
    Caption = 'R (Ohm)'
    Color = clSilver
    DrawStyle = dsDefault
    TabOrder = 25
    TabStop = True
    Visible = False
  end
  object FitbaseButton: TCDButton
    Left = 844
    Height = 48
    Top = 472
    Width = 120
    Caption = 'Fit base'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FitbaseButtonClick
    TabOrder = 26
    TabStop = True
  end
  object Command: TEdit
    Left = 104
    Height = 34
    Top = 26
    Width = 240
    OnKeyPress = CommandKeyPress
    TabOrder = 27
    Text = 'SETTEMP 22.0'
    Visible = False
  end
  object Timer: TTimer
    Enabled = False
    Interval = 250
    OnTimer = TimerTimer
    Left = 24
    Top = 24
  end
  object SaveDialog: TSaveDialog
    Left = 64
    Top = 24
  end
  object ChartToolset: TChartToolset
    Left = 40
    Top = 128
    object ChartToolsetDataPointDragTool: TDataPointDragTool
      Shift = [ssLeft]
      OnAfterMouseUp = ChartToolsetDataPointDragToolAfterMouseUp
      AffectedSeries = '0,1'
      DistanceMode = cdmOnlyX
      EscapeCancels = False
      OnDrag = ChartToolsetDataPointDragToolDrag
    end
  end
  object OpenDialog: TOpenDialog
    Left = 24
    Top = 80
  end
  object Timer1: TTimer
    Interval = 250
    OnTimer = Timer1Timer
    Left = 232
    Top = 112
  end
  object SelectDirectoryDialog: TSelectDirectoryDialog
    Left = 171
    Top = 121
  end
end