source: cprs/branches/foia-cprs/CPRS-Chart/fCover.dfm@ 495

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

Uploading from OR_30_258
File size: 14.5 KB
RevLine 
[459]1inherited frmCover: TfrmCover
[460]2 Left = 256
3 Top = 280
[459]4 HelpContext = 1000
5 BorderIcons = []
6 Caption = 'Cover Sheet'
7 HelpFile = 'overvw'
8 OnDestroy = FormDestroy
9 PixelsPerInch = 96
10 TextHeight = 13
11 object pnlBase: TPanel
12 Left = 0
13 Top = 0
14 Width = 640
15 Height = 356
16 Align = alClient
17 BevelOuter = bvNone
18 Constraints.MinHeight = 10
19 TabOrder = 0
20 object sptBottom: TSplitter
21 Left = 0
22 Top = 237
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
34 Height = 237
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 Cursor = crHSplit
62 Align = alRight
63 Constraints.MinWidth = 5
64 OnCanResize = spt_2CanResize
65 end
66 object pnl_not3: TPanel
67 Left = 0
68 Top = 0
69 Width = 424
70 Height = 120
71 Align = alClient
72 BevelOuter = bvNone
73 TabOrder = 0
74 object spt_1: TSplitter
75 Left = 211
76 Top = 0
77 Width = 5
78 Height = 120
79 Cursor = crHSplit
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
272 Height = 112
273 Align = alClient
274 BevelOuter = bvNone
275 TabOrder = 1
276 object spt_3: TSplitter
277 Left = 318
278 Top = 0
279 Width = 5
280 Height = 112
281 Cursor = crHSplit
282 Constraints.MinWidth = 5
283 OnCanResize = spt_3CanResize
284 end
285 object pnl_4: TPanel
286 Left = 0
287 Top = 0
288 Width = 318
289 Height = 112
290 Align = alLeft
291 BevelOuter = bvNone
292 TabOrder = 0
293 Visible = False
294 object lbl_4: TOROffsetLabel
295 Left = 0
296 Top = 0
297 Width = 318
298 Height = 13
299 Align = alTop
300 Caption = ' '
301 HorzOffset = 2
302 Transparent = False
303 VertOffset = 0
304 WordWrap = False
305 end
306 object lst_4: TORListBox
307 Tag = 40
308 Left = 0
309 Top = 13
310 Width = 318
311 Height = 99
312 Align = alClient
313 Ctl3D = True
314 ItemHeight = 13
315 ParentCtl3D = False
316 ParentShowHint = False
317 ShowHint = True
318 TabOrder = 0
319 OnClick = CoverItemClick
320 OnExit = CoverItemExit
321 ItemTipColor = clWindow
322 LongList = False
323 TabPositions = '35'
324 end
325 end
326 object pnl_5: TPanel
327 Left = 323
328 Top = 0
329 Width = 317
330 Height = 112
331 Align = alClient
332 BevelOuter = bvNone
333 TabOrder = 1
334 Visible = False
335 object lbl_5: TOROffsetLabel
336 Left = 0
337 Top = 0
338 Width = 317
339 Height = 13
340 Align = alTop
341 Caption = ' '
342 HorzOffset = 2
343 Transparent = False
344 VertOffset = 0
345 WordWrap = False
346 end
347 object lst_5: TORListBox
348 Tag = 50
349 Left = 0
350 Top = 13
351 Width = 317
352 Height = 99
353 Align = alClient
354 Ctl3D = True
355 ItemHeight = 13
356 ParentCtl3D = False
357 ParentShowHint = False
358 ShowHint = True
359 TabOrder = 0
360 OnClick = CoverItemClick
361 OnExit = CoverItemExit
362 ItemTipColor = clWindow
363 LongList = False
364 TabPositions = '34,44'
365 end
366 end
367 end
368 end
369 object pnlBottom: TPanel
370 Left = 0
371 Top = 242
372 Width = 640
373 Height = 114
374 Align = alBottom
375 BevelOuter = bvNone
376 TabOrder = 1
377 object spt_5: TSplitter
378 Left = 380
379 Top = 0
380 Width = 5
381 Height = 114
382 Cursor = crHSplit
383 Align = alRight
384 Constraints.MinWidth = 5
385 OnCanResize = spt_5CanResize
386 end
387 object pnl_not8: TPanel
388 Left = 0
389 Top = 0
390 Width = 380
391 Height = 114
392 Align = alClient
393 BevelOuter = bvNone
394 TabOrder = 0
395 object spt_4: TSplitter
396 Left = 255
397 Top = 0
398 Width = 5
399 Height = 114
400 Cursor = crHSplit
401 Constraints.MinWidth = 5
402 OnCanResize = spt_4CanResize
403 end
404 object pnl_6: TPanel
405 Left = 0
406 Top = 0
407 Width = 255
408 Height = 114
409 Align = alLeft
410 BevelOuter = bvNone
411 TabOrder = 0
412 Visible = False
413 object lbl_6: TOROffsetLabel
414 Left = 0
415 Top = 0
416 Width = 255
417 Height = 13
418 Align = alTop
419 Caption = ' '
420 HorzOffset = 2
421 Transparent = False
422 VertOffset = 0
423 WordWrap = False
424 end
425 object lst_6: TORListBox
426 Tag = 60
427 Left = 0
428 Top = 13
429 Width = 255
430 Height = 101
431 Align = alClient
432 Ctl3D = True
433 ItemHeight = 13
434 ParentCtl3D = False
435 ParentShowHint = False
436 ShowHint = True
437 TabOrder = 0
438 OnClick = CoverItemClick
439 OnExit = CoverItemExit
440 ItemTipColor = clWindow
441 LongList = False
442 TabPositions = '34'
443 end
444 end
445 object pnl_7: TPanel
446 Left = 260
447 Top = 0
448 Width = 120
449 Height = 114
450 Align = alClient
451 BevelOuter = bvNone
452 TabOrder = 1
453 Visible = False
454 object lbl_7: TOROffsetLabel
455 Left = 0
456 Top = 0
457 Width = 120
458 Height = 13
459 Align = alTop
460 HorzOffset = 2
461 Transparent = False
462 VertOffset = 0
463 WordWrap = False
464 end
465 object lst_7: TORListBox
466 Tag = 70
467 Left = 0
468 Top = 13
469 Width = 120
470 Height = 101
471 Align = alClient
472 Ctl3D = True
473 ItemHeight = 13
474 ParentCtl3D = False
475 ParentShowHint = False
476 ShowHint = True
477 TabOrder = 0
478 OnClick = CoverItemClick
479 OnExit = CoverItemExit
480 ItemTipColor = clWindow
481 LongList = False
482 TabPositions = '4,13,15,24'
483 end
484 end
485 end
486 object pnl_8: TPanel
487 Left = 385
488 Top = 0
489 Width = 255
490 Height = 114
491 Align = alRight
492 BevelOuter = bvNone
493 TabOrder = 1
494 Visible = False
495 object lbl_8: TOROffsetLabel
496 Left = 0
497 Top = 0
498 Width = 255
499 Height = 13
500 Align = alTop
501 HorzOffset = 2
502 Transparent = False
503 VertOffset = 0
504 WordWrap = False
505 end
506 object lst_8: TORListBox
507 Tag = 80
508 Left = 0
509 Top = 13
510 Width = 255
511 Height = 101
512 Align = alClient
513 Ctl3D = True
514 ItemHeight = 13
515 ParentCtl3D = False
516 ParentShowHint = False
517 ShowHint = True
518 TabOrder = 0
519 OnClick = CoverItemClick
520 OnExit = CoverItemExit
521 ItemTipColor = clWindow
522 LongList = False
523 TabPositions = '15,35'
524 end
525 end
526 end
527 end
528 object timPoll: TTimer
529 Enabled = False
530 Interval = 2600
531 OnTimer = timPollTimer
532 Left = 20
533 Top = 32
534 end
535 object popMenuAllergies: TPopupMenu
536 OnPopup = popMenuAllergiesPopup
537 Left = 283
538 Top = 46
539 object popNewAllergy: TMenuItem
540 Caption = 'Enter new allergy'
541 OnClick = popNewAllergyClick
542 end
543 object popEditAllergy: TMenuItem
544 Caption = 'Edit selected allergy'
545 Visible = False
546 OnClick = popEditAllergyClick
547 end
548 object popEnteredInError: TMenuItem
549 Caption = 'Mark selected allergy as entered in error'
550 OnClick = popEnteredInErrorClick
551 end
552 object popNKA: TMenuItem
553 Caption = 'Mark patient as having "No Known Allergies" (NKA)'
554 OnClick = popNKAClick
555 end
556 end
557end
Note: See TracBrowser for help on using the repository browser.