source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODDiet.~dfm@ 1727

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

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