source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMeds.dfm@ 697

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

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