source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm@ 697

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

Uploading from OR_30_258
File size: 24.7 KB
RevLine 
[459]1inherited frmODDiet: TfrmODDiet
[460]2 Left = 541
3 Top = 398
4 Width = 532
5 Height = 291
[459]6 Caption = 'Diet Order'
7 OnKeyDown = FormKeyDown
8 PixelsPerInch = 96
9 TextHeight = 13
10 object nbkDiet: TPageControl [0]
11 Left = 0
12 Top = 0
[460]13 Width = 524
14 Height = 194
[459]15 ActivePage = pgeOutPt
16 Align = alTop
17 TabIndex = 1
18 TabOrder = 4
19 TabStop = False
20 OnChange = nbkDietChange
21 OnChanging = nbkDietChanging
22 object pgeDiet: TTabSheet
23 Caption = 'Diet'
24 object lblDietAvail: TLabel
25 Left = 4
26 Top = 0
27 Width = 127
28 Height = 13
29 Caption = 'Available Diet Components'
30 end
31 object lblDietSelect: TLabel
32 Left = 200
33 Top = 0
34 Width = 126
35 Height = 13
36 Caption = 'Selected Diet Components'
37 end
38 object lblComment: TLabel
39 Left = 200
40 Top = 119
41 Width = 92
42 Height = 13
43 Caption = 'Special Instructions'
44 end
45 object lblStart: TLabel
46 Left = 393
47 Top = 0
48 Width = 96
49 Height = 13
50 Caption = 'Effective Date/Time'
51 end
52 object lblStop: TLabel
53 Left = 393
54 Top = 39
55 Width = 100
56 Height = 13
57 Caption = 'Expiration Date/Time'
58 end
59 object lblDelivery: TLabel
60 Left = 393
61 Top = 77
62 Width = 38
63 Height = 13
64 Caption = 'Delivery'
65 end
66 object cboDietAvail: TORComboBox
67 Left = 4
68 Top = 14
69 Width = 188
70 Height = 140
71 Style = orcsSimple
72 AutoSelect = True
73 Caption = 'Available Diet Components'
74 Color = clWindow
75 DropDownCount = 8
76 ItemHeight = 13
77 ItemTipColor = clWindow
78 ItemTipEnable = True
79 ListItemsOnly = True
80 LongList = True
81 LookupPiece = 0
82 MaxLength = 0
83 Pieces = '2'
84 Sorted = False
85 SynonymChars = '<>'
86 TabOrder = 0
87 OnExit = cboDietAvailExit
88 OnMouseClick = cboDietAvailMouseClick
89 OnNeedData = cboDietAvailNeedData
[460]90 CharsNeedMatch = 1
[459]91 end
92 object lstDietSelect: TORListBox
93 Left = 200
94 Top = 14
95 Width = 185
96 Height = 71
97 ItemHeight = 13
98 ParentShowHint = False
99 ShowHint = True
100 TabOrder = 1
101 Caption = 'Selected Diet Components'
102 ItemTipColor = clWindow
103 LongList = False
104 Pieces = '2'
105 end
106 object cmdRemove: TButton
107 Left = 313
108 Top = 85
109 Width = 72
110 Height = 17
111 Caption = 'Remove'
112 TabOrder = 2
113 OnClick = cmdRemoveClick
114 end
115 object txtDietComment: TCaptionEdit
116 Left = 200
117 Top = 133
118 Width = 308
119 Height = 21
120 MaxLength = 80
121 TabOrder = 3
122 OnChange = DietChange
123 Caption = 'Special Instructions'
124 end
125 object calDietStart: TORDateBox
126 Left = 393
127 Top = 14
128 Width = 115
129 Height = 21
130 TabOrder = 4
131 Text = 'Now'
132 OnChange = DietChange
133 DateOnly = False
134 RequireTime = False
135 Caption = 'Effective Date/Time'
136 end
137 object calDietStop: TORDateBox
138 Left = 393
139 Top = 52
140 Width = 115
141 Height = 21
142 TabOrder = 5
143 OnChange = DietChange
144 DateOnly = False
145 RequireTime = False
146 Caption = 'Expiration Date/Time'
147 end
148 object cboDelivery: TORComboBox
149 Left = 393
150 Top = 90
151 Width = 115
152 Height = 21
153 Style = orcsDropDown
154 AutoSelect = True
155 Caption = 'Delivery'
156 Color = clWindow
157 DropDownCount = 8
158 ItemHeight = 13
159 ItemTipColor = clWindow
160 ItemTipEnable = True
161 ListItemsOnly = True
162 LongList = False
163 LookupPiece = 0
164 MaxLength = 0
165 Pieces = '2'
166 Sorted = False
167 SynonymChars = '<>'
168 TabOrder = 6
169 OnChange = DietChange
[460]170 CharsNeedMatch = 1
[459]171 end
172 object chkCancelTubefeeding: TCheckBox
173 Left = 393
174 Top = 114
175 Width = 115
176 Height = 17
177 Caption = 'Cancel Tubefeeding'
178 State = cbGrayed
179 TabOrder = 7
180 Visible = False
181 OnClick = DietChange
182 end
183 end
184 object pgeOutPt: TTabSheet
185 Caption = 'Outpatient Meals'
186 object lblOPStart: TLabel
187 Left = 292
188 Top = 1
189 Width = 48
190 Height = 13
191 Caption = 'Start Date'
192 end
193 object lblOPStop: TLabel
194 Left = 292
195 Top = 37
196 Width = 45
197 Height = 13
198 Caption = 'End Date'
199 end
200 object lblOPDietAvail: TLabel
[460]201 Left = 0
202 Top = 1
[459]203 Width = 70
204 Height = 13
205 Caption = 'Available Diets'
206 end
207 object lblOPComment: TLabel
208 Left = 4
[460]209 Top = 128
[459]210 Width = 92
211 Height = 13
212 Caption = 'Special Instructions'
213 end
214 object lblOPDelivery: TLabel
215 Left = 292
216 Top = 74
217 Width = 38
218 Height = 13
219 Caption = 'Delivery'
220 end
221 object lblOPSelect: TLabel
[460]222 Left = 0
223 Top = 39
[459]224 Width = 64
225 Height = 13
226 Caption = 'Selected Diet'
227 end
228 object grpOPMeal: TKeyClickRadioGroup
[460]229 Left = 168
230 Top = 11
[459]231 Width = 110
232 Height = 107
233 Caption = ' Meal '
234 ItemIndex = 3
235 Items.Strings = (
236 'Breakfast'
237 'Lunch'
238 'Evening'
239 '<none selected>')
[460]240 TabOrder = 3
[459]241 TabStop = True
242 OnClick = grpOPMealClick
243 end
244 object grpOPDoW: TGroupBox
245 Left = 415
246 Top = 5
247 Width = 93
[460]248 Height = 155
[459]249 Caption = 'Days of Week'
250 TabOrder = 8
251 object chkOPMonday: TCheckBox
252 Left = 8
253 Top = 15
254 Width = 80
255 Height = 17
256 Caption = 'Monday'
257 TabOrder = 0
258 OnClick = OPChange
259 end
260 object chkOPTuesday: TCheckBox
261 Left = 8
262 Top = 35
263 Width = 80
264 Height = 17
265 Caption = 'Tuesday'
266 TabOrder = 1
267 OnClick = OPChange
268 end
269 object chkOPWednesday: TCheckBox
270 Left = 8
271 Top = 54
272 Width = 80
273 Height = 17
274 Caption = 'Wednesday'
275 TabOrder = 2
276 OnClick = OPChange
277 end
278 object chkOPThursday: TCheckBox
279 Left = 8
280 Top = 73
281 Width = 80
282 Height = 17
283 Caption = 'Thursday'
284 TabOrder = 3
285 OnClick = OPChange
286 end
287 object chkOPFriday: TCheckBox
288 Left = 8
289 Top = 92
290 Width = 80
291 Height = 17
292 Caption = 'Friday'
293 TabOrder = 4
294 OnClick = OPChange
295 end
296 object chkOPSaturday: TCheckBox
297 Left = 8
298 Top = 111
299 Width = 80
300 Height = 17
301 Caption = 'Saturday'
302 TabOrder = 5
303 OnClick = OPChange
304 end
305 object chkOPSunday: TCheckBox
306 Left = 8
307 Top = 130
308 Width = 80
309 Height = 17
310 Caption = 'Sunday'
311 TabOrder = 6
312 OnClick = OPChange
313 end
314 end
315 object calOPStart: TORDateBox
316 Left = 292
317 Top = 14
318 Width = 120
319 Height = 21
320 TabOrder = 4
321 OnChange = calOPStartChange
322 OnEnter = calOPStartEnter
323 OnExit = calOPStartExit
324 DateOnly = True
325 RequireTime = False
326 Caption = 'Start Date'
327 end
328 object calOPStop: TORDateBox
329 Left = 292
330 Top = 50
331 Width = 120
332 Height = 21
333 TabOrder = 5
334 OnChange = calOPStopChange
335 DateOnly = True
336 RequireTime = False
337 Caption = 'End Date'
338 end
339 object cboOPDietAvail: TORComboBox
[460]340 Left = 0
341 Top = 16
[459]342 Width = 157
343 Height = 21
344 Style = orcsDropDown
345 AutoSelect = True
346 Caption = 'Available Diet Components'
347 Color = clWindow
348 DropDownCount = 8
349 ItemHeight = 13
350 ItemTipColor = clWindow
351 ItemTipEnable = True
352 ListItemsOnly = True
[460]353 LongList = False
[459]354 LookupPiece = 0
355 MaxLength = 0
356 Pieces = '2'
357 Sorted = False
358 SynonymChars = '<>'
[460]359 TabOrder = 0
[459]360 OnExit = cboDietAvailExit
[460]361 OnKeyDown = cboOPDietAvailKeyDown
[459]362 OnMouseClick = cboOPDietAvailMouseClick
[460]363 CharsNeedMatch = 1
[459]364 end
365 object txtOPDietComment: TCaptionEdit
[460]366 Left = 3
367 Top = 143
[459]368 Width = 404
369 Height = 21
370 MaxLength = 80
371 TabOrder = 11
372 OnChange = OPChange
373 Caption = 'Special Instructions'
374 end
375 object cboOPDelivery: TORComboBox
376 Left = 292
377 Top = 86
378 Width = 120
379 Height = 21
380 Style = orcsDropDown
381 AutoSelect = True
382 Caption = 'Delivery'
383 Color = clWindow
384 DropDownCount = 8
385 ItemHeight = 13
386 ItemTipColor = clWindow
387 ItemTipEnable = True
388 ListItemsOnly = True
389 LongList = False
390 LookupPiece = 0
391 MaxLength = 0
392 Pieces = '2'
393 Sorted = False
394 SynonymChars = '<>'
[460]395 TabOrder = 6
[459]396 OnChange = OPChange
[460]397 CharsNeedMatch = 1
[459]398 end
399 object lstOPDietSelect: TORListBox
[460]400 Left = 0
401 Top = 53
[459]402 Width = 156
403 Height = 56
404 ItemHeight = 13
405 ParentShowHint = False
406 ShowHint = True
[460]407 TabOrder = 1
[459]408 Caption = 'Selected Diet Components'
409 ItemTipColor = clWindow
410 LongList = False
411 Pieces = '2'
[460]412 OnChange = OPChange
[459]413 end
414 object cmdOPRemove: TButton
[460]415 Left = 85
416 Top = 110
[459]417 Width = 72
418 Height = 17
419 Caption = 'Remove'
[460]420 TabOrder = 2
[459]421 OnClick = cmdOPRemoveClick
422 end
423 object chkOPCancelTubefeeding: TCheckBox
424 Left = 292
425 Top = 112
426 Width = 115
427 Height = 17
428 Caption = 'Cancel Tubefeeding'
429 State = cbGrayed
[460]430 TabOrder = 7
[459]431 Visible = False
[460]432 OnClick = OPChange
[459]433 end
434 end
435 object pgeTubefeeding: TTabSheet
436 Caption = 'Tubefeeding'
437 object lblTFProductList: TLabel
438 Left = 4
439 Top = 0
440 Width = 105
441 Height = 13
442 Caption = 'Tubefeeding Products'
443 end
444 object lblTFComment: TLabel
445 Left = 4
446 Top = 119
447 Width = 92
448 Height = 13
449 Caption = 'Special Instructions'
450 end
451 object lblTFStrength: TLabel
452 Left = 288
453 Top = 0
454 Width = 40
455 Height = 13
456 Caption = 'Strength'
457 end
458 object lblTFQuantity: TLabel
459 Left = 352
460 Top = 0
461 Width = 39
462 Height = 13
463 Caption = 'Quantity'
464 end
465 object lblTFProduct: TLabel
466 Left = 152
467 Top = 0
468 Width = 37
469 Height = 13
470 Caption = 'Product'
471 end
472 object lblTFAmount: TLabel
473 Left = 428
474 Top = 0
475 Width = 36
476 Height = 13
477 Caption = 'Amount'
478 end
[460]479 object lblOPTFStart: TLabel
480 Left = 341
481 Top = 90
482 Width = 51
483 Height = 13
484 Caption = 'Start Date:'
485 end
[459]486 object cboProduct: TORComboBox
487 Left = 4
488 Top = 14
489 Width = 140
490 Height = 97
491 Style = orcsSimple
492 AutoSelect = True
493 Caption = 'Tubefeeding Products'
494 Color = clWindow
495 DropDownCount = 8
496 ItemHeight = 13
497 ItemTipColor = clWindow
498 ItemTipEnable = True
499 ListItemsOnly = True
500 LongList = True
501 LookupPiece = 0
502 MaxLength = 0
503 Pieces = '2'
504 Sorted = False
505 SynonymChars = '<>'
506 TabOrder = 0
507 OnExit = cboProductExit
508 OnMouseClick = cboProductMouseClick
[460]509 CharsNeedMatch = 1
[459]510 end
511 object txtTFComment: TCaptionEdit
[460]512 Left = 6
[459]513 Top = 133
514 Width = 504
515 Height = 21
516 MaxLength = 240
[460]517 TabOrder = 8
[459]518 OnChange = TFChange
519 Caption = 'Special Instructions'
520 end
521 object grdSelected: TCaptionStringGrid
522 Left = 152
523 Top = 14
524 Width = 356
525 Height = 63
526 ColCount = 4
527 DefaultColWidth = 88
528 DefaultRowHeight = 19
529 FixedCols = 0
530 RowCount = 1
531 FixedRows = 0
532 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
533 ScrollBars = ssVertical
534 TabOrder = 1
535 OnDrawCell = grdSelectedDrawCell
536 OnSelectCell = grdSelectedSelectCell
537 Caption = 'Selected Products'
538 end
539 object cmdTFRemove: TButton
540 Left = 436
541 Top = 77
542 Width = 72
543 Height = 17
544 Caption = 'Remove'
545 TabOrder = 4
546 OnClick = cmdTFRemoveClick
547 end
548 object chkCancelTrays: TCheckBox
549 Left = 152
550 Top = 96
551 Width = 153
552 Height = 17
553 Caption = 'Cancel Future TRAY Orders'
554 TabOrder = 5
555 OnClick = TFChange
556 end
557 object txtQuantity: TCaptionEdit
558 Tag = -1
[460]559 Left = 151
560 Top = 124
[459]561 Width = 93
562 Height = 19
563 Hint =
[460]564 'Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, etc; total quan' +
565 'tity may not exceed 5000ml.'
[459]566 Ctl3D = False
567 ParentCtl3D = False
568 ParentShowHint = False
569 ShowHint = True
570 TabOrder = 3
571 Visible = False
572 OnChange = txtQuantityChange
573 OnEnter = txtQuantityEnter
574 OnExit = txtQuantityExit
575 OnKeyDown = txtQuantityKeyDown
576 Caption = 'Quantity'
577 end
578 object cboStrength: TCaptionComboBox
579 Tag = -1
[460]580 Left = 252
581 Top = 124
[459]582 Width = 53
583 Height = 21
584 Style = csDropDownList
585 Ctl3D = False
586 ItemHeight = 13
587 ParentCtl3D = False
588 TabOrder = 2
589 Visible = False
590 OnChange = cboStrengthChange
591 OnEnter = cboStrengthEnter
592 OnExit = cboStrengthExit
593 OnKeyDown = cboStrengthKeyDown
594 Items.Strings = (
595 '1/4'
596 '1/2'
597 '3/4'
598 'FULL')
599 Caption = 'Strength'
600 end
[460]601 object calOPTFStart: TORDateBox
602 Left = 341
603 Top = 104
604 Width = 169
605 Height = 21
606 TabStop = False
607 TabOrder = 7
608 Visible = False
609 OnChange = TFChange
610 DateOnly = False
611 RequireTime = False
612 Caption = 'Start Date:'
613 end
614 object cboOPTFRecurringMeals: TORComboBox
615 Left = 342
616 Top = 105
617 Width = 160
618 Height = 21
619 Style = orcsDropDown
620 AutoSelect = True
621 Color = clWindow
622 DropDownCount = 8
623 ItemHeight = 13
624 ItemTipColor = clWindow
625 ItemTipEnable = True
626 ListItemsOnly = False
627 LongList = False
628 LookupPiece = 0
629 MaxLength = 0
630 Pieces = '2,3'
631 Sorted = False
632 SynonymChars = '<>'
633 TabPositions = '12'
634 TabOrder = 6
635 TabStop = True
636 OnChange = TFChange
637 CharsNeedMatch = 1
638 end
[459]639 end
640 object pgeEarlyLate: TTabSheet
641 Caption = 'Early / Late Tray'
642 object lblELStart: TLabel
643 Left = 287
644 Top = 2
645 Width = 48
646 Height = 13
647 Caption = 'Start Date'
648 end
649 object lblELStop: TLabel
650 Left = 287
651 Top = 46
652 Width = 45
653 Height = 13
654 Caption = 'End Date'
655 end
656 object grpMeal: TKeyClickRadioGroup
657 Left = 4
658 Top = 2
659 Width = 106
660 Height = 93
661 Caption = ' Meal '
662 ItemIndex = 3
663 Items.Strings = (
664 'Breakfast'
665 'Lunch'
666 'Evening'
667 '<none selected>')
668 TabOrder = 0
669 TabStop = True
670 OnClick = grpMealClick
671 end
672 object grpMealTime: TGroupBox
673 Left = 114
674 Top = 4
675 Width = 161
676 Height = 93
677 Caption = ' Meal Times '
678 TabOrder = 1
679 object lblNoTimes: TLabel
680 Left = 29
681 Top = 44
682 Width = 96
683 Height = 13
684 Caption = 'No meal times listed.'
685 Visible = False
686 end
687 object radET1: TRadioButton
688 Left = 8
689 Top = 18
690 Width = 56
691 Height = 17
692 TabOrder = 0
693 Visible = False
694 OnClick = ELChange
695 end
696 object radET2: TRadioButton
697 Left = 8
698 Top = 43
699 Width = 56
700 Height = 17
701 TabOrder = 1
702 Visible = False
703 OnClick = ELChange
704 end
705 object radET3: TRadioButton
706 Left = 8
707 Top = 68
708 Width = 56
709 Height = 17
710 TabOrder = 2
711 Visible = False
712 OnClick = ELChange
713 end
714 object radLT1: TRadioButton
715 Left = 92
716 Top = 18
717 Width = 56
718 Height = 17
719 TabOrder = 3
720 Visible = False
721 OnClick = ELChange
722 end
723 object radLT2: TRadioButton
724 Left = 92
725 Top = 43
726 Width = 56
727 Height = 17
728 TabOrder = 4
729 Visible = False
730 OnClick = ELChange
731 end
732 object radLT3: TRadioButton
733 Left = 92
734 Top = 68
735 Width = 56
736 Height = 17
737 TabOrder = 5
738 Visible = False
739 OnClick = ELChange
740 end
741 end
742 object calELStart: TORDateBox
743 Left = 287
744 Top = 15
745 Width = 120
746 Height = 21
747 TabOrder = 2
748 OnChange = calELStartChange
749 OnEnter = calELStartEnter
750 OnExit = calELStartExit
751 DateOnly = True
752 RequireTime = False
753 Caption = 'Start Date'
754 end
755 object calELStop: TORDateBox
756 Left = 287
757 Top = 60
758 Width = 120
759 Height = 21
[460]760 TabOrder = 4
[459]761 OnChange = calELStopChange
762 DateOnly = True
763 RequireTime = False
764 Caption = 'End Date'
765 end
766 object grpDoW: TGroupBox
767 Left = 415
768 Top = 2
769 Width = 93
770 Height = 152
771 Caption = 'Days of Week'
[460]772 TabOrder = 5
[459]773 object chkMonday: TCheckBox
774 Left = 8
775 Top = 16
776 Width = 80
777 Height = 17
778 Caption = 'Monday'
779 TabOrder = 0
780 OnClick = ELChange
781 end
782 object chkTuesday: TCheckBox
783 Left = 8
784 Top = 35
785 Width = 80
786 Height = 17
787 Caption = 'Tuesday'
788 TabOrder = 1
789 OnClick = ELChange
790 end
791 object chkWednesday: TCheckBox
792 Left = 8
793 Top = 54
794 Width = 80
795 Height = 17
796 Caption = 'Wednesday'
797 TabOrder = 2
798 OnClick = ELChange
799 end
800 object chkThursday: TCheckBox
801 Left = 8
802 Top = 73
803 Width = 80
804 Height = 17
805 Caption = 'Thursday'
806 TabOrder = 3
807 OnClick = ELChange
808 end
809 object chkFriday: TCheckBox
810 Left = 8
811 Top = 92
812 Width = 80
813 Height = 17
814 Caption = 'Friday'
815 TabOrder = 4
816 OnClick = ELChange
817 end
818 object chkSaturday: TCheckBox
819 Left = 8
820 Top = 111
821 Width = 80
822 Height = 17
823 Caption = 'Saturday'
824 TabOrder = 5
825 OnClick = ELChange
826 end
827 object chkSunday: TCheckBox
828 Left = 9
829 Top = 130
830 Width = 80
831 Height = 17
832 Caption = 'Sunday'
833 TabOrder = 6
834 OnClick = ELChange
835 end
836 end
837 object chkBagged: TCheckBox
838 Left = 4
839 Top = 120
840 Width = 85
841 Height = 17
842 Caption = 'Bagged Meal'
[460]843 TabOrder = 6
[459]844 OnClick = ELChange
845 end
[460]846 object cboOPELRecurringMeals: TORComboBox
847 Left = 287
848 Top = 15
849 Width = 121
850 Height = 21
851 Style = orcsDropDown
852 AutoSelect = True
853 Color = clWindow
854 DropDownCount = 8
855 ItemHeight = 13
856 ItemTipColor = clWindow
857 ItemTipEnable = True
858 ListItemsOnly = False
859 LongList = False
860 LookupPiece = 0
861 MaxLength = 0
862 Pieces = '2,3'
863 Sorted = False
864 SynonymChars = '<>'
865 TabPositions = '12'
866 TabOrder = 3
867 TabStop = True
868 OnChange = ELChange
869 CharsNeedMatch = 1
870 end
[459]871 end
872 object pgeIsolations: TTabSheet
873 Caption = 'Isolations / Precautions'
874 object lblIsolation: TLabel
875 Left = 4
876 Top = 0
877 Width = 123
878 Height = 13
879 Caption = 'Select Type of Precaution'
880 end
881 object lblIPComment: TLabel
882 Left = 4
883 Top = 119
884 Width = 54
885 Height = 13
886 Caption = 'Instructions'
887 end
888 object lblIPCurrent: TLabel
889 Left = 224
890 Top = 0
891 Width = 76
892 Height = 13
893 Caption = 'Current Isolation'
894 end
895 object lstIsolation: TORListBox
896 Left = 4
897 Top = 14
898 Width = 212
899 Height = 97
900 ItemHeight = 13
901 ParentShowHint = False
902 ShowHint = True
903 TabOrder = 0
904 Caption = 'Select Type of Precaution'
905 ItemTipColor = clWindow
906 LongList = False
907 Pieces = '2'
908 OnChange = IPChange
909 end
910 object txtIPComment: TCaptionEdit
911 Left = 4
912 Top = 133
913 Width = 504
914 Height = 21
915 MaxLength = 240
916 TabOrder = 2
917 OnChange = IPChange
918 Caption = 'Instructions'
919 end
920 object txtIPCurrent: TCaptionEdit
921 Left = 224
922 Top = 14
923 Width = 212
924 Height = 21
925 Color = clBtnFace
926 ReadOnly = True
927 TabOrder = 1
928 Text = '<none>'
929 Caption = 'Current Isolation'
930 end
931 end
932 object pgeAdditional: TTabSheet
933 Caption = 'Additional Order'
934 object lblAddlOrder: TLabel
935 Left = 4
936 Top = 24
937 Width = 125
938 Height = 13
939 Caption = 'Enter Additional Diet Order'
940 end
[460]941 object lblOPAOStart: TLabel
942 Left = 6
943 Top = 72
944 Width = 51
945 Height = 13
946 Caption = 'Start Date:'
947 end
[459]948 object txtAOComment: TCaptionEdit
949 Left = 4
950 Top = 38
951 Width = 504
952 Height = 21
953 MaxLength = 80
[460]954 TabOrder = 1
[459]955 OnChange = AOChange
956 Caption = 'Enter Additional Diet Order'
957 end
[460]958 object calOPAOStart: TORDateBox
959 Left = 54
960 Top = 88
961 Width = 169
962 Height = 21
963 TabStop = False
964 TabOrder = 4
965 Visible = False
966 OnChange = AOChange
967 DateOnly = False
968 RequireTime = False
969 Caption = 'Start Date:'
970 end
971 object cboOPAORecurringMeals: TORComboBox
972 Left = 6
973 Top = 88
974 Width = 168
975 Height = 21
976 Style = orcsDropDown
977 AutoSelect = True
978 Color = clWindow
979 DropDownCount = 8
980 ItemHeight = 13
981 ItemTipColor = clWindow
982 ItemTipEnable = True
983 ListItemsOnly = False
984 LongList = False
985 LookupPiece = 0
986 MaxLength = 0
987 Pieces = '2,3'
988 Sorted = False
989 SynonymChars = '<>'
990 TabPositions = '12'
991 TabOrder = 2
992 TabStop = True
993 OnChange = AOChange
994 CharsNeedMatch = 1
995 end
[459]996 end
997 end
[460]998 inherited memOrder: TCaptionMemo
999 Top = 208
1000 end
[459]1001 inherited cmdAccept: TButton
[460]1002 Left = 445
1003 Top = 208
[459]1004 TabOrder = 2
1005 end
1006 inherited cmdQuit: TButton
[460]1007 Left = 445
1008 Top = 235
[459]1009 TabOrder = 3
1010 end
1011 inherited pnlMessage: TPanel
[460]1012 Top = 197
[459]1013 Height = 57
1014 TabOrder = 1
1015 inherited imgMessage: TImage
1016 Top = 10
1017 end
1018 inherited memMessage: TRichEdit
1019 Height = 45
1020 end
1021 end
1022end
Note: See TracBrowser for help on using the repository browser.