object ProgForm: TProgForm
  Left = 401
  Height = 686
  Top = 148
  Width = 581
  Caption = 'Set program'
  ClientHeight = 686
  ClientWidth = 581
  LCLVersion = '3.6.0.0'
  object ListBox: TListBox
    Left = 64
    Height = 200
    Top = 64
    Width = 176
    ItemHeight = 0
    ScrollWidth = 174
    TabOrder = 0
    TopIndex = -1
  end
  object Memo: TMemo
    Left = 288
    Height = 200
    Top = 64
    Width = 264
    Lines.Strings = (
      'Memo'
    )
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Ratebutton: TCDButton
    Left = 24
    Height = 40
    Top = 344
    Width = 220
    Caption = 'Heating/ cooling rate [°C/min]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = RatebuttonClick
    TabOrder = 2
    TabStop = True
  end
  object Progfileedit: TEdit
    Left = 76
    Height = 35
    Top = 280
    Width = 152
    Font.Height = -15
    Font.Name = 'Sans'
    ParentFont = False
    TabOrder = 3
    Text = 'normal.prg'
  end
  object addbutton: TCDButton
    Left = 344
    Height = 40
    Top = 280
    Width = 140
    Caption = 'Add Instruction'
    Color = clSilver
    DrawStyle = dsDefault
    PopupMenu = KeyordsMenu
    TabOrder = 4
    TabStop = True
  end
  object newbutton: TCDButton
    Left = 288
    Height = 40
    Top = 8
    Width = 60
    Caption = 'New'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = newbuttonClick
    PopupMenu = KeyordsMenu
    TabOrder = 5
    TabStop = True
  end
  object savebutton: TCDButton
    Left = 384
    Height = 40
    Top = 8
    Width = 60
    Caption = 'Save'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = savebuttonClick
    PopupMenu = KeyordsMenu
    TabOrder = 6
    TabStop = True
  end
  object saveasbutton: TCDButton
    Left = 480
    Height = 40
    Top = 8
    Width = 60
    Caption = 'Save as'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = saveasbuttonClick
    PopupMenu = KeyordsMenu
    TabOrder = 7
    TabStop = True
  end
  object setfuncbutton: TCDButton
    Left = 64
    Height = 40
    Top = 8
    Width = 176
    Caption = 'Set program directory'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = setfuncbuttonClick
    TabOrder = 8
    TabStop = True
  end
  object StartingTbutton: TCDButton
    Left = 24
    Height = 40
    Top = 400
    Width = 220
    Caption = 'Starting Temperature [°C]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = StartingTbuttonClick
    TabOrder = 9
    TabStop = True
  end
  object FinalTbutton: TCDButton
    Left = 24
    Height = 40
    Top = 456
    Width = 220
    Caption = 'Final Temperature [°C]'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = FinalTbuttonClick
    TabOrder = 10
    TabStop = True
  end
  object Exitbutton: TCDButton
    Left = 456
    Height = 40
    Top = 584
    Width = 100
    Caption = 'Send'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = ExitbuttonClick
    TabOrder = 11
    TabStop = True
  end
  object repeatNumbutton: TCDButton
    Left = 24
    Height = 40
    Top = 512
    Width = 220
    Caption = 'Serial num'
    Color = clSilver
    DrawStyle = dsDefault
    OnClick = NumbuttonClick
    TabOrder = 12
    TabStop = True
  end
  object RateEdit: TFloatSpinEdit
    Left = 272
    Height = 34
    Top = 344
    Width = 152
    DecimalPlaces = 1
    Increment = 0.1
    MaxValue = 50
    MinValue = 0.01
    TabOrder = 13
    Value = 0.1
  end
  object StartingTEdit: TFloatSpinEdit
    Left = 272
    Height = 34
    Top = 400
    Width = 152
    DecimalPlaces = 1
    Increment = 0.1
    MaxValue = 1000
    TabOrder = 14
    Value = 30
  end
  object FinalTEdit: TFloatSpinEdit
    Left = 272
    Height = 34
    Top = 456
    Width = 152
    DecimalPlaces = 1
    Increment = 0.1
    MaxValue = 1000
    TabOrder = 15
    Value = 100
  end
  object RepeatnumEdit: TFloatSpinEdit
    Left = 272
    Height = 34
    Top = 512
    Width = 152
    DecimalPlaces = 0
    MaxValue = 4
    MinValue = 1
    TabOrder = 16
    Value = 1
  end
  object KeyordsMenu: TPopupMenu
    Left = 256
    Top = 600
    object rateItem: TMenuItem
      Caption = 'rate'
      OnClick = rateItemClick
    end
    object ToItem: TMenuItem
      Caption = 'to'
      OnClick = ToItemClick
    end
    object holdItem: TMenuItem
      Caption = 'hold'
      OnClick = holdItemClick
    end
    object SaveItem: TMenuItem
      Caption = 'save'
      OnClick = SaveItemClick
    end
    object lamptestItem: TMenuItem
      Caption = 'OverTtest'
      OnClick = lamptestItemClick
    end
    object MeasureItem: TMenuItem
      Caption = 'measure'
      Checked = True
      OnClick = MeasureItemClick
    end
    object resetmeasureItem: TMenuItem
      Caption = 'resetmasure'
      OnClick = resetmeasureItemClick
    end
    object autosaveItem: TMenuItem
      Caption = 'autosave'
      OnClick = autosaveItemClick
    end
    object AbsoluteItem: TMenuItem
      Caption = 'absolute'
      OnClick = AbsoluteItemClick
    end
    object RelativeItem: TMenuItem
      Caption = 'relative'
      OnClick = RelativeItemClick
    end
    object endItem: TMenuItem
      Caption = 'end'
      OnClick = endItemClick
    end
    object quitItem: TMenuItem
      Caption = 'quit'
      OnClick = quitItemClick
    end
  end
  object Timer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = TimerTimer
    Left = 40
    Top = 608
  end
end