source: cprs/trunk/CPRS-Chart/fCover.dfm@ 1094

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

Upgrading to version 27
File size: 16.3 KB
RevLine 
[456]1inherited frmCover: TfrmCover
[830]2 Left = 256
[456]3 Top = 280
4 HelpContext = 1000
5 BorderIcons = []
6 Caption = 'Cover Sheet'
7 HelpFile = 'overvw'
8 OnDestroy = FormDestroy
9 PixelsPerInch = 96
10 TextHeight = 13
[830]11 object pnlBase: TPanel [1]
[456]12 Left = 0
13 Top = 0
14 Width = 640
[830]15 Height = 356
[456]16 Align = alClient
17 BevelOuter = bvNone
18 Constraints.MinHeight = 10
19 TabOrder = 0
20 object sptBottom: TSplitter
21 Left = 0
[830]22 Top = 237
[456]23 Width = 640
24 Height = 5
25 Cursor = crVSplit
26 Align = alBottom
27 Constraints.MinHeight = 5
28 OnCanResize = sptBottomCanResize
29 end
30 object pnlNotTheBottom: TPanel
31 Left = 0
32 Top = 0
33 Width = 640
[830]34 Height = 237
[456]35 Align = alClient
36 BevelOuter = bvNone
37 TabOrder = 0
38 object sptTop: TSplitter
39 Left = 0
40 Top = 120
41 Width = 640
42 Height = 5
43 Cursor = crVSplit
44 Align = alTop
45 Constraints.MinHeight = 5
46 OnCanResize = sptTopCanResize
47 end
48 object pnlTop: TPanel
49 Left = 0
50 Top = 0
51 Width = 640
52 Height = 120
53 Align = alTop
54 BevelOuter = bvNone
55 TabOrder = 0
56 object spt_2: TSplitter
57 Left = 424
58 Top = 0
59 Width = 5
60 Height = 120
61 Align = alRight
62 Constraints.MinWidth = 5
63 OnCanResize = spt_2CanResize
64 end
65 object pnl_not3: TPanel
66 Left = 0
67 Top = 0
68 Width = 424
69 Height = 120
70 Align = alClient
71 BevelOuter = bvNone
72 TabOrder = 0
73 object spt_1: TSplitter
74 Left = 211
75 Top = 0
76 Width = 5
77 Height = 120
78 Color = clBtnFace
79 Constraints.MinWidth = 5
80 ParentColor = False
81 OnCanResize = spt_1CanResize
82 end
83 object pnl_1: TPanel
84 Left = 0
85 Top = 0
86 Width = 211
87 Height = 120
88 Align = alLeft
89 BevelOuter = bvNone
90 TabOrder = 0
91 Visible = False
92 object lbl_1: TOROffsetLabel
93 Left = 0
94 Top = 0
95 Width = 211
96 Height = 19
97 Align = alTop
98 Caption = ' '
99 HorzOffset = 2
100 Transparent = False
101 VertOffset = 6
102 WordWrap = False
103 end
104 object lst_1: TORListBox
105 Tag = 10
106 Left = 0
107 Top = 19
108 Width = 211
109 Height = 101
110 Align = alClient
111 Ctl3D = True
112 ItemHeight = 13
113 ParentCtl3D = False
114 ParentShowHint = False
115 ShowHint = True
116 TabOrder = 0
117 OnClick = CoverItemClick
118 OnExit = CoverItemExit
119 ItemTipColor = clWindow
120 LongList = False
121 TabPositions = '2,3'
122 end
123 end
124 object pnl_2: TPanel
125 Left = 216
126 Top = 0
127 Width = 208
128 Height = 120
129 Align = alClient
130 BevelOuter = bvNone
131 TabOrder = 1
132 Visible = False
133 object lbl_2: TOROffsetLabel
134 Left = 0
135 Top = 0
136 Width = 208
137 Height = 19
138 Align = alTop
139 Caption = ' '
140 HorzOffset = 2
141 Transparent = False
142 VertOffset = 6
143 WordWrap = False
144 end
145 object lst_2: TORListBox
146 Tag = 20
147 Left = 0
148 Top = 19
149 Width = 208
150 Height = 101
151 Align = alClient
152 Ctl3D = True
153 ItemHeight = 13
154 ParentCtl3D = False
155 ParentShowHint = False
156 ShowHint = True
157 TabOrder = 0
158 OnClick = CoverItemClick
159 OnExit = CoverItemExit
160 ItemTipColor = clWindow
161 LongList = False
162 end
163 end
164 end
165 object pnl_3: TPanel
166 Left = 429
167 Top = 0
168 Width = 211
169 Height = 120
170 Align = alRight
171 BevelOuter = bvNone
172 TabOrder = 1
173 Visible = False
174 object lbl_3: TOROffsetLabel
175 Left = 0
176 Top = 57
177 Width = 211
178 Height = 19
179 Align = alTop
180 Caption = ' '
181 HorzOffset = 2
182 Transparent = False
183 VertOffset = 6
184 WordWrap = False
185 end
186 object sptFlag: TSplitter
187 Left = 0
188 Top = 52
189 Width = 211
190 Height = 5
191 Cursor = crVSplit
192 Align = alTop
193 Beveled = True
194 Constraints.MinHeight = 5
195 end
196 object pnlFlag: TPanel
197 Left = 0
198 Top = 0
199 Width = 211
200 Height = 52
201 Align = alTop
202 Constraints.MinHeight = 40
203 TabOrder = 0
204 object lblFlag: TOROffsetLabel
205 Left = 1
206 Top = 1
207 Width = 209
208 Height = 15
209 Align = alTop
210 Caption = 'Patient Record Flags'
211 HorzOffset = 2
212 Transparent = False
213 VertOffset = 2
214 WordWrap = False
215 end
216 object lstFlag: TORListBox
217 Left = 1
218 Top = 16
219 Width = 209
220 Height = 35
221 Align = alClient
222 Font.Charset = DEFAULT_CHARSET
223 Font.Color = clMaroon
224 Font.Height = -11
225 Font.Name = 'MS Sans Serif'
226 Font.Style = []
227 ItemHeight = 13
228 ParentFont = False
229 ParentShowHint = False
230 ShowHint = True
231 TabOrder = 0
232 OnClick = lstFlagClick
233 OnKeyDown = lstFlagKeyDown
234 ItemTipColor = clWindow
235 LongList = False
236 Pieces = '2'
237 end
238 end
239 object lst_3: TORListBox
240 Tag = 30
241 Left = 0
242 Top = 76
243 Width = 211
244 Height = 44
245 Align = alClient
246 Ctl3D = True
247 Font.Charset = DEFAULT_CHARSET
248 Font.Color = clMaroon
249 Font.Height = -11
250 Font.Name = 'MS Sans Serif'
251 Font.Style = []
252 ItemHeight = 13
253 ParentCtl3D = False
254 ParentFont = False
255 ParentShowHint = False
256 ShowHint = True
257 TabOrder = 1
258 OnClick = CoverItemClick
259 OnExit = CoverItemExit
260 ItemTipColor = clWindow
261 LongList = False
262 TabPositions = '20'
263 end
264 end
265 end
266 object pnlMiddle: TPanel
267 Left = 0
268 Top = 125
269 Width = 640
[830]270 Height = 112
[456]271 Align = alClient
272 BevelOuter = bvNone
273 TabOrder = 1
274 object spt_3: TSplitter
275 Left = 318
276 Top = 0
277 Width = 5
[830]278 Height = 112
[456]279 Constraints.MinWidth = 5
280 OnCanResize = spt_3CanResize
281 end
282 object pnl_4: TPanel
283 Left = 0
284 Top = 0
285 Width = 318
[830]286 Height = 112
[456]287 Align = alLeft
288 BevelOuter = bvNone
289 TabOrder = 0
290 Visible = False
291 object lbl_4: TOROffsetLabel
292 Left = 0
293 Top = 0
294 Width = 318
295 Height = 13
296 Align = alTop
297 Caption = ' '
298 HorzOffset = 2
299 Transparent = False
300 VertOffset = 0
301 WordWrap = False
302 end
303 object lst_4: TORListBox
304 Tag = 40
305 Left = 0
306 Top = 13
307 Width = 318
[830]308 Height = 99
[456]309 Align = alClient
310 Ctl3D = True
311 ItemHeight = 13
312 ParentCtl3D = False
313 ParentShowHint = False
314 ShowHint = True
315 TabOrder = 0
316 OnClick = CoverItemClick
317 OnExit = CoverItemExit
318 ItemTipColor = clWindow
319 LongList = False
320 TabPositions = '35'
321 end
322 end
323 object pnl_5: TPanel
324 Left = 323
325 Top = 0
326 Width = 317
[830]327 Height = 112
[456]328 Align = alClient
329 BevelOuter = bvNone
330 TabOrder = 1
331 Visible = False
332 object lbl_5: TOROffsetLabel
333 Left = 0
334 Top = 0
335 Width = 317
336 Height = 13
337 Align = alTop
338 Caption = ' '
339 HorzOffset = 2
340 Transparent = False
341 VertOffset = 0
342 WordWrap = False
343 end
344 object lst_5: TORListBox
345 Tag = 50
346 Left = 0
347 Top = 13
348 Width = 317
[830]349 Height = 99
[456]350 Align = alClient
351 Ctl3D = True
352 ItemHeight = 13
353 ParentCtl3D = False
354 ParentShowHint = False
355 ShowHint = True
356 TabOrder = 0
357 OnClick = CoverItemClick
358 OnExit = CoverItemExit
359 ItemTipColor = clWindow
360 LongList = False
361 TabPositions = '34,44'
362 end
363 end
364 end
365 end
366 object pnlBottom: TPanel
367 Left = 0
[830]368 Top = 242
[456]369 Width = 640
370 Height = 114
371 Align = alBottom
372 BevelOuter = bvNone
373 TabOrder = 1
374 object spt_5: TSplitter
375 Left = 380
376 Top = 0
377 Width = 5
378 Height = 114
379 Align = alRight
380 Constraints.MinWidth = 5
381 OnCanResize = spt_5CanResize
382 end
383 object pnl_not8: TPanel
384 Left = 0
385 Top = 0
386 Width = 380
387 Height = 114
388 Align = alClient
389 BevelOuter = bvNone
390 TabOrder = 0
391 object spt_4: TSplitter
392 Left = 255
393 Top = 0
394 Width = 5
395 Height = 114
396 Constraints.MinWidth = 5
397 OnCanResize = spt_4CanResize
398 end
399 object pnl_6: TPanel
400 Left = 0
401 Top = 0
402 Width = 255
403 Height = 114
404 Align = alLeft
405 BevelOuter = bvNone
406 TabOrder = 0
407 Visible = False
408 object lbl_6: TOROffsetLabel
409 Left = 0
410 Top = 0
411 Width = 255
412 Height = 13
413 Align = alTop
414 Caption = ' '
415 HorzOffset = 2
416 Transparent = False
417 VertOffset = 0
418 WordWrap = False
419 end
420 object lst_6: TORListBox
421 Tag = 60
422 Left = 0
423 Top = 13
424 Width = 255
425 Height = 101
426 Align = alClient
427 Ctl3D = True
428 ItemHeight = 13
429 ParentCtl3D = False
430 ParentShowHint = False
431 ShowHint = True
432 TabOrder = 0
433 OnClick = CoverItemClick
434 OnExit = CoverItemExit
435 ItemTipColor = clWindow
436 LongList = False
437 TabPositions = '34'
438 end
439 end
440 object pnl_7: TPanel
441 Left = 260
442 Top = 0
443 Width = 120
444 Height = 114
445 Align = alClient
446 BevelOuter = bvNone
447 TabOrder = 1
448 Visible = False
449 object lbl_7: TOROffsetLabel
450 Left = 0
451 Top = 0
452 Width = 120
453 Height = 13
454 Align = alTop
455 HorzOffset = 2
456 Transparent = False
457 VertOffset = 0
458 WordWrap = False
459 end
460 object lst_7: TORListBox
461 Tag = 70
462 Left = 0
463 Top = 13
464 Width = 120
465 Height = 101
466 Align = alClient
467 Ctl3D = True
468 ItemHeight = 13
469 ParentCtl3D = False
470 ParentShowHint = False
471 ShowHint = True
472 TabOrder = 0
473 OnClick = CoverItemClick
474 OnExit = CoverItemExit
475 ItemTipColor = clWindow
476 LongList = False
477 TabPositions = '4,13,15,24'
478 end
479 end
480 end
481 object pnl_8: TPanel
482 Left = 385
483 Top = 0
484 Width = 255
485 Height = 114
486 Align = alRight
487 BevelOuter = bvNone
488 TabOrder = 1
489 Visible = False
490 object lbl_8: TOROffsetLabel
491 Left = 0
492 Top = 0
493 Width = 255
494 Height = 13
495 Align = alTop
496 HorzOffset = 2
497 Transparent = False
498 VertOffset = 0
499 WordWrap = False
500 end
501 object lst_8: TORListBox
502 Tag = 80
503 Left = 0
504 Top = 13
505 Width = 255
506 Height = 101
507 Align = alClient
508 Ctl3D = True
509 ItemHeight = 13
510 ParentCtl3D = False
511 ParentShowHint = False
512 ShowHint = True
513 TabOrder = 0
514 OnClick = CoverItemClick
515 OnExit = CoverItemExit
516 ItemTipColor = clWindow
517 LongList = False
518 TabPositions = '15,35'
519 end
520 end
521 end
522 end
[830]523 inherited amgrMain: TVA508AccessibilityManager
524 Data = (
525 (
526 'Component = pnlBase'
527 'Status = stsDefault')
528 (
529 'Component = pnlNotTheBottom'
530 'Status = stsDefault')
531 (
532 'Component = pnlTop'
533 'Status = stsDefault')
534 (
535 'Component = pnl_not3'
536 'Status = stsDefault')
537 (
538 'Component = pnl_1'
539 'Status = stsDefault')
540 (
541 'Component = lst_1'
542 'Status = stsDefault')
543 (
544 'Component = pnl_2'
545 'Status = stsDefault')
546 (
547 'Component = lst_2'
548 'Status = stsDefault')
549 (
550 'Component = pnl_3'
551 'Status = stsDefault')
552 (
553 'Component = pnlFlag'
554 'Status = stsDefault')
555 (
556 'Component = lstFlag'
557 'Status = stsDefault')
558 (
559 'Component = lst_3'
560 'Status = stsDefault')
561 (
562 'Component = pnlMiddle'
563 'Status = stsDefault')
564 (
565 'Component = pnl_4'
566 'Status = stsDefault')
567 (
568 'Component = lst_4'
569 'Status = stsDefault')
570 (
571 'Component = pnl_5'
572 'Status = stsDefault')
573 (
574 'Component = lst_5'
575 'Status = stsDefault')
576 (
577 'Component = pnlBottom'
578 'Status = stsDefault')
579 (
580 'Component = pnl_not8'
581 'Status = stsDefault')
582 (
583 'Component = pnl_6'
584 'Status = stsDefault')
585 (
586 'Component = lst_6'
587 'Status = stsDefault')
588 (
589 'Component = pnl_7'
590 'Status = stsDefault')
591 (
592 'Component = lst_7'
593 'Status = stsDefault')
594 (
595 'Component = pnl_8'
596 'Status = stsDefault')
597 (
598 'Component = lst_8'
599 'Status = stsDefault')
600 (
601 'Component = frmCover'
602 'Status = stsDefault'))
603 end
[456]604 object timPoll: TTimer
605 Enabled = False
606 Interval = 2600
607 OnTimer = timPollTimer
608 Left = 20
609 Top = 32
610 end
611 object popMenuAllergies: TPopupMenu
612 OnPopup = popMenuAllergiesPopup
613 Left = 283
614 Top = 46
615 object popNewAllergy: TMenuItem
616 Caption = 'Enter new allergy'
617 OnClick = popNewAllergyClick
618 end
619 object popEditAllergy: TMenuItem
620 Caption = 'Edit selected allergy'
621 Visible = False
622 OnClick = popEditAllergyClick
623 end
624 object popEnteredInError: TMenuItem
625 Caption = 'Mark selected allergy as entered in error'
626 OnClick = popEnteredInErrorClick
627 end
628 object popNKA: TMenuItem
629 Caption = 'Mark patient as having "No Known Allergies" (NKA)'
630 OnClick = popNKAClick
631 end
632 end
633end
Note: See TracBrowser for help on using the repository browser.