-
Notifications
You must be signed in to change notification settings - Fork 0
/
HeatWizardPanel.lfm
299 lines (299 loc) · 6.25 KB
/
HeatWizardPanel.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
object MainForm: TMainForm
Left = 369
Height = 195
Top = 143
Width = 380
HorzScrollBar.Page = 359
HorzScrollBar.Range = 304
VertScrollBar.Page = 194
VertScrollBar.Range = 167
ActiveControl = VoltageEdit
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = 'Heat Wizard'
ClientHeight = 195
ClientWidth = 380
Color = clNone
Constraints.MaxHeight = 195
Constraints.MaxWidth = 480
Constraints.MinHeight = 195
Constraints.MinWidth = 380
Font.Color = 10611436
OnChangeBounds = FormResize
OnCreate = FormCreate
OnMouseMove = FormMouseMove
OnPaint = FormPaint
OnResize = FormResize
LCLVersion = '0.9.30'
Visible = True
object Label3: TLabel
Left = 233
Height = 17
Top = 93
Width = 16
Caption = '°C'
ParentColor = False
end
object PreferenceCircle: TShape
Left = 361
Height = 16
Top = 176
Width = 16
Brush.Color = 6249937
Brush.Style = bsClear
Pen.Color = clNone
Pen.Style = psClear
OnMouseMove = PreferenceCircleMouseMove
Shape = stCircle
end
object InfoCircle: TShape
Left = 360
Height = 16
Top = 6
Width = 16
Brush.Color = 6249937
Brush.Style = bsClear
Pen.Color = clNone
Pen.Style = psClear
OnMouseMove = InfoCircleMouseMove
Shape = stCircle
end
object Label1: TLabel
Left = 104
Height = 17
Top = 32
Width = 22
Caption = 'mV'
ParentColor = False
end
object Label2: TLabel
Left = 104
Height = 17
Top = 93
Width = 16
Caption = '°C'
ParentColor = False
end
object Label4: TLabel
Left = 104
Height = 17
Top = 125
Width = 9
Caption = 'K'
ParentColor = False
end
object Label5: TLabel
Left = 233
Height = 17
Top = 125
Width = 9
Caption = 'K'
ParentColor = False
end
object InfoButton: TLabel
Left = 365
Height = 14
Top = 6
Width = 15
AutoSize = False
Caption = 'i'
Font.Color = 10611436
Font.Style = [fsItalic]
ParentColor = False
ParentFont = False
OnClick = InfoButtonClick
OnMouseMove = InfoCircleMouseMove
end
object PreferenceButton: TLabel
Left = 365
Height = 17
Top = 174
Width = 9
Caption = 'p'
Font.Color = 10611436
Font.Style = [fsItalic]
ParentColor = False
ParentFont = False
OnClick = PreferenceButtonClick
OnMouseMove = PreferenceCircleMouseMove
end
object Warning: TLabel
Left = 304
Height = 80
Top = 30
Width = 75
AutoSize = False
Caption = 'illegal input! try again! '
ParentColor = False
Visible = False
end
object TemperatureKelvinEdit: TEdit
Left = 24
Height = 22
Top = 120
Width = 72
Color = clNone
Font.Color = 3168345
OnKeyDown = TemperatureKelvinEditKeyDown
ParentFont = False
TabOrder = 2
Text = '298.15'
end
object ReferenceKelvinEdit: TEdit
Left = 152
Height = 22
Top = 120
Width = 72
Color = clNone
Font.Color = 3168345
OnKeyDown = ReferenceKelvinEditKeyDown
ParentFont = False
TabOrder = 7
Text = '298.15'
end
object VoltageEdit: TLabeledEdit
Left = 24
Height = 22
Top = 30
Width = 72
Color = clNone
EditLabel.AnchorSideLeft.Control = VoltageEdit
EditLabel.AnchorSideBottom.Control = VoltageEdit
EditLabel.Left = 24
EditLabel.Height = 17
EditLabel.Top = 10
EditLabel.Width = 49
EditLabel.Caption = 'Voltage'
EditLabel.ParentColor = False
Font.Color = 3168345
ParentFont = False
TabOrder = 0
OnKeyDown = VoltageEditKeyDown
end
object TemperatureCelsiusEdit: TLabeledEdit
Left = 24
Height = 22
Top = 88
Width = 72
Color = clNone
EditLabel.AnchorSideLeft.Control = TemperatureCelsiusEdit
EditLabel.AnchorSideBottom.Control = TemperatureCelsiusEdit
EditLabel.Left = 24
EditLabel.Height = 17
EditLabel.Top = 68
EditLabel.Width = 82
EditLabel.Caption = 'Temperature'
EditLabel.ParentColor = False
Font.Color = 3168345
ParentFont = False
TabOrder = 1
Text = '25.00'
OnKeyDown = TemperatureCelsiusEditKeyDown
end
object ReferenceCelsiusEdit: TLabeledEdit
Left = 152
Height = 22
Top = 88
Width = 72
Color = clNone
EditLabel.AnchorSideLeft.Control = ReferenceCelsiusEdit
EditLabel.AnchorSideBottom.Control = ReferenceCelsiusEdit
EditLabel.Left = 152
EditLabel.Height = 17
EditLabel.Top = 68
EditLabel.Width = 148
EditLabel.Caption = 'Reference Temperature'
EditLabel.ParentColor = False
Font.Color = 3168345
ParentFont = False
TabOrder = 4
Text = '25.00'
OnKeyDown = ReferenceCelsiusEditKeyDown
end
object TypeBox: TComboBox
Left = 152
Height = 20
Top = 30
Width = 95
Font.Color = 3168345
ItemHeight = 0
Items.Strings = (
'Type B'
'Type E'
'Type J'
'Type K'
'Type N'
'Type R'
'Type S'
'Type T'
)
MaxLength = 65535
OnChange = TypeBoxChange
ParentFont = False
Style = csDropDownList
TabOrder = 5
TabStop = False
end
object QuitButton: TButton
Left = 280
Height = 20
Top = 152
Width = 75
Caption = 'Quit'
Font.Color = 3168345
OnClick = QuitButtonClick
ParentFont = False
TabOrder = 6
TabStop = False
end
object TemperatureFahrenheitEdit: TEdit
Left = 24
Height = 22
Top = 152
Width = 72
Color = clNone
Font.Color = 3168345
OnKeyDown = TemperatureFahrenheitEditKeyDown
ParentFont = False
TabOrder = 3
Text = '77.00'
end
object Label6: TLabel
Left = 104
Height = 17
Top = 157
Width = 14
Caption = '°F'
ParentColor = False
end
object ReferenceFahrenheitEdit: TEdit
Left = 152
Height = 22
Top = 152
Width = 72
Color = clNone
Font.Color = 3168345
OnKeyDown = ReferenceFahrenheitEditKeyDown
ParentFont = False
TabOrder = 8
Text = '77.00'
end
object Label7: TLabel
Left = 233
Height = 17
Top = 157
Width = 14
Caption = '°F'
ParentColor = False
end
object ThermocoupleLabel: TLabel
Left = 152
Height = 17
Top = 10
Width = 92
Caption = 'Thermocouple'
Font.Color = 10611436
ParentColor = False
ParentFont = False
end
end