object mainform: Tmainform Left = 633 Height = 836 Top = 119 Width = 1214 Caption = 'DTA measure' ClientHeight = 836 ClientWidth = 1214 Color = clWhite OnCreate = FormCreate LCLVersion = '3.6.0.0' Visible = True object func: TCDButton Left = 24 Height = 40 Top = 16 Width = 100 Caption = 'Set Function' Color = clSilver DrawStyle = dsDefault OnClick = funcClick TabOrder = 0 TabStop = True end object heatto: TCDButton Left = 160 Height = 40 Top = 16 Width = 100 Caption = 'Heatto [°C]' Color = clSilver DrawStyle = dsDefault OnClick = heattoClick TabOrder = 1 TabStop = True end object identifier: TCDButton Left = 472 Height = 40 Top = 16 Width = 100 Caption = 'Identifier' Color = clSilver DrawStyle = dsDefault TabOrder = 2 TabStop = True end object Calibrbutton: TCDButton Left = 776 Height = 40 Top = 16 Width = 100 Caption = 'Calibration' Color = clSilver DrawStyle = dsDefault OnClick = CalibrbuttonClick TabOrder = 3 TabStop = True end object Startbutton: TCDButton Left = 1100 Height = 40 Top = 120 Width = 100 Caption = 'Start' Color = clAqua DrawStyle = dsDefault OnClick = StartbuttonClick TabOrder = 4 TabStop = True end object Nextbutton: TCDButton Left = 1100 Height = 40 Top = 168 Width = 100 Caption = 'Next' Color = clAqua DrawStyle = dsDefault OnClick = NextbuttonClick TabOrder = 5 TabStop = True end object Holdbutton: TCDButton Left = 304 Height = 40 Top = 16 Width = 100 Caption = 'Hold' Color = clSilver DrawStyle = dsDefault OnClick = HoldbuttonClick TabOrder = 6 TabStop = True end object Killbutton: TCDButton Left = 1100 Height = 40 Top = 216 Width = 100 Caption = 'Kill' Color = clAqua DrawStyle = dsDefault OnClick = KillbuttonClick TabOrder = 7 TabStop = True end object Savebutton: TCDButton Left = 1100 Height = 40 Top = 264 Width = 100 Caption = 'Save' Color = clAqua DrawStyle = dsDefault OnClick = SavebuttonClick TabOrder = 8 TabStop = True end object Image: TCDButton Left = 1100 Height = 40 Top = 312 Width = 100 Caption = 'Image' Color = clAqua DrawStyle = dsDefault OnClick = ImageClick TabOrder = 9 TabStop = True end object Print: TCDButton Left = 1100 Height = 40 Top = 360 Width = 100 Caption = 'Print' Color = clAqua DrawStyle = dsDefault OnClick = PrintClick TabOrder = 10 TabStop = True end object Quit: TCDButton Left = 1120 Height = 40 Top = 768 Width = 64 Caption = 'Quit' Color = clOlive DrawStyle = dsDefault OnClick = QuitClick TabOrder = 11 TabStop = True end object HeattoEdit: TFloatSpinEdit Left = 144 Height = 35 Top = 64 Width = 128 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' Increment = 0.1 MaxValue = 1000 OnKeyPress = HeattoEditKeyPress OnMouseUp = HeattoEditMouseUp ParentFont = False TabOrder = 12 Value = 20 end object Chart1: TChart Left = 24 Height = 518 Top = 154 Width = 944 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 = 200 Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> Title.Visible = True Title.Caption = 'Time [s]' Title.LabelBrush.Style = bsClear Transformations = TimeTrans end item Grid.Color = clFuchsia Grid.Visible = False Intervals.MaxLength = 200 TickColor = clFuchsia Visible = False Alignment = calBottom Marks.LabelFont.Color = clFuchsia Marks.Frame.Color = clFuchsia Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Color = clFuchsia Title.Visible = True Title.Caption = 'T2 [C]' Title.Frame.Color = clFuchsia Title.LabelBrush.Style = bsClear Transformations = temp2Trans end item Grid.Color = clGreen Grid.Visible = False Intervals.MaxLength = 200 TickColor = clGreen Marks.LabelFont.Color = clGreen Marks.Frame.Color = clGreen Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Color = clGreen Title.LabelFont.Orientation = 880 Title.Visible = True Title.Caption = 'dT [°C]' Title.Frame.Color = clGreen Title.LabelBrush.Style = bsClear Transformations = QTrans end item Grid.Visible = False Intervals.MaxLength = 200 TickColor = clRed Visible = False Marks.LabelFont.Color = clRed Marks.Frame.Color = clRed Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Color = clRed Title.LabelFont.Orientation = 890 Title.Visible = True Title.Caption = 'T1 [°C]' Title.Frame.Color = clRed Title.LabelBrush.Style = bsClear Transformations = Temp1Trans end item Grid.Visible = False Intervals.MaxLength = 200 TickColor = clFuchsia Visible = False Marks.LabelFont.Color = clFuchsia Marks.Frame.Color = clFuchsia Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Color = clFuchsia Title.LabelFont.Orientation = 890 Title.Visible = True Title.Caption = 'T2 [°C]' Title.Frame.Color = clFuchsia Title.LabelBrush.Style = bsClear Transformations = temp2Trans end item Grid.Visible = False Intervals.MaxLength = 200 TickColor = clAqua Visible = False Marks.LabelFont.Color = clAqua Marks.Frame.Color = clAqua Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Color = clAqua Title.LabelFont.Orientation = 890 Title.Visible = True Title.Caption = 'T_program [°C]' Title.Frame.Color = clAqua Title.LabelBrush.Style = bsClear Transformations = TemppTrans end> BackColor = clWhite Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Color = clWhite object ChartConstantLine: TConstantLine Pen.Color = 51712 end object time_q0LineSeries: TLineSeries LinePen.Color = 51712 Pointer.HorizSize = 1 Pointer.Pen.Color = clGreen Pointer.Style = psPoint Pointer.VertSize = 1 end object time_q1LineSeries: TLineSeries LinePen.Color = clBlue Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object time_q2LineSeries: TLineSeries LinePen.Color = clMaroon Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object time_q3LineSeries: TLineSeries LinePen.Color = clOlive Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object time_temppLineSeries: TLineSeries LinePen.Color = clAqua Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object time_temp1LineSeries: TLineSeries LinePen.Color = clRed Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object time_temp2LineSeries: TLineSeries LinePen.Color = clFuchsia Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object temp_q0LineSeries: TLineSeries LinePen.Color = 51712 Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object temp_q1LineSeries: TLineSeries LinePen.Color = clBlue Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object temp_q2LineSeries: TLineSeries LinePen.Color = clMaroon Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object temp_q3LineSeries: TLineSeries LinePen.Color = clOlive Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object temp_temp1LineSeries: TLineSeries LinePen.Color = clFuchsia Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end object temp_temppLineSeries: TLineSeries LinePen.Color = clAqua Pointer.HorizSize = 1 Pointer.Style = psPoint Pointer.VertSize = 1 end end object Timebutton: TCDButton Left = 64 Height = 40 Top = 680 Width = 100 Caption = 'Time' Color = clYellow DrawStyle = dsDefault OnMouseUp = TimebuttonMouseUp TabOrder = 14 TabStop = True end object Qbutton: TCDButton Left = 272 Height = 40 Top = 680 Width = 100 Caption = 'dT' Color = 51712 DrawStyle = dsDefault OnMouseUp = QbuttonMouseUp TabOrder = 15 TabStop = True end object Temppbutton: TCDButton Left = 888 Height = 40 Top = 680 Width = 100 Caption = 'T_program' Color = clSilver DrawStyle = dsDefault TabOrder = 16 TabStop = True end object Temp1button: TCDButton Left = 488 Height = 40 Top = 680 Width = 100 Caption = 'T1' Color = clRed DrawStyle = dsDefault TabOrder = 17 TabStop = True end object temp2button: TCDButton Left = 664 Height = 40 Top = 680 Width = 100 Caption = 'T2' Color = clSilver DrawStyle = dsDefault TabOrder = 18 TabStop = True end object TimeminEdit: TFloatSpinEdit Left = 8 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 1000000 OnKeyPress = TimeminEditKeyPress OnMouseUp = TimeminEditMouseUp ParentFont = False TabOrder = 19 end object TimemaxEdit: TFloatSpinEdit Left = 112 Height = 35 Top = 784 Width = 104 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 1000000000 OnKeyPress = TimemaxEditKeyPress OnMouseUp = TimemaxEditMouseUp ParentFont = False TabOrder = 20 end object QminEdit: TFloatSpinEdit Left = 224 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 100 MinValue = -100 OnKeyPress = QminEditKeyPress OnMouseUp = QminEditMouseUp ParentFont = False TabOrder = 21 end object QmaxEdit: TFloatSpinEdit Left = 328 Height = 35 Top = 784 Width = 88 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 100 MinValue = -100 OnChange = QmaxEditChange OnKeyPress = QmaxEditKeyPress OnMouseUp = QmaxEditMouseUp ParentFont = False TabOrder = 22 end object TemppminEdit: TFloatSpinEdit Left = 880 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 1000 OnKeyPress = TemppminEditKeyPress OnMouseUp = TemppminEditMouseUp ParentFont = False TabOrder = 23 end object TemppmaxEdit: TFloatSpinEdit Left = 984 Height = 35 Top = 784 Width = 92 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 1000 OnKeyPress = TemppmaxEditKeyPress OnMouseUp = TemppmaxEditMouseUp ParentFont = False TabOrder = 24 end object Temp1minEdit: TFloatSpinEdit Left = 432 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 800 OnKeyUp = Temp1minEditKeyUp OnMouseUp = Temp1minEditMouseUp ParentFont = False TabOrder = 25 end object Temp1maxEdit: TFloatSpinEdit Left = 536 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 800 OnKeyPress = Temp1maxEditKeyPress OnMouseUp = Temp1maxEditMouseUp ParentFont = False TabOrder = 26 end object Xaxisbutton: TCDButton Left = 1000 Height = 40 Top = 608 Width = 88 Caption = 'Time/T2' Color = clMoneyGreen DrawStyle = dsDefault OnClick = XaxisbuttonClick TabOrder = 27 TabStop = True end object Yaxisbutton: TCDButton Left = 8 Height = 40 Top = 64 Width = 72 Caption = 'Y axis' Color = clMoneyGreen DrawStyle = dsDefault OnClick = YaxisbuttonClick TabOrder = 28 TabStop = True end object TempAbutton: TCDButton Left = 1024 Height = 40 Top = 680 Width = 48 Caption = 'A' Color = clAqua DrawStyle = dsDefault OnClick = TempAbuttonClick TabOrder = 29 TabStop = True end object temp2Abutton: TCDButton Left = 800 Height = 40 Top = 680 Width = 44 Caption = 'A' Color = clFuchsia DrawStyle = dsDefault OnClick = temp2AbuttonClick TabOrder = 30 TabStop = True end object IdentEdit: TEdit Left = 416 Height = 35 Top = 64 Width = 208 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 31 Text = 'Test' OnKeyPress = IdentEditKeyPress end object Timeout: TEdit Left = 56 Height = 35 Top = 736 Width = 112 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 32 Text = '0s' end object CommandEdit: TEdit Left = 888 Height = 35 Top = 70 Width = 152 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 33 Text = 'Command' Visible = False OnKeyPress = CommandEditKeyPress end object qout: TEdit Left = 264 Height = 35 Top = 736 Width = 116 Font.Color = clGreen Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 34 Text = '0 °C' end object Temppout: TEdit Left = 880 Height = 35 Top = 736 Width = 112 Font.Color = clAqua Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 35 Text = '20 °C' end object Temp1out: TEdit Left = 480 Height = 35 Top = 736 Width = 112 Font.Color = clRed Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 36 Text = '20°C' end object temp2out: TEdit Left = 656 Height = 35 Top = 736 Width = 112 Font.Color = clFuchsia Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 37 Text = '2O °C' end object progout: TEdit Left = 1000 Height = 35 Top = 472 Width = 180 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 38 Text = 'Hold' end object massbutton: TCDButton Left = 648 Height = 40 Top = 16 Width = 100 Caption = 'Mass [mg]' Color = clSilver DrawStyle = dsDefault TabOrder = 39 TabStop = True end object massEdit: TFloatSpinEdit Left = 640 Height = 35 Top = 64 Width = 128 DecimalPlaces = 5 Font.Height = -15 Font.Name = 'Sans' Increment = 0.0001 MaxValue = 5000 OnKeyPress = massEditKeyPress OnMouseUp = massEditMouseUp ParentFont = False TabOrder = 40 Value = 100 end object NoSavebutton: TCDButton Left = 992 Height = 40 Top = 264 Width = 100 Caption = 'No Save' Color = clAqua DrawStyle = dsDefault OnClick = NoSavebuttonClick TabOrder = 41 TabStop = True Visible = False end object message: TStaticText Left = 164 Height = 25 Top = 109 Width = 324 TabOrder = 42 end object rateout: TEdit Left = 1000 Height = 35 Top = 432 Width = 180 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 43 Text = 'Rate=0 °C/min' end object tempfout: TEdit Left = 1000 Height = 35 Top = 512 Width = 180 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 44 Text = 'T_f=20°C' end object powerout: TEdit Left = 1000 Height = 35 Top = 560 Width = 180 Font.Height = -15 Font.Name = 'Sans' ParentFont = False TabOrder = 45 Text = 'Power=0%' end object progmessage: TStaticText Left = 516 Height = 25 Top = 112 Width = 324 TabOrder = 46 OnClick = progmessageClick end object Temp2minEdit: TFloatSpinEdit Left = 656 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 1000 OnKeyUp = Temp2minEditKeyUp OnMouseUp = temp2minEditMouseUp ParentFont = False TabOrder = 47 end object Temp2maxEdit: TFloatSpinEdit Left = 760 Height = 35 Top = 784 Width = 96 DecimalPlaces = 1 Font.Height = -15 Font.Name = 'Sans' MaxValue = 1000 OnKeyPress = temp2maxEditKeyPress OnMouseUp = temp2maxEditMouseUp ParentFont = False TabOrder = 48 end object pwdEdit: TEdit Left = 896 Height = 35 Top = 70 Width = 152 EchoMode = emPassword Font.Height = -15 Font.Name = 'Sans' ParentFont = False PasswordChar = '*' TabOrder = 49 Visible = False OnChange = pwdEditChange OnKeyPress = pwdEditKeyPress end object expertbutton: TCDButton Left = 904 Height = 40 Top = 16 Width = 100 Caption = 'Expert mode' Color = clSilver DrawStyle = dsDefault OnClick = expertbuttonClick TabOrder = 50 TabStop = True end object Timer: TTimer Interval = 200 OnTimer = TimerTimer Left = 352 Top = 288 end object PrintDialog: TPrintDialog Left = 640 Top = 184 end object TimeTrans: TChartAxisTransformations Left = 141 Top = 176 object TimeLinearAxisTrans: TLinearAxisTransform end end object QTrans: TChartAxisTransformations Left = 224 Top = 178 object QLinearAxisTrans: TLinearAxisTransform end end object TemppTrans: TChartAxisTransformations Left = 312 Top = 178 object TemppLinearAxisTrans: TLinearAxisTransform end end object Temp1Trans: TChartAxisTransformations Left = 416 Top = 178 object Temp1LinearAxisTrans: TLinearAxisTransform end end object temp2Trans: TChartAxisTransformations Left = 552 Top = 178 object temp2LinearAxisTrans: TLinearAxisTransform end end object Timer1: TTimer Enabled = False Interval = 250 OnTimer = Timer1Timer Left = 440 Top = 296 end object SelectDirectoryDialog: TSelectDirectoryDialog Left = 168 Top = 288 end object Timer2: TTimer Enabled = False Interval = 250 OnTimer = Timer2Timer Left = 536 Top = 296 end end