Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

fODMeds.dfm@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 16 years ago
Adding foia-cprs branch
File size: 23.7 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format