source: cprs/trunk/CPRS-Chart/fvit.dfm@ 924

Last change on this file since 924 was 830, checked in by Kevin Toppenberg, 14 years ago

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