source: cprs/branches/tmg-cprs/CPRS-Chart/fvit.dfm@ 1547

Last change on this file since 1547 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 12.8 KB
Line 
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 LookupPiece = 0
452 MaxLength = 0
453 Pieces = '1,2'
454 Sorted = False
455 SynonymChars = '<>'
456 TabOrder = 10
457 OnEnter = SetVitPointer
458 OnKeyPress = FormKeyPress
459 CharsNeedMatch = 1
460 end
461 end
462 object DKLanguageController1: TDKLanguageController
463 Left = 200
464 Top = 296
465 LangData = {
466 060066726D566974010100000001000000070043617074696F6E012700000005
467 00636D644F4B010100000002000000070043617074696F6E000900636D644361
468 6E63656C010100000003000000070043617074696F6E000700706E6C6D61696E
469 00000D006C626C566974506F696E746572000007006C626C4461746501010000
470 0004000000070043617074696F6E0009006C626C446174654250010100000005
471 000000070043617074696F6E000B006C626C4461746554656D70010100000006
472 000000070043617074696F6E000B006C626C4461746552657370010100000007
473 000000070043617074696F6E000C006C626C4461746550756C73650101000000
474 08000000070043617074696F6E000D006C626C44617465486569676874010100
475 000009000000070043617074696F6E000D006C626C4461746557656967687401
476 010000000A000000070043617074696F6E000A006C626C4C73744D6561730101
477 0000000B000000070043617074696F6E0009006C626C6C617374425001010000
478 000C000000070043617074696F6E000B006C626C4C61737454656D7001010000
479 000D000000070043617074696F6E000B006C626C4C6173745265737001010000
480 000E000000070043617074696F6E000C006C626C4C61737450756C7365010100
481 00000F000000070043617074696F6E000D006C626C4C61737448656967687401
482 0100000010000000070043617074696F6E000D006C626C4C6173745765696768
483 74010100000011000000070043617074696F6E0008006C626C566974616C0101
484 00000012000000070043617074696F6E0008006C626C56697442500101000000
485 13000000070043617074696F6E000A006C6E6C56697454656D70010100000014
486 000000070043617074696F6E000A006C626C5669745265737001010000001500
487 0000070043617074696F6E000B006C626C56697450756C736501010000001600
488 0000070043617074696F6E000C006C626C566974486569676874010100000017
489 000000070043617074696F6E000C006C626C5669745765696768740101000000
490 18000000070043617074696F6E000B006C626C446174655061696E0101000000
491 19000000070043617074696F6E000B006C626C4C6173745061696E0101000000
492 1A000000070043617074696F6E000A006C626C5669745061696E01010000001B
493 000000070043617074696F6E0009007478744D656173425001010000001C0000
494 00070043617074696F6E00070063626F54656D7001020000001E000000070043
495 617074696F6E1D00000005004974656D73000B007478744D65617354656D7001
496 010000001F000000070043617074696F6E000B007478744D6561735265737001
497 0100000020000000070043617074696F6E000C007478744D65617350756C7365
498 010100000021000000070043617074696F6E0009007478744D65617348740101
499 00000022000000070043617074696F6E00090063626F48656967687401020000
500 0024000000070043617074696F6E2300000005004974656D730009007478744D
501 6561735774010100000025000000070043617074696F6E00090063626F576569
502 676874010200000027000000070043617074696F6E2600000005004974656D73
503 000B007478744D65617344617465010200000029000000070043617074696F6E
504 2800000004005465787400070063626F5061696E01010000002A000000070043
505 617074696F6E00}
506 end
507end
Note: See TracBrowser for help on using the repository browser.