home *** CD-ROM | disk | FTP | other *** search
- object frmSetTemperature: TfrmSetTemperature
- Left = 270
- Top = 317
- HelpContext = 5
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Set Temperature'
- ClientHeight = 227
- ClientWidth = 425
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- Position = poDefaultPosOnly
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object butOK: TButton
- Left = 324
- Top = 192
- Width = 93
- Height = 29
- Caption = '&OK'
- Default = True
- TabOrder = 2
- OnClick = butClick
- end
- object butCancel: TButton
- Left = 224
- Top = 192
- Width = 93
- Height = 29
- Cancel = True
- Caption = 'C&ancel'
- TabOrder = 1
- OnClick = butClick
- end
- object butHelp: TButton
- Left = 124
- Top = 192
- Width = 93
- Height = 29
- Caption = '&Help'
- TabOrder = 0
- OnClick = butClick
- end
- object pageTemp: TPageControl
- Left = 4
- Top = 4
- Width = 417
- Height = 181
- ActivePage = tabKelvin
- TabOrder = 3
- TabStop = False
- OnChanging = pageTempChanging
- object tabKelvin: TTabSheet
- Caption = '&Kelvin'
- object Label1: TLabel
- Left = 16
- Top = 100
- Width = 377
- Height = 37
- AutoSize = False
- Caption =
- 'In order to input temperature in a different unit, click on the ' +
- 'desired tab above.'
- Transparent = True
- end
- object Label2: TLabel
- Left = 16
- Top = 8
- Width = 377
- Height = 53
- AutoSize = False
- Caption =
- 'Please type the desired temperature in Kelvin from the range of ' +
- '0.00 to 6000.00. A maximum of 2 decimal places will be preserved' +
- ':'
- Transparent = True
- end
- object txtKelvin: TEdit
- Left = 40
- Top = 64
- Width = 133
- Height = 24
- AutoSize = False
- TabOrder = 0
- end
- end
- object tabCelsius: TTabSheet
- Caption = '&Celsius'
- object Label3: TLabel
- Left = 16
- Top = 8
- Width = 377
- Height = 53
- AutoSize = False
- Caption =
- 'Please type the desired temperature in Celsius from the range of' +
- ' -273.15 to 5726.85. A maximum of 2 decimal places will be prese' +
- 'rved:'
- Transparent = True
- end
- object Label4: TLabel
- Left = 16
- Top = 100
- Width = 377
- Height = 37
- AutoSize = False
- Caption =
- 'In order to input temperature in a different unit, click on the ' +
- 'desired tab above.'
- Transparent = True
- end
- object txtCelsius: TEdit
- Left = 40
- Top = 64
- Width = 133
- Height = 24
- AutoSize = False
- TabOrder = 0
- end
- end
- object tabFarenheit: TTabSheet
- Caption = '&Farenheit'
- object Label5: TLabel
- Left = 16
- Top = 8
- Width = 377
- Height = 53
- AutoSize = False
- Caption =
- 'Please type the desired temperature in Fahrenheit from the range' +
- ' of -459.67 to 10340.33. A maximum of 2 decimal places will be p' +
- 'reserved:'
- Transparent = True
- end
- object Label6: TLabel
- Left = 16
- Top = 100
- Width = 377
- Height = 37
- AutoSize = False
- Caption =
- 'In order to input temperature in a different unit, click on the ' +
- 'desired tab above.'
- Transparent = True
- end
- object txtFarenheit: TEdit
- Left = 40
- Top = 64
- Width = 133
- Height = 24
- AutoSize = False
- TabOrder = 0
- end
- end
- end
- end
-