Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

fODMeds.~dfm@ 973

Last change on this file since 973 was 453, checked in by Kevin Toppenberg, 16 years ago
Initial upload of TMG-CPRS 1.0.26.69
File size: 28.4 KB

Line
1	inherited 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
1030	end

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

Download in other formats:

Original Format