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

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

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