source: cprs/branches/foia-cprs/CPRS-Chart/fvit.dfm@ 926

Last change on this file since 926 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 9.9 KB
RevLine 
[459]1object frmVit: TfrmVit
2 Left = 451
3 Top = 208
4 Width = 499
5 Height = 361
6 Caption = 'frmVit'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 OldCreateOrder = True
14 Position = poScreenCenter
15 OnActivate = FormActivate
16 OnCreate = FormCreate
17 OnDestroy = FormDestroy
18 OnKeyPress = FormKeyPress
19 OnShow = FormShow
20 PixelsPerInch = 96
21 TextHeight = 13
22 object cmdOK: TButton
23 Left = 319
24 Top = 276
25 Width = 75
26 Height = 22
27 Caption = 'OK'
28 TabOrder = 1
29 OnClick = cmdOKClick
30 end
31 object cmdCancel: TButton
32 Left = 406
33 Top = 276
34 Width = 75
35 Height = 22
36 Cancel = True
37 Caption = 'Cancel'
38 TabOrder = 2
39 OnClick = cmdCancelClick
40 end
41 object pnlmain: TPanel
42 Left = 8
43 Top = 24
44 Width = 473
45 Height = 241
46 TabOrder = 0
47 object lblVitPointer: TOROffsetLabel
48 Left = 418
49 Top = 48
50 Width = 17
51 Height = 15
52 Caption = '<--'
53 Color = clBtnFace
54 HorzOffset = 5
55 ParentColor = False
56 Transparent = False
57 VertOffset = 2
58 WordWrap = False
59 end
60 object lblDate: TStaticText
61 Left = 32
62 Top = 23
63 Width = 31
64 Height = 17
65 Caption = 'Date'
66 Font.Charset = DEFAULT_CHARSET
67 Font.Color = clWindowText
68 Font.Height = -11
69 Font.Name = 'MS Sans Serif'
70 Font.Style = [fsBold]
71 ParentFont = False
72 TabOrder = 11
73 end
74 object lblDateBP: TStaticText
75 Tag = 3
76 Left = 26
77 Top = 122
78 Width = 24
79 Height = 17
80 Caption = 'N/A'
81 TabOrder = 12
82 OnDblClick = lbllastClick
83 end
84 object lblDateTemp: TStaticText
85 Left = 26
86 Top = 52
87 Width = 24
88 Height = 17
89 Caption = 'N/A'
90 TabOrder = 13
91 OnDblClick = lbllastClick
92 end
93 object lblDateResp: TStaticText
94 Tag = 2
95 Left = 26
96 Top = 98
97 Width = 24
98 Height = 17
99 Caption = 'N/A'
100 TabOrder = 14
101 OnDblClick = lbllastClick
102 end
103 object lblDatePulse: TStaticText
104 Tag = 1
105 Left = 26
106 Top = 75
107 Width = 24
108 Height = 17
109 Caption = 'N/A'
110 TabOrder = 15
111 OnDblClick = lbllastClick
112 end
113 object lblDateHeight: TStaticText
114 Tag = 4
115 Left = 26
116 Top = 145
117 Width = 24
118 Height = 17
119 Caption = 'N/A'
120 TabOrder = 16
121 OnDblClick = lbllastClick
122 end
123 object lblDateWeight: TStaticText
124 Tag = 5
125 Left = 26
126 Top = 169
127 Width = 24
128 Height = 17
129 Caption = 'N/A'
130 TabOrder = 17
131 OnDblClick = lbllastClick
132 end
133 object lblLstMeas: TStaticText
134 Left = 116
135 Top = 23
136 Width = 80
137 Height = 17
138 Caption = 'Last Measure'
139 Font.Charset = DEFAULT_CHARSET
140 Font.Color = clWindowText
141 Font.Height = -11
142 Font.Name = 'MS Sans Serif'
143 Font.Style = [fsBold]
144 ParentFont = False
145 TabOrder = 18
146 end
147 object lbllastBP: TStaticText
148 Tag = 3
149 Left = 124
150 Top = 122
151 Width = 24
152 Height = 17
153 Caption = 'N/A'
154 TabOrder = 19
155 OnClick = lbllastClick
156 OnDblClick = lbllastClick
157 end
158 object lblLastTemp: TStaticText
159 Left = 124
160 Top = 52
161 Width = 24
162 Height = 17
163 Caption = 'N/A'
164 TabOrder = 20
165 OnDblClick = lbllastClick
166 end
167 object lblLastResp: TStaticText
168 Tag = 2
169 Left = 124
170 Top = 98
171 Width = 24
172 Height = 17
173 Caption = 'N/A'
174 TabOrder = 21
175 OnDblClick = lbllastClick
176 end
177 object lblLastPulse: TStaticText
178 Tag = 1
179 Left = 124
180 Top = 75
181 Width = 24
182 Height = 17
183 Caption = 'N/A'
184 TabOrder = 22
185 OnDblClick = lbllastClick
186 end
187 object lblLastHeight: TStaticText
188 Tag = 4
189 Left = 124
190 Top = 145
191 Width = 24
192 Height = 17
193 Caption = 'N/A'
194 TabOrder = 23
195 OnDblClick = lbllastClick
196 end
197 object lblLastWeight: TStaticText
198 Tag = 5
199 Left = 124
200 Top = 169
201 Width = 24
202 Height = 17
203 Caption = 'N/A'
204 TabOrder = 24
205 OnDblClick = lbllastClick
206 end
207 object lblVital: TStaticText
208 Left = 256
209 Top = 23
210 Width = 29
211 Height = 17
212 Caption = 'Vital'
213 Font.Charset = DEFAULT_CHARSET
214 Font.Color = clWindowText
215 Font.Height = -11
216 Font.Name = 'MS Sans Serif'
217 Font.Style = [fsBold]
218 ParentFont = False
219 TabOrder = 25
220 end
221 object lblVitBP: TStaticText
222 Left = 256
223 Top = 122
224 Width = 23
225 Height = 17
226 Caption = 'B/P'
227 TabOrder = 26
228 end
229 object lnlVitTemp: TStaticText
230 Left = 256
231 Top = 52
232 Width = 31
233 Height = 17
234 Caption = 'Temp'
235 TabOrder = 27
236 end
237 object lblVitResp: TStaticText
238 Left = 256
239 Top = 98
240 Width = 29
241 Height = 17
242 Caption = 'Resp'
243 TabOrder = 28
244 end
245 object lblVitPulse: TStaticText
246 Left = 256
247 Top = 75
248 Width = 30
249 Height = 17
250 Caption = 'Pulse'
251 TabOrder = 29
252 end
253 object lblVitHeight: TStaticText
254 Left = 256
255 Top = 145
256 Width = 35
257 Height = 17
258 Caption = 'Height'
259 TabOrder = 30
260 end
261 object lblVitWeight: TStaticText
262 Left = 256
263 Top = 169
264 Width = 38
265 Height = 17
266 Caption = 'Weight'
267 TabOrder = 31
268 end
269 object lblDatePain: TStaticText
270 Tag = 5
271 Left = 26
272 Top = 193
273 Width = 24
274 Height = 17
275 Caption = 'N/A'
276 TabOrder = 32
277 OnDblClick = lbllastClick
278 end
279 object lblLastPain: TStaticText
280 Tag = 5
281 Left = 124
282 Top = 193
283 Width = 24
284 Height = 17
285 Caption = 'N/A'
286 TabOrder = 33
287 OnDblClick = lbllastClick
288 end
289 object lblVitPain: TStaticText
290 Left = 256
291 Top = 193
292 Width = 55
293 Height = 17
294 Caption = 'Pain Scale'
295 TabOrder = 34
296 end
297 object txtMeasBP: TCaptionEdit
298 Tag = 1
299 Left = 318
300 Top = 119
301 Width = 100
302 Height = 21
303 TabOrder = 5
304 OnEnter = SetVitPointer
305 OnExit = txtMeasBPExit
306 OnKeyPress = FormKeyPress
307 Caption = 'Blood Pressure'
308 end
309 object cboTemp: TCaptionComboBox
310 Tag = 7
311 Left = 360
312 Top = 48
313 Width = 59
314 Height = 21
315 DropDownCount = 2
316 ItemHeight = 13
317 TabOrder = 2
318 OnChange = cboTempChange
319 OnEnter = SetVitPointer
320 OnExit = cboTempExit
321 OnKeyPress = FormKeyPress
322 Items.Strings = (
323 'F'
324 'C')
325 Caption = 'Temperature'
326 end
327 object txtMeasTemp: TCaptionEdit
328 Tag = 2
329 Left = 318
330 Top = 48
331 Width = 43
332 Height = 21
333 TabOrder = 1
334 OnEnter = SetVitPointer
335 OnExit = txtMeasTempExit
336 OnKeyPress = FormKeyPress
337 Caption = 'Temperature'
338 end
339 object txtMeasResp: TCaptionEdit
340 Tag = 3
341 Left = 318
342 Top = 95
343 Width = 100
344 Height = 21
345 TabOrder = 4
346 OnEnter = SetVitPointer
347 OnExit = txtMeasRespExit
348 OnKeyPress = FormKeyPress
349 Caption = 'Resp'
350 end
351 object txtMeasPulse: TCaptionEdit
352 Tag = 4
353 Left = 318
354 Top = 72
355 Width = 100
356 Height = 21
357 TabOrder = 3
358 OnEnter = SetVitPointer
359 OnExit = txtMeasPulseExit
360 OnKeyPress = FormKeyPress
361 Caption = 'Pulse'
362 end
363 object txtMeasHt: TCaptionEdit
364 Tag = 5
365 Left = 318
366 Top = 142
367 Width = 43
368 Height = 21
369 TabOrder = 6
370 OnEnter = SetVitPointer
371 OnExit = txtMeasHtExit
372 OnKeyPress = FormKeyPress
373 Caption = 'Height'
374 end
375 object cboHeight: TCaptionComboBox
376 Tag = 8
377 Left = 361
378 Top = 142
379 Width = 58
380 Height = 21
381 ItemHeight = 13
382 TabOrder = 7
383 OnChange = cboHeightChange
384 OnEnter = SetVitPointer
385 OnExit = cboHeightExit
386 OnKeyPress = FormKeyPress
387 Items.Strings = (
388 'IN'
389 'CM')
390 Caption = 'Height'
391 end
392 object txtMeasWt: TCaptionEdit
393 Tag = 6
394 Left = 318
395 Top = 166
396 Width = 43
397 Height = 21
398 TabOrder = 8
399 OnEnter = SetVitPointer
400 OnExit = txtMeasWtExit
401 OnKeyPress = FormKeyPress
402 Caption = 'Weight'
403 end
404 object cboWeight: TCaptionComboBox
405 Tag = 9
406 Left = 361
407 Top = 166
408 Width = 58
409 Height = 21
410 ItemHeight = 13
411 TabOrder = 9
412 OnChange = cboWeightChange
413 OnEnter = SetVitPointer
414 OnExit = cboWeightExit
415 OnKeyPress = FormKeyPress
416 Items.Strings = (
417 'LB'
418 'KG')
419 Caption = 'Weight'
420 end
421 object txtMeasDate: TORDateBox
422 Tag = 11
423 Left = 312
424 Top = 16
425 Width = 121
426 Height = 21
427 TabOrder = 0
428 Text = 'txtMeasDate'
429 OnEnter = SetVitPointer
430 OnKeyPress = FormKeyPress
431 DateOnly = False
432 RequireTime = False
433 Caption = 'Vital Measured Date'
434 end
435 object cboPain: TORComboBox
436 Tag = 10
437 Left = 318
438 Top = 190
439 Width = 102
440 Height = 21
441 Style = orcsDropDown
442 AutoSelect = True
443 Caption = 'Pain Scale'
444 Color = clWindow
445 DropDownCount = 8
446 ItemHeight = 13
447 ItemTipColor = clWindow
448 ItemTipEnable = True
449 ListItemsOnly = True
450 LongList = False
451 MaxLength = 0
452 Pieces = '1,2'
453 Sorted = False
454 SynonymChars = '<>'
455 TabOrder = 10
456 OnEnter = SetVitPointer
457 OnKeyPress = FormKeyPress
458 end
459 end
460end
Note: See TracBrowser for help on using the repository browser.