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

Last change on this file since 1737 was 1679, checked in by healthsevak, 10 years ago

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