source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.dfm@ 1542

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

Uploading from OR_30_258
File size: 24.1 KB
Line 
1inherited frmODMeds: TfrmODMeds
2 Left = 519
3 Top = 204
4 Width = 584
5 Height = 515
6 HorzScrollBar.Range = 558
7 VertScrollBar.Range = 399
8 Caption = 'Medication Order'
9 Constraints.MinHeight = 325
10 OnKeyDown = FormKeyDown
11 OnShow = FormShow
12 DesignSize = (
13 576
14 488)
15 PixelsPerInch = 96
16 TextHeight = 13
17 object pnlMeds: TPanel [0]
18 Left = 6
19 Top = 34
20 Width = 580
21 Height = 413
22 Anchors = [akLeft, akTop, akRight, akBottom]
23 BevelOuter = bvNone
24 Caption = 'pnlMeds'
25 TabOrder = 1
26 object sptSelect: TSplitter
27 Left = 0
28 Top = 133
29 Width = 580
30 Height = 4
31 Cursor = crVSplit
32 Align = alTop
33 end
34 object lstQuick: TCaptionListView
35 Left = 0
36 Top = 0
37 Width = 580
38 Height = 133
39 Align = alTop
40 BevelInner = bvLowered
41 BevelOuter = bvSpace
42 Columns = <
43 item
44 Width = 420
45 end>
46 ColumnClick = False
47 HideSelection = False
48 HotTrack = True
49 HoverTime = 2147483647
50 OwnerData = True
51 ParentShowHint = False
52 ShowColumnHeaders = False
53 ShowHint = True
54 TabOrder = 0
55 ViewStyle = vsReport
56 OnChange = lstChange
57 OnClick = ListViewClick
58 OnData = lstQuickData
59 OnDataHint = lstQuickDataHint
60 OnEditing = ListViewEditing
61 OnEnter = ListViewEnter
62 OnKeyUp = ListViewKeyUp
63 OnResize = ListViewResize
64 Caption = 'Quick Orders'
65 end
66 object lstAll: TCaptionListView
67 Left = 0
68 Top = 137
69 Width = 580
70 Height = 276
71 Align = alClient
72 BevelInner = bvLowered
73 BevelOuter = bvNone
74 Columns = <
75 item
76 Width = 420
77 end>
78 ColumnClick = False
79 HideSelection = False
80 HotTrack = True
81 HoverTime = 2147483647
82 OwnerData = True
83 ParentShowHint = False
84 ShowColumnHeaders = False
85 ShowHint = True
86 TabOrder = 1
87 ViewStyle = vsReport
88 OnChange = lstChange
89 OnClick = ListViewClick
90 OnData = lstAllData
91 OnDataHint = lstAllDataHint
92 OnEditing = ListViewEditing
93 OnEnter = ListViewEnter
94 OnKeyUp = ListViewKeyUp
95 OnResize = ListViewResize
96 Caption = 'All Medication orders'
97 end
98 end
99 inherited memOrder: TCaptionMemo
100 Top = 448
101 Width = 502
102 Anchors = [akLeft, akRight, akBottom]
103 TabOrder = 4
104 end
105 object txtMed: TEdit [2]
106 Left = 6
107 Top = 6
108 Width = 580
109 Height = 21
110 Anchors = [akLeft, akTop, akRight]
111 AutoSelect = False
112 TabOrder = 0
113 Text = '(Type a medication name or select from the orders below)'
114 OnChange = txtMedChange
115 OnExit = txtMedExit
116 OnKeyDown = txtMedKeyDown
117 OnKeyUp = txtMedKeyUp
118 end
119 object btnSelect: TButton [3]
120 Left = 515
121 Top = 448
122 Width = 72
123 Height = 21
124 Anchors = [akRight, akBottom]
125 Caption = 'OK'
126 Default = True
127 Enabled = False
128 TabOrder = 5
129 OnClick = btnSelectClick
130 end
131 inherited cmdAccept: TButton
132 Left = 514
133 Top = 448
134 Anchors = [akRight, akBottom]
135 TabOrder = 6
136 TabStop = False
137 Visible = False
138 end
139 inherited cmdQuit: TButton
140 Left = 514
141 Top = 473
142 Width = 51
143 Anchors = [akRight, akBottom]
144 TabOrder = 7
145 end
146 inherited pnlMessage: TPanel
147 Left = 36
148 Top = 156
149 OnEnter = pnlMessageEnter
150 inherited memMessage: TRichEdit
151 OnKeyDown = memMessageKeyDown
152 end
153 end
154 object pnlFields: TPanel
155 Left = 6
156 Top = 34
157 Width = 580
158 Height = 413
159 Anchors = [akLeft, akTop, akRight, akBottom]
160 BevelOuter = bvNone
161 Enabled = False
162 TabOrder = 2
163 Visible = False
164 OnResize = pnlFieldsResize
165 object pnlTop: TPanel
166 Left = 0
167 Top = 0
168 Width = 580
169 Height = 184
170 Align = alClient
171 Constraints.MinHeight = 80
172 TabOrder = 3
173 DesignSize = (
174 580
175 184)
176 object lblRoute: TLabel
177 Left = 280
178 Top = 23
179 Width = 29
180 Height = 13
181 Anchors = [akTop, akRight]
182 Caption = 'Route'
183 Visible = False
184 end
185 object lblSchedule: TLabel
186 Left = 394
187 Top = 22
188 Width = 45
189 Height = 13
190 Anchors = [akTop, akRight]
191 Caption = 'Schedule'
192 Visible = False
193 WordWrap = True
194 end
195 object txtNSS: TLabel
196 Left = 442
197 Top = 22
198 Width = 71
199 Height = 13
200 Anchors = [akTop, akRight]
201 Caption = '(Day-Of-Week)'
202 Font.Charset = DEFAULT_CHARSET
203 Font.Color = clBlue
204 Font.Height = -11
205 Font.Name = 'MS Sans Serif'
206 Font.Style = []
207 ParentFont = False
208 Visible = False
209 WordWrap = True
210 OnClick = txtNSSClick
211 end
212 object grdDoses: TCaptionStringGrid
213 Left = 0
214 Top = 36
215 Width = 580
216 Height = 143
217 Anchors = [akLeft, akTop, akRight, akBottom]
218 ColCount = 6
219 DefaultColWidth = 76
220 DefaultRowHeight = 21
221 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs]
222 ScrollBars = ssVertical
223 TabOrder = 8
224 OnDrawCell = grdDosesDrawCell
225 OnEnter = grdDosesEnter
226 OnExit = grdDosesExit
227 OnKeyDown = grdDosesKeyDown
228 OnKeyPress = grdDosesKeyPress
229 OnMouseDown = grdDosesMouseDown
230 OnMouseUp = grdDosesMouseUp
231 Caption = 'Complex Dosage'
232 JustToTab = True
233 ColWidths = (
234 76
235 76
236 76
237 76
238 76
239 76)
240 end
241 object lblGuideline: TStaticText
242 Left = 0
243 Top = 1
244 Width = 181
245 Height = 17
246 Caption = 'Display Restrictions/Guidelines'
247 Color = clBtnFace
248 Font.Charset = DEFAULT_CHARSET
249 Font.Color = clBlue
250 Font.Height = -11
251 Font.Name = 'MS Sans Serif'
252 Font.Style = [fsBold, fsUnderline]
253 ParentColor = False
254 ParentFont = False
255 ShowAccelChar = False
256 TabOrder = 0
257 TabStop = True
258 Visible = False
259 OnClick = lblGuidelineClick
260 end
261 object tabDose: TTabControl
262 Left = 1
263 Top = 19
264 Width = 175
265 Height = 17
266 TabOrder = 3
267 Tabs.Strings = (
268 'Dosage'
269 'Complex')
270 TabIndex = 0
271 TabStop = False
272 TabWidth = 86
273 OnChange = tabDoseChange
274 end
275 object cboDosage: TORComboBox
276 Left = 1
277 Top = 36
278 Width = 279
279 Height = 143
280 Anchors = [akLeft, akTop, akRight, akBottom]
281 Style = orcsSimple
282 AutoSelect = True
283 Caption = 'Dosage'
284 Color = clWindow
285 DropDownCount = 8
286 ItemHeight = 13
287 ItemTipColor = clWindow
288 ItemTipEnable = True
289 ListItemsOnly = False
290 LongList = False
291 LookupPiece = 0
292 MaxLength = 0
293 Pieces = '5,3,6'
294 Sorted = False
295 SynonymChars = '<>'
296 TabPositions = '27,32'
297 TabOrder = 4
298 OnChange = cboDosageChange
299 OnClick = cboDosageClick
300 OnExit = cboDosageExit
301 OnKeyUp = cboDosageKeyUp
302 CharsNeedMatch = 1
303 UniqueAutoComplete = True
304 end
305 object cboRoute: TORComboBox
306 Left = 280
307 Top = 36
308 Width = 113
309 Height = 143
310 Anchors = [akTop, akRight, akBottom]
311 Style = orcsSimple
312 AutoSelect = True
313 Caption = 'Route'
314 Color = clWindow
315 DropDownCount = 8
316 ItemHeight = 13
317 ItemTipColor = clWindow
318 ItemTipEnable = True
319 ListItemsOnly = False
320 LongList = False
321 LookupPiece = 0
322 MaxLength = 0
323 ParentShowHint = False
324 Pieces = '2'
325 ShowHint = True
326 Sorted = False
327 SynonymChars = '<>'
328 TabOrder = 5
329 OnChange = cboRouteChange
330 OnClick = ControlChange
331 OnExit = cboRouteExit
332 CharsNeedMatch = 1
333 UniqueAutoComplete = True
334 end
335 object cboSchedule: TORComboBox
336 Left = 394
337 Top = 36
338 Width = 178
339 Height = 143
340 Anchors = [akTop, akRight, akBottom]
341 Style = orcsSimple
342 AutoSelect = False
343 Caption = 'Schedule'
344 Color = clWindow
345 DropDownCount = 8
346 ItemHeight = 13
347 ItemTipColor = clWindow
348 ItemTipEnable = True
349 ListItemsOnly = False
350 LongList = False
351 LookupPiece = 0
352 MaxLength = 0
353 Pieces = '1'
354 Sorted = True
355 SynonymChars = '<>'
356 TabOrder = 6
357 OnChange = cboScheduleChange
358 OnClick = cboScheduleClick
359 OnEnter = cboScheduleEnter
360 OnExit = cboScheduleExit
361 CharsNeedMatch = 1
362 UniqueAutoComplete = True
363 end
364 object chkPRN: TCheckBox
365 Left = 530
366 Top = 37
367 Width = 42
368 Height = 18
369 Anchors = [akTop, akRight]
370 Caption = 'PRN'
371 Color = clBtnFace
372 ParentColor = False
373 TabOrder = 7
374 OnClick = chkPRNClick
375 end
376 object btnXInsert: TButton
377 Left = 403
378 Top = 3
379 Width = 79
380 Height = 17
381 Caption = 'Insert Row'
382 ParentShowHint = False
383 ShowHint = True
384 TabOrder = 1
385 OnClick = btnXInsertClick
386 end
387 object btnXRemove: TButton
388 Left = 488
389 Top = 3
390 Width = 79
391 Height = 17
392 Caption = 'Remove Row'
393 ParentShowHint = False
394 ShowHint = True
395 TabOrder = 2
396 OnClick = btnXRemoveClick
397 end
398 end
399 object cboXDosage: TORComboBox
400 Left = 49
401 Top = 122
402 Width = 72
403 Height = 21
404 Style = orcsDropDown
405 AutoSelect = False
406 Caption = 'Dosage'
407 Color = clWindow
408 DropDownCount = 8
409 ItemHeight = 13
410 ItemTipColor = clWindow
411 ItemTipEnable = True
412 ListItemsOnly = False
413 LongList = False
414 LookupPiece = 0
415 MaxLength = 0
416 Pieces = '5'
417 Sorted = False
418 SynonymChars = '<>'
419 TabOrder = 0
420 Visible = False
421 OnChange = cboXDosageChange
422 OnClick = cboXDosageClick
423 OnEnter = cboXDosageEnter
424 OnExit = cboXDosageExit
425 OnKeyDown = memMessageKeyDown
426 OnKeyUp = cboXDosageKeyUp
427 CharsNeedMatch = 1
428 UniqueAutoComplete = True
429 end
430 object cboXRoute: TORComboBox
431 Left = 122
432 Top = 122
433 Width = 72
434 Height = 21
435 Style = orcsDropDown
436 AutoSelect = False
437 Caption = 'Route'
438 Color = clWindow
439 DropDownCount = 8
440 ItemHeight = 13
441 ItemTipColor = clWindow
442 ItemTipEnable = True
443 ListItemsOnly = False
444 LongList = False
445 LookupPiece = 0
446 MaxLength = 0
447 Pieces = '2'
448 Sorted = False
449 SynonymChars = '<>'
450 TabOrder = 1
451 Visible = False
452 OnChange = cboXRouteChange
453 OnClick = cboXRouteClick
454 OnEnter = cboXRouteEnter
455 OnExit = cboXRouteExit
456 OnKeyDown = memMessageKeyDown
457 CharsNeedMatch = 1
458 UniqueAutoComplete = True
459 end
460 object pnlXDuration: TPanel
461 Left = 300
462 Top = 122
463 Width = 72
464 Height = 21
465 BevelOuter = bvNone
466 TabOrder = 4
467 Visible = False
468 OnEnter = pnlXDurationEnter
469 OnExit = pnlXDurationExit
470 DesignSize = (
471 72
472 21)
473 object pnlXDurationButton: TKeyClickPanel
474 Left = 39
475 Top = 1
476 Width = 33
477 Height = 19
478 Anchors = [akLeft, akTop, akRight, akBottom]
479 Caption = 'Duration'
480 TabOrder = 2
481 TabStop = True
482 OnClick = btnXDurationClick
483 object btnXDuration: TSpeedButton
484 Left = 0
485 Top = 0
486 Width = 33
487 Height = 19
488 Caption = 'days'
489 Flat = True
490 Glyph.Data = {
491 AE000000424DAE0000000000000076000000280000000E000000070000000100
492 0400000000003800000000000000000000001000000000000000000000000000
493 8000008000000080800080000000800080008080000080808000C0C0C0000000
494 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
495 330033333333333333003330333333733300330003333F87330030000033FFFF
496 F30033333333333333003333333333333300}
497 Layout = blGlyphRight
498 NumGlyphs = 2
499 Spacing = 0
500 Transparent = False
501 OnClick = btnXDurationClick
502 end
503 end
504 object txtXDuration: TCaptionEdit
505 Left = 0
506 Top = 0
507 Width = 25
508 Height = 21
509 Anchors = [akLeft, akTop, akBottom]
510 TabOrder = 0
511 Text = '0'
512 OnChange = txtXDurationChange
513 OnKeyDown = memMessageKeyDown
514 Caption = 'Duration'
515 end
516 object spnXDuration: TUpDown
517 Left = 25
518 Top = 0
519 Width = 15
520 Height = 21
521 Anchors = [akLeft, akTop, akBottom]
522 Associate = txtXDuration
523 Min = 0
524 Max = 999
525 Position = 0
526 TabOrder = 1
527 Wrap = False
528 end
529 end
530 object pnlXSequence: TKeyClickPanel
531 Left = 396
532 Top = 122
533 Width = 37
534 Height = 21
535 Caption = 'Then/And box'
536 TabOrder = 5
537 TabStop = True
538 Visible = False
539 OnClick = btnXSequenceClick
540 OnEnter = pnlXSequenceEnter
541 OnExit = pnlXSequenceExit
542 object btnXSequence: TSpeedButton
543 Left = 1
544 Top = 1
545 Width = 38
546 Height = 19
547 Hint = 'A duration must be defined if using "Then" as a sequence.'
548 Caption = 'then'
549 Glyph.Data = {
550 AE000000424DAE0000000000000076000000280000000E000000070000000100
551 0400000000003800000000000000000000001000000000000000000000000000
552 8000008000000080800080000000800080008080000080808000C0C0C0000000
553 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
554 330033333333333333003330333333733300330003333F87330030000033FFFF
555 F30033333333333333003333333333333300}
556 Layout = blGlyphRight
557 NumGlyphs = 2
558 ParentShowHint = False
559 ShowHint = True
560 Spacing = 1
561 OnClick = btnXSequenceClick
562 end
563 object SpeedButton1: TSpeedButton
564 Left = 16
565 Top = 16
566 Width = 23
567 Height = 22
568 end
569 end
570 object pnlXSchedule: TPanel
571 Left = 195
572 Top = 122
573 Width = 106
574 Height = 21
575 BevelOuter = bvNone
576 TabOrder = 2
577 Visible = False
578 OnEnter = pnlXScheduleEnter
579 OnExit = pnlXScheduleExit
580 DesignSize = (
581 106
582 21)
583 object cboXSchedule: TORComboBox
584 Left = 0
585 Top = 0
586 Width = 63
587 Height = 21
588 Anchors = [akLeft, akTop, akRight]
589 Style = orcsDropDown
590 AutoSelect = False
591 Caption = 'Schedule'
592 Color = clWindow
593 DropDownCount = 8
594 ItemHeight = 13
595 ItemTipColor = clWindow
596 ItemTipEnable = True
597 ListItemsOnly = False
598 LongList = False
599 LookupPiece = 0
600 MaxLength = 0
601 Pieces = '1'
602 Sorted = False
603 SynonymChars = '<>'
604 TabOrder = 0
605 TabStop = True
606 OnChange = cboXScheduleChange
607 OnClick = cboXScheduleClick
608 OnEnter = cboXScheduleEnter
609 OnExit = cboXScheduleExit
610 OnKeyDown = memMessageKeyDown
611 CharsNeedMatch = 1
612 UniqueAutoComplete = True
613 end
614 object chkXPRN: TCheckBox
615 Left = 63
616 Top = 4
617 Width = 42
618 Height = 11
619 Anchors = [akTop, akRight]
620 Caption = 'PRN'
621 TabOrder = 1
622 OnClick = chkXPRNClick
623 OnKeyDown = memMessageKeyDown
624 end
625 end
626 object pnlBottom: TPanel
627 Left = 0
628 Top = 184
629 Width = 580
630 Height = 229
631 Align = alBottom
632 TabOrder = 6
633 DesignSize = (
634 580
635 229)
636 object lblComment: TLabel
637 Left = 4
638 Top = 5
639 Width = 52
640 Height = 16
641 Alignment = taRightJustify
642 AutoSize = False
643 Caption = 'Comments:'
644 end
645 object lblDays: TLabel
646 Left = 4
647 Top = 65
648 Width = 59
649 Height = 13
650 Caption = 'Days Supply'
651 end
652 object lblQuantity: TLabel
653 Left = 84
654 Top = 65
655 Width = 39
656 Height = 13
657 Caption = 'Quantity'
658 ParentShowHint = False
659 ShowHint = True
660 end
661 object lblRefills: TLabel
662 Left = 164
663 Top = 65
664 Width = 28
665 Height = 13
666 Caption = 'Refills'
667 end
668 object lblPriority: TLabel
669 Left = 500
670 Top = 61
671 Width = 31
672 Height = 13
673 Anchors = [akTop, akRight]
674 Caption = 'Priority'
675 end
676 object Image1: TImage
677 Left = 5
678 Top = 177
679 Width = 31
680 Height = 31
681 Anchors = [akLeft, akBottom]
682 Visible = False
683 end
684 object chkDoseNow: TCheckBox
685 Left = 3
686 Top = 104
687 Width = 247
688 Height = 21
689 Caption = 'Give additional dose now'
690 TabOrder = 9
691 OnClick = chkDoseNowClick
692 end
693 object memComment: TCaptionMemo
694 Left = 57
695 Top = 2
696 Width = 513
697 Height = 43
698 Anchors = [akLeft, akTop, akRight]
699 ScrollBars = ssVertical
700 TabOrder = 0
701 OnChange = ControlChange
702 OnClick = memCommentClick
703 Caption = 'Comments'
704 end
705 object lblQtyMsg: TStaticText
706 Left = 4
707 Top = 47
708 Width = 206
709 Height = 17
710 Caption = '>> Quantity Dispensed: Multiples of 100 <<'
711 TabOrder = 12
712 end
713 object txtSupply: TCaptionEdit
714 Left = 2
715 Top = 78
716 Width = 60
717 Height = 21
718 AutoSize = False
719 TabOrder = 1
720 Text = '0'
721 OnChange = txtSupplyChange
722 OnClick = txtSupplyClick
723 Caption = 'Days Supply'
724 end
725 object spnSupply: TUpDown
726 Left = 62
727 Top = 78
728 Width = 15
729 Height = 21
730 Associate = txtSupply
731 Min = 0
732 Position = 0
733 TabOrder = 2
734 Wrap = False
735 end
736 object txtQuantity: TCaptionEdit
737 Left = 83
738 Top = 78
739 Width = 60
740 Height = 21
741 AutoSize = False
742 TabOrder = 3
743 Text = '0'
744 OnChange = txtQuantityChange
745 OnClick = txtQuantityClick
746 Caption = 'Quantity'
747 end
748 object spnQuantity: TUpDown
749 Left = 143
750 Top = 78
751 Width = 16
752 Height = 21
753 Min = -32766
754 Max = 32766
755 Position = 0
756 TabOrder = 4
757 Wrap = False
758 OnChangingEx = spnQuantityChangingEx
759 end
760 object txtRefills: TCaptionEdit
761 Left = 164
762 Top = 78
763 Width = 30
764 Height = 21
765 AutoSize = False
766 TabOrder = 5
767 Text = '0'
768 OnChange = ControlChange
769 OnClick = txtRefillsClick
770 Caption = 'Refills'
771 end
772 object spnRefills: TUpDown
773 Left = 194
774 Top = 78
775 Width = 15
776 Height = 21
777 Associate = txtRefills
778 Min = 0
779 Max = 11
780 Position = 0
781 TabOrder = 6
782 Wrap = False
783 end
784 object grpPickup: TGroupBox
785 Left = 283
786 Top = 66
787 Width = 172
788 Height = 36
789 Anchors = [akTop, akRight]
790 Caption = 'Pick Up'
791 TabOrder = 7
792 object radPickWindow: TRadioButton
793 Left = 105
794 Top = 14
795 Width = 58
796 Height = 17
797 Caption = '&Window'
798 TabOrder = 2
799 OnClick = ControlChange
800 end
801 object radPickMail: TRadioButton
802 Left = 58
803 Top = 14
804 Width = 38
805 Height = 17
806 Caption = '&Mail'
807 TabOrder = 1
808 OnClick = ControlChange
809 end
810 object radPickClinic: TRadioButton
811 Left = 7
812 Top = 14
813 Width = 44
814 Height = 17
815 Caption = '&Clinic'
816 TabOrder = 0
817 OnClick = ControlChange
818 end
819 end
820 object cboPriority: TORComboBox
821 Left = 499
822 Top = 76
823 Width = 72
824 Height = 21
825 Anchors = [akTop, akRight]
826 Style = orcsDropDown
827 AutoSelect = True
828 Caption = 'Priority'
829 Color = clWindow
830 DropDownCount = 8
831 ItemHeight = 13
832 ItemTipColor = clWindow
833 ItemTipEnable = True
834 ListItemsOnly = True
835 LongList = False
836 LookupPiece = 0
837 MaxLength = 0
838 Pieces = '2'
839 Sorted = False
840 SynonymChars = '<>'
841 TabOrder = 10
842 OnChange = ControlChange
843 CharsNeedMatch = 1
844 end
845 object chkSC: TCheckBox
846 Left = 3
847 Top = 106
848 Width = 175
849 Height = 17
850 Caption = 'for Service Connected condition'
851 ParentShowHint = False
852 ShowHint = True
853 TabOrder = 8
854 OnClick = chkSCClick
855 OnEnter = chkSCEnter
856 end
857 object lblAdminTime: TStaticText
858 Left = 262
859 Top = 120
860 Width = 4
861 Height = 4
862 TabOrder = 16
863 end
864 object stcPI: TStaticText
865 Left = 2
866 Top = 123
867 Width = 89
868 Height = 17
869 Caption = 'Patient Instruction'
870 TabOrder = 17
871 Visible = False
872 end
873 object chkPtInstruct: TCheckBox
874 Left = 4
875 Top = 137
876 Width = 14
877 Height = 21
878 Color = clBtnFace
879 ParentColor = False
880 TabOrder = 18
881 Visible = False
882 OnClick = chkPtInstructClick
883 end
884 object memPI: TMemo
885 Left = 23
886 Top = 139
887 Width = 547
888 Height = 35
889 TabStop = False
890 Anchors = [akLeft, akTop, akRight]
891 ReadOnly = True
892 ScrollBars = ssVertical
893 TabOrder = 19
894 Visible = False
895 OnClick = memPIClick
896 OnKeyDown = memPIKeyDown
897 end
898 object memDrugMsg: TMemo
899 Left = 37
900 Top = 176
901 Width = 533
902 Height = 51
903 Anchors = [akLeft, akRight, akBottom]
904 Color = clCream
905 ReadOnly = True
906 ScrollBars = ssVertical
907 TabOrder = 20
908 Visible = False
909 end
910 end
911 end
912 object dlgStart: TORDateTimeDlg
913 FMDateTime = 3001101
914 DateOnly = False
915 RequireTime = True
916 Left = 444
917 Top = 336
918 end
919 object timCheckChanges: TTimer
920 Enabled = False
921 Interval = 500
922 OnTimer = timCheckChangesTimer
923 Left = 477
924 Top = 336
925 end
926 object popDuration: TPopupMenu
927 AutoHotkeys = maManual
928 Left = 380
929 Top = 145
930 object popBlank: TMenuItem
931 Caption = '(no selection)'
932 OnClick = popDurationClick
933 end
934 object months1: TMenuItem
935 Tag = 5
936 Caption = 'months'
937 OnClick = popDurationClick
938 end
939 object weeks1: TMenuItem
940 Tag = 4
941 Caption = 'weeks'
942 OnClick = popDurationClick
943 end
944 object popDays: TMenuItem
945 Tag = 3
946 Caption = 'days'
947 OnClick = popDurationClick
948 end
949 object hours1: TMenuItem
950 Tag = 2
951 Caption = 'hours'
952 OnClick = popDurationClick
953 end
954 object minutes1: TMenuItem
955 Tag = 1
956 Caption = 'minutes'
957 OnClick = popDurationClick
958 end
959 end
960 object popXSequence: TPopupMenu
961 AutoHotkeys = maManual
962 Left = 448
963 Top = 145
964 object and1: TMenuItem
965 Tag = 1
966 Caption = 'and'
967 OnClick = popXSequenceClick
968 end
969 object then1: TMenuItem
970 Tag = 2
971 Caption = 'then'
972 OnClick = popXSequenceClick
973 end
974 end
975end
Note: See TracBrowser for help on using the repository browser.