source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fGraphProfiles.dfm@ 1706

Last change on this file since 1706 was 1693, checked in by healthsevak, 10 years ago

Committing the files for first time to this new branch

File size: 16.4 KB
Line 
1inherited frmGraphProfiles: TfrmGraphProfiles
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
13 ExplicitWidth = 483
14 ExplicitHeight = 411
15 PixelsPerInch = 96
16 TextHeight = 13
17 object lblSelection: TLabel [0]
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
27 object lblDisplay: TLabel [1]
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
39 object bvlBase: TBevel [2]
40 Left = 8
41 Top = 339
42 Width = 457
43 Height = 2
44 end
45 object lblEditInfo: TLabel [3]
46 Left = 142
47 Top = 278
48 Width = 202
49 Height = 13
50 Caption = 'Items for Graphing can be saved as Views.'
51 end
52 object lblSelectionInfo: TLabel [4]
53 Left = 142
54 Top = 8
55 Width = 89
56 Height = 13
57 Caption = 'Select Items using:'
58 ParentShowHint = False
59 ShowHint = False
60 end
61 object lblSelectandDefine: TLabel [5]
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
71 object lblEditInfo1: TLabel [6]
72 Left = 142
73 Top = 294
74 Width = 187
75 Height = 13
76 Caption = 'Edit Views by saving to the same name.'
77 end
78 object lblUser: TLabel [7]
79 Left = 8
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
90 Top = 312
91 Width = 85
92 Height = 21
93 Caption = 'Clear Selections'
94 Enabled = False
95 ParentShowHint = False
96 ShowHint = False
97 TabOrder = 7
98 OnClick = btnClearClick
99 end
100 object btnSave: TButton [9]
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
109 TabOrder = 11
110 OnClick = btnSaveClick
111 end
112 object btnDelete: TButton [10]
113 Left = 100
114 Top = 313
115 Width = 85
116 Height = 20
117 Caption = 'Delete...'
118 Enabled = False
119 ParentShowHint = False
120 ShowHint = False
121 TabOrder = 8
122 OnClick = btnDeleteClick
123 end
124 object btnRemoveOne: TButton [11]
125 Left = 280
126 Top = 173
127 Width = 21
128 Height = 21
129 Caption = '<'
130 Enabled = False
131 ParentShowHint = False
132 ShowHint = False
133 TabOrder = 5
134 OnClick = btnRemoveOneClick
135 end
136 object btnRemoveAll: TButton [12]
137 Left = 280
138 Top = 205
139 Width = 21
140 Height = 21
141 Caption = '<<'
142 Enabled = False
143 ParentShowHint = False
144 ShowHint = False
145 TabOrder = 6
146 OnClick = btnRemoveAllClick
147 end
148 object lstItemsDisplayed: TORListBox [13]
149 Left = 312
150 Top = 44
151 Width = 150
152 Height = 228
153 ItemHeight = 13
154 ParentShowHint = False
155 ShowHint = False
156 Sorted = True
157 TabOrder = 2
158 OnDblClick = lstItemsDisplayedDblClick
159 ItemTipColor = clWindow
160 LongList = False
161 Pieces = '3'
162 OnChange = lstItemsDisplayedChange
163 end
164 object pnlSource: TPanel [14]
165 Left = 247
166 Top = -2
167 Width = 190
168 Height = 25
169 BevelOuter = bvNone
170 TabOrder = 10
171 object radSourcePat: TRadioButton
172 Left = 106
173 Top = 5
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
185 Top = 5
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
196 object lstItemsSelection: TORListBox [15]
197 Left = 142
198 Top = 44
199 Width = 124
200 Height = 225
201 ItemHeight = 13
202 ParentShowHint = False
203 ShowHint = False
204 Sorted = True
205 TabOrder = 1
206 Visible = False
207 OnDblClick = cboAllItemsClick
208 ItemTipColor = clWindow
209 LongList = False
210 Pieces = '3'
211 OnChange = cboAllItemsChange
212 end
213 object pnlApply: TPanel [16]
214 Left = 0
215 Top = 344
216 Width = 377
217 Height = 36
218 BevelOuter = bvNone
219 ParentShowHint = False
220 ShowHint = False
221 TabOrder = 14
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
264 object btnAdd: TButton [17]
265 Left = 280
266 Top = 125
267 Width = 21
268 Height = 21
269 Caption = '>'
270 Enabled = False
271 ParentShowHint = False
272 ShowHint = False
273 TabOrder = 4
274 OnClick = cboAllItemsClick
275 end
276 object btnAddAll: TButton [18]
277 Left = 280
278 Top = 93
279 Width = 21
280 Height = 21
281 Caption = '>>'
282 Enabled = False
283 ParentShowHint = False
284 ShowHint = False
285 TabOrder = 3
286 OnClick = cboAllItemsClick
287 end
288 object btnRename: TButton [19]
289 Left = 195
290 Top = 312
291 Width = 85
292 Height = 21
293 Caption = 'Rename...'
294 Enabled = False
295 ParentShowHint = False
296 ShowHint = False
297 TabOrder = 9
298 OnClick = btnRenameClick
299 end
300 object btnSavePublic: TButton [20]
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
309 TabOrder = 12
310 OnClick = btnSaveClick
311 end
312 object cboAllItems: TORComboBox [21]
313 Left = 142
314 Top = 44
315 Width = 124
316 Height = 228
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 = '<>'
333 TabOrder = 0
334 OnChange = cboAllItemsChange
335 OnDblClick = cboAllItemsClick
336 OnNeedData = cboAllItemsNeedData
337 CharsNeedMatch = 1
338 end
339 object btnClose: TButton [22]
340 Left = 371
341 Top = 353
342 Width = 97
343 Height = 21
344 Cancel = True
345 Caption = 'Close'
346 ParentShowHint = False
347 ShowHint = False
348 TabOrder = 15
349 OnClick = btnCloseClick
350 end
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
486 OnEnter = lstOtherSourcesEnter
487 OnExit = lstOtherSourcesExit
488 ItemTipColor = clWindow
489 LongList = False
490 Pieces = '2'
491 OnChange = lstOtherSourcesChange
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
723end
Note: See TracBrowser for help on using the repository browser.