source: cprs/trunk/CPRS-Chart/fGraphProfiles.dfm@ 1797

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

Updating the working copy to CPRS version 28
File size: 16.4 KB
RevLine 
[830]1inherited frmGraphProfiles: TfrmGraphProfiles
[456]2 Left = 721
3 Top = 528
4 BorderIcons = [biSystemMenu, biHelp]
5 BorderStyle = bsDialog
6 Caption = 'Select Items and Define Views'
7 ClientHeight = 379
8 ClientWidth = 477
9 Position = poMainFormCenter
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnShow = FormShow
[830]13 ExplicitWidth = 483
[1679]14 ExplicitHeight = 411
[456]15 PixelsPerInch = 96
16 TextHeight = 13
[830]17 object lblSelection: TLabel [0]
[456]18 Left = 142
19 Top = 29
20 Width = 28
21 Height = 13
22 Hint = 'Make selections move them to the right.'
23 Caption = 'Items:'
24 ParentShowHint = False
25 ShowHint = False
26 end
[830]27 object lblDisplay: TLabel [1]
[456]28 Left = 312
29 Top = 29
30 Width = 89
31 Height = 13
32 Hint =
33 'These items can be saved as a View and/or displayed on the graph' +
34 '.'
35 Caption = 'Items for Graphing:'
36 ParentShowHint = False
37 ShowHint = False
38 end
[830]39 object bvlBase: TBevel [2]
[456]40 Left = 8
41 Top = 339
42 Width = 457
43 Height = 2
44 end
[830]45 object lblEditInfo: TLabel [3]
46 Left = 142
[456]47 Top = 278
48 Width = 202
49 Height = 13
50 Caption = 'Items for Graphing can be saved as Views.'
51 end
[830]52 object lblSelectionInfo: TLabel [4]
53 Left = 142
[456]54 Top = 8
55 Width = 89
56 Height = 13
57 Caption = 'Select Items using:'
58 ParentShowHint = False
59 ShowHint = False
60 end
[830]61 object lblSelectandDefine: TLabel [5]
[456]62 Left = 8
63 Top = 350
64 Width = 359
65 Height = 13
66 Caption =
67 'Use Select/Define button or Right-click on graphs to select item' +
68 's for display.'
69 WordWrap = True
70 end
[830]71 object lblEditInfo1: TLabel [6]
72 Left = 142
[456]73 Top = 294
74 Width = 187
75 Height = 13
76 Caption = 'Edit Views by saving to the same name.'
77 end
[830]78 object lblUser: TLabel [7]
[456]79 Left = 8
[830]80 Top = 236
81 Width = 36
82 Height = 13
83 Caption = 'Person:'
84 ParentShowHint = False
85 ShowHint = False
86 WordWrap = True
87 end
88 object btnClear: TButton [8]
89 Left = 8
[456]90 Top = 312
91 Width = 85
92 Height = 21
93 Caption = 'Clear Selections'
94 Enabled = False
95 ParentShowHint = False
96 ShowHint = False
[830]97 TabOrder = 7
[456]98 OnClick = btnClearClick
99 end
[830]100 object btnSave: TButton [9]
[456]101 Left = 286
102 Top = 312
103 Width = 85
104 Height = 21
105 Caption = 'Save Personal...'
106 Enabled = False
107 ParentShowHint = False
108 ShowHint = False
[830]109 TabOrder = 11
[456]110 OnClick = btnSaveClick
111 end
[830]112 object btnDelete: TButton [10]
[456]113 Left = 100
[830]114 Top = 313
[456]115 Width = 85
[830]116 Height = 20
[456]117 Caption = 'Delete...'
118 Enabled = False
119 ParentShowHint = False
120 ShowHint = False
[830]121 TabOrder = 8
[456]122 OnClick = btnDeleteClick
123 end
[830]124 object btnRemoveOne: TButton [11]
[456]125 Left = 280
126 Top = 173
127 Width = 21
128 Height = 21
129 Caption = '<'
130 Enabled = False
131 ParentShowHint = False
132 ShowHint = False
[830]133 TabOrder = 5
[456]134 OnClick = btnRemoveOneClick
135 end
[830]136 object btnRemoveAll: TButton [12]
[456]137 Left = 280
138 Top = 205
139 Width = 21
140 Height = 21
141 Caption = '<<'
142 Enabled = False
143 ParentShowHint = False
144 ShowHint = False
[830]145 TabOrder = 6
[456]146 OnClick = btnRemoveAllClick
147 end
[830]148 object lstItemsDisplayed: TORListBox [13]
[1679]149 Left = 312
[456]150 Top = 44
151 Width = 150
[830]152 Height = 228
[456]153 ItemHeight = 13
154 ParentShowHint = False
155 ShowHint = False
156 Sorted = True
[830]157 TabOrder = 2
[456]158 OnDblClick = lstItemsDisplayedDblClick
159 ItemTipColor = clWindow
160 LongList = False
161 Pieces = '3'
162 OnChange = lstItemsDisplayedChange
163 end
[830]164 object pnlSource: TPanel [14]
165 Left = 247
166 Top = -2
[456]167 Width = 190
168 Height = 25
169 BevelOuter = bvNone
[830]170 TabOrder = 10
[456]171 object radSourcePat: TRadioButton
[830]172 Left = 106
173 Top = 5
[456]174 Width = 82
175 Height = 17
176 Hint =
177 'Use this for selecting patient items. Note: this form is used pr' +
178 'imarily for defining views, #13 not selecting data.'
179 Caption = 'Patient Items'
180 TabOrder = 1
181 OnClick = radSourceAllClick
182 end
183 object radSourceAll: TRadioButton
184 Left = 0
[830]185 Top = 5
[456]186 Width = 60
187 Height = 17
188 Hint = 'Use this for defining views. It shows every possible item.'
189 Caption = 'All Items'
190 Checked = True
191 TabOrder = 0
192 TabStop = True
193 OnClick = radSourceAllClick
194 end
195 end
[830]196 object lstItemsSelection: TORListBox [15]
[456]197 Left = 142
198 Top = 44
[830]199 Width = 124
[456]200 Height = 225
201 ItemHeight = 13
202 ParentShowHint = False
203 ShowHint = False
204 Sorted = True
[830]205 TabOrder = 1
[456]206 Visible = False
207 OnDblClick = cboAllItemsClick
208 ItemTipColor = clWindow
209 LongList = False
210 Pieces = '3'
211 OnChange = cboAllItemsChange
212 end
[830]213 object pnlApply: TPanel [16]
[456]214 Left = 0
215 Top = 344
216 Width = 377
217 Height = 36
218 BevelOuter = bvNone
219 ParentShowHint = False
220 ShowHint = False
[830]221 TabOrder = 14
[456]222 object lblApply: TLabel
223 Left = 8
224 Top = 2
225 Width = 138
226 Height = 13
227 Caption = 'Display Items for Graphing to:'
228 end
229 object radTop: TRadioButton
230 Left = 8
231 Top = 17
232 Width = 57
233 Height = 17
234 Caption = 'Top'
235 Checked = True
236 TabOrder = 0
237 TabStop = True
238 end
239 object radBottom: TRadioButton
240 Left = 74
241 Top = 17
242 Width = 57
243 Height = 17
244 Caption = 'Bottom'
245 TabOrder = 1
246 end
247 object radBoth: TRadioButton
248 Left = 141
249 Top = 17
250 Width = 57
251 Height = 17
252 Caption = 'Both'
253 TabOrder = 2
254 end
255 object radNeither: TRadioButton
256 Left = 208
257 Top = 17
258 Width = 81
259 Height = 17
260 Caption = 'No Change'
261 TabOrder = 3
262 end
263 end
[830]264 object btnAdd: TButton [17]
[456]265 Left = 280
266 Top = 125
267 Width = 21
268 Height = 21
269 Caption = '>'
270 Enabled = False
271 ParentShowHint = False
272 ShowHint = False
[830]273 TabOrder = 4
[456]274 OnClick = cboAllItemsClick
275 end
[830]276 object btnAddAll: TButton [18]
[456]277 Left = 280
278 Top = 93
279 Width = 21
280 Height = 21
281 Caption = '>>'
282 Enabled = False
283 ParentShowHint = False
284 ShowHint = False
[830]285 TabOrder = 3
[1679]286 OnClick = cboAllItemsClick
[456]287 end
[830]288 object btnRename: TButton [19]
289 Left = 195
[456]290 Top = 312
291 Width = 85
292 Height = 21
293 Caption = 'Rename...'
294 Enabled = False
295 ParentShowHint = False
296 ShowHint = False
[830]297 TabOrder = 9
[456]298 OnClick = btnRenameClick
299 end
[830]300 object btnSavePublic: TButton [20]
[456]301 Left = 379
302 Top = 312
303 Width = 85
304 Height = 21
305 Caption = 'Save Public...'
306 Enabled = False
307 ParentShowHint = False
308 ShowHint = False
[830]309 TabOrder = 12
[456]310 OnClick = btnSaveClick
311 end
[830]312 object cboAllItems: TORComboBox [21]
[456]313 Left = 142
314 Top = 44
[830]315 Width = 124
316 Height = 228
[456]317 Style = orcsSimple
318 AutoSelect = True
319 Color = clWindow
320 DropDownCount = 8
321 ItemHeight = 13
322 ItemTipColor = clWindow
323 ItemTipEnable = True
324 ListItemsOnly = True
325 LongList = True
326 LookupPiece = 0
327 MaxLength = 0
328 ParentShowHint = False
329 Pieces = '3'
330 ShowHint = False
331 Sorted = False
332 SynonymChars = '<>'
[830]333 TabOrder = 0
[456]334 OnChange = cboAllItemsChange
335 OnDblClick = cboAllItemsClick
336 OnNeedData = cboAllItemsNeedData
337 CharsNeedMatch = 1
338 end
[830]339 object btnClose: TButton [22]
[456]340 Left = 371
341 Top = 353
342 Width = 97
343 Height = 21
344 Cancel = True
345 Caption = 'Close'
346 ParentShowHint = False
347 ShowHint = False
[830]348 TabOrder = 15
[456]349 OnClick = btnCloseClick
350 end
[830]351 object pnlAllSources: TPanel [23]
352 Left = 8
353 Top = 30
354 Width = 128
355 Height = 245
356 BevelOuter = bvNone
357 ParentShowHint = False
358 ShowHint = True
359 TabOrder = 16
360 object splViews: TSplitter
361 Left = 0
362 Top = 122
363 Width = 128
364 Height = 3
365 Cursor = crVSplit
366 Align = alBottom
367 ExplicitTop = 0
368 ExplicitWidth = 125
369 end
370 object pnlSources: TPanel
371 Left = 0
372 Top = 0
373 Width = 128
374 Height = 122
375 Align = alClient
376 BevelOuter = bvNone
377 TabOrder = 0
378 object lblSource: TLabel
379 Left = 0
380 Top = 0
381 Width = 128
382 Height = 13
383 Hint = 'These are the different types of data for graphing.'
384 Align = alTop
385 Caption = 'Sources:'
386 ParentShowHint = False
387 ShowHint = False
388 ExplicitWidth = 42
389 end
390 object lstSources: TORListBox
391 Left = 0
392 Top = 13
393 Width = 128
394 Height = 109
395 Align = alClient
396 ItemHeight = 13
397 ParentShowHint = False
398 ShowHint = False
399 TabOrder = 0
400 OnDblClick = lstSourcesDblClick
401 OnEnter = lstSourcesEnter
402 OnExit = lstSourcesExit
403 ItemTipColor = clWindow
404 LongList = False
405 Pieces = '2'
406 OnChange = lstSourcesChange
407 end
408 end
409 object pnlOtherSources: TPanel
410 Left = 0
411 Top = 125
412 Width = 128
413 Height = 120
414 Align = alBottom
415 BevelInner = bvRaised
416 BevelOuter = bvLowered
417 BorderWidth = 1
418 TabOrder = 1
419 object pnlOtherSourcesUser: TPanel
420 Left = 3
421 Top = 76
422 Width = 122
423 Height = 41
424 Align = alBottom
425 BevelOuter = bvNone
426 TabOrder = 0
427 object lblOtherPersons: TLabel
428 Left = 0
429 Top = 7
430 Width = 122
431 Height = 13
432 Align = alBottom
433 Caption = 'Select Person:'
434 ExplicitWidth = 69
435 end
436 object cboUser: TORComboBox
437 Left = 0
438 Top = 20
439 Width = 122
440 Height = 21
441 Style = orcsDropDown
442 Align = alBottom
443 AutoSelect = True
444 Color = clWindow
445 DropDownCount = 6
446 Items.Strings = (
447 '')
448 ItemHeight = 13
449 ItemTipColor = clWindow
450 ItemTipEnable = True
451 ListItemsOnly = False
452 LongList = True
453 LookupPiece = 0
454 MaxLength = 0
455 Pieces = '2'
456 Sorted = False
457 SynonymChars = '<>'
458 TabOrder = 0
459 TabStop = True
460 OnClick = cboUserClick
461 OnNeedData = cboUserNeedData
462 CharsNeedMatch = 1
463 end
464 end
465 object pnlOtherSourcesBottom: TPanel
466 Left = 3
467 Top = 3
468 Width = 122
469 Height = 73
470 Align = alClient
471 BevelOuter = bvNone
472 TabOrder = 1
473 object lstOtherSources: TORListBox
474 Left = 0
475 Top = 30
476 Width = 122
477 Height = 43
478 Align = alClient
479 BevelInner = bvNone
480 BevelOuter = bvNone
481 ItemHeight = 13
482 ParentShowHint = False
483 ShowHint = False
484 TabOrder = 0
485 OnDblClick = lstSourcesDblClick
[1679]486 OnEnter = lstOtherSourcesEnter
487 OnExit = lstOtherSourcesExit
[830]488 ItemTipColor = clWindow
489 LongList = False
490 Pieces = '2'
[1679]491 OnChange = lstOtherSourcesChange
[830]492 end
493 object pnlOtherViews: TPanel
494 Left = 0
495 Top = 0
496 Width = 122
497 Height = 30
498 Align = alTop
499 BevelOuter = bvNone
500 TabOrder = 1
501 object lblOtherViews: TLabel
502 Left = 0
503 Top = 17
504 Width = 122
505 Height = 13
506 Align = alBottom
507 Caption = 'Other Views:'
508 ExplicitWidth = 60
509 end
510 object lblSelectOthers: TLabel
511 Left = 0
512 Top = 0
513 Width = 122
514 Height = 13
515 Align = alTop
516 Caption = 'Select Views from others'
517 ExplicitWidth = 116
518 end
519 end
520 end
521 end
522 end
523 object btnViews: TButton [24]
524 Left = 8
525 Top = 5
526 Width = 120
527 Height = 21
528 Caption = 'Show Other Views'
529 ParentShowHint = False
530 ShowHint = False
531 TabOrder = 17
532 Visible = False
533 OnClick = btnViewsClick
534 end
535 object pnlTempData: TPanel [25]
536 Left = 264
537 Top = 232
538 Width = 425
539 Height = 49
540 TabOrder = 13
541 Visible = False
542 object lblSave: TLabel
543 Left = 184
544 Top = 16
545 Width = 3
546 Height = 13
547 Visible = False
548 end
549 object lblClose: TLabel
550 Left = 192
551 Top = 0
552 Width = 3
553 Height = 13
554 Visible = False
555 end
556 object lstActualItems: TORListBox
557 Left = 8
558 Top = 5
559 Width = 97
560 Height = 41
561 ItemHeight = 13
562 ParentShowHint = False
563 ShowHint = True
564 TabOrder = 0
565 ItemTipColor = clWindow
566 LongList = False
567 end
568 object lstDrugClass: TListBox
569 Left = 112
570 Top = 5
571 Width = 97
572 Height = 41
573 ItemHeight = 13
574 TabOrder = 1
575 end
576 object lstScratch: TListBox
577 Left = 216
578 Top = 5
579 Width = 97
580 Height = 41
581 ItemHeight = 13
582 TabOrder = 2
583 end
584 object lstTests: TListBox
585 Left = 320
586 Top = 5
587 Width = 97
588 Height = 41
589 ItemHeight = 13
590 TabOrder = 3
591 end
592 end
593 object btnDefinitions: TButton [26]
594 Left = 8
595 Top = 281
596 Width = 120
597 Height = 21
598 Caption = 'View Definitions...'
599 ParentShowHint = False
600 ShowHint = False
601 TabOrder = 18
602 OnClick = btnDefinitionsClick
603 end
604 inherited amgrMain: TVA508AccessibilityManager
605 Left = 448
606 Top = 280
607 Data = (
608 (
609 'Component = btnClear'
610 'Status = stsDefault')
611 (
612 'Component = btnSave'
613 'Status = stsDefault')
614 (
615 'Component = btnDelete'
616 'Status = stsDefault')
617 (
618 'Component = btnRemoveOne'
619 'Status = stsDefault')
620 (
621 'Component = btnRemoveAll'
622 'Status = stsDefault')
623 (
624 'Component = lstItemsDisplayed'
625 'Status = stsDefault')
626 (
627 'Component = pnlSource'
628 'Status = stsDefault')
629 (
630 'Component = radSourcePat'
631 'Status = stsDefault')
632 (
633 'Component = radSourceAll'
634 'Status = stsDefault')
635 (
636 'Component = lstItemsSelection'
637 'Status = stsDefault')
638 (
639 'Component = pnlTempData'
640 'Status = stsDefault')
641 (
642 'Component = lstActualItems'
643 'Status = stsDefault')
644 (
645 'Component = lstDrugClass'
646 'Status = stsDefault')
647 (
648 'Component = lstScratch'
649 'Status = stsDefault')
650 (
651 'Component = lstTests'
652 'Status = stsDefault')
653 (
654 'Component = pnlApply'
655 'Status = stsDefault')
656 (
657 'Component = radTop'
658 'Status = stsDefault')
659 (
660 'Component = radBottom'
661 'Status = stsDefault')
662 (
663 'Component = radBoth'
664 'Status = stsDefault')
665 (
666 'Component = radNeither'
667 'Status = stsDefault')
668 (
669 'Component = btnAdd'
670 'Status = stsDefault')
671 (
672 'Component = btnAddAll'
673 'Status = stsDefault')
674 (
675 'Component = btnRename'
676 'Status = stsDefault')
677 (
678 'Component = btnSavePublic'
679 'Status = stsDefault')
680 (
681 'Component = cboAllItems'
682 'Status = stsDefault')
683 (
684 'Component = btnClose'
685 'Status = stsDefault')
686 (
687 'Component = frmGraphProfiles'
688 'Status = stsDefault')
689 (
690 'Component = pnlAllSources'
691 'Status = stsDefault')
692 (
693 'Component = pnlSources'
694 'Status = stsDefault')
695 (
696 'Component = lstSources'
697 'Status = stsDefault')
698 (
699 'Component = pnlOtherSources'
700 'Status = stsDefault')
701 (
702 'Component = pnlOtherSourcesUser'
703 'Status = stsDefault')
704 (
705 'Component = cboUser'
706 'Status = stsDefault')
707 (
708 'Component = pnlOtherSourcesBottom'
709 'Status = stsDefault')
710 (
711 'Component = lstOtherSources'
712 'Status = stsDefault')
713 (
714 'Component = btnViews'
715 'Status = stsDefault')
716 (
717 'Component = btnDefinitions'
718 'Status = stsDefault')
719 (
720 'Component = pnlOtherViews'
721 'Status = stsDefault'))
722 end
[456]723end
Note: See TracBrowser for help on using the repository browser.