source: cprs/branches/tmg-cprs/CPRS-Chart/fCover.dfm@ 1717

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

update
File size: 15.9 KB
RevLine 
[453]1inherited frmCover: TfrmCover
[793]2 Left = 1152
3 Top = 229
[453]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 [1]
12 Left = 0
13 Top = 0
14 Width = 640
15 Height = 349
16 Align = alClient
17 BevelOuter = bvNone
18 Constraints.MinHeight = 10
19 TabOrder = 0
20 object sptBottom: TSplitter
21 Left = 0
22 Top = 230
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 = 230
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
270 Height = 105
271 Align = alClient
272 BevelOuter = bvNone
273 TabOrder = 1
274 object spt_3: TSplitter
275 Left = 318
276 Top = 0
277 Width = 5
278 Height = 105
279 Constraints.MinWidth = 5
280 OnCanResize = spt_3CanResize
281 end
282 object pnl_4: TPanel
283 Left = 0
284 Top = 0
285 Width = 318
286 Height = 105
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
308 Height = 92
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
327 Height = 105
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
349 Height = 92
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
368 Top = 235
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
523 inherited DKLanguageController1: TDKLanguageController
524 LangData = {
525 080066726D436F766572010200000001000000070043617074696F6E02000000
526 080048656C7046696C6501310000000D0073687050616765426F74746F6D0000
527 0700706E6C4261736500000900737074426F74746F6D00000F00706E6C4E6F74
528 546865426F74746F6D00000600737074546F7000000600706E6C546F70000005
529 007370745F3200000800706E6C5F6E6F7433000005007370745F310000050070
530 6E6C5F31000005006C626C5F31000005006C73745F3100000500706E6C5F3200
531 0005006C626C5F32000005006C73745F3200000500706E6C5F33000005006C62
532 6C5F3300000700737074466C616700000700706E6C466C6167000007006C626C
533 466C6167010100000003000000070043617074696F6E0007006C7374466C6167
534 000005006C73745F3300000900706E6C4D6964646C65000005007370745F3300
535 000500706E6C5F34000005006C626C5F34000005006C73745F3400000500706E
536 6C5F35000005006C626C5F35000005006C73745F3500000900706E6C426F7474
537 6F6D000005007370745F3500000800706E6C5F6E6F7438000005007370745F34
538 00000500706E6C5F36000005006C626C5F36000005006C73745F360000050070
539 6E6C5F37000005006C626C5F37000005006C73745F3700000500706E6C5F3800
540 0005006C626C5F38000005006C73745F380000070074696D506F6C6C00001000
541 706F704D656E75416C6C65726769657300000D00706F704E6577416C6C657267
542 79010100000004000000070043617074696F6E000E00706F7045646974416C6C
543 65726779010100000005000000070043617074696F6E001100706F70456E7465
544 726564496E4572726F72010100000006000000070043617074696F6E00060070
545 6F704E4B41010100000007000000070043617074696F6E00}
546 end
547 object timPoll: TTimer
548 Enabled = False
549 Interval = 2600
550 OnTimer = timPollTimer
551 Left = 20
552 Top = 32
553 end
554 object popMenuAllergies: TPopupMenu
555 OnPopup = popMenuAllergiesPopup
556 Left = 283
557 Top = 46
558 object popNewAllergy: TMenuItem
559 Caption = 'Enter new allergy'
560 OnClick = popNewAllergyClick
561 end
562 object popEditAllergy: TMenuItem
563 Caption = 'Edit selected allergy'
564 Visible = False
565 OnClick = popEditAllergyClick
566 end
567 object popEnteredInError: TMenuItem
568 Caption = 'Mark selected allergy as entered in error'
569 OnClick = popEnteredInErrorClick
570 end
571 object popNKA: TMenuItem
572 Caption = 'Mark patient as having "No Known Allergies" (NKA)'
573 OnClick = popNKAClick
574 end
575 end
576end
Note: See TracBrowser for help on using the repository browser.