Context Navigation

fTemplateFieldEditor.dfm@ 1697

Last change on this file since 1697 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 27.0 KB

Rev	Line
[829]	1	inherited frmTemplateFieldEditor: TfrmTemplateFieldEditor
[456]	2	Left = 294
	3	Top = 211
	4	BorderIcons = [biSystemMenu, biMaximize]
	5	Caption = 'Template Field Editor'
[829]	6	ClientHeight = 420
	7	ClientWidth = 788
[456]	8	Position = poScreenCenter
	9	OnCloseQuery = FormCloseQuery
	10	OnCreate = FormCreate
	11	OnDestroy = FormDestroy
	12	OnResize = FormResize
[829]	13	ExplicitWidth = 796
	14	ExplicitHeight = 454
[456]	15	PixelsPerInch = 96
	16	TextHeight = 13
[829]	17	object splLeft: TSplitter [0]
	18	Left = 429
[456]	19	Top = 25
	20	Height = 366
	21	Beveled = True
[829]	22	ExplicitLeft = 273
[456]	23	end
[829]	24	object pnlBottom: TPanel [1]
[456]	25	Left = 0
	26	Top = 391
[829]	27	Width = 788
[456]	28	Height = 29
	29	Align = alBottom
	30	TabOrder = 2
	31	DesignSize = (
[829]	32	788
[456]	33	29)
	34	object lblReq: TStaticText
	35	Left = 132
	36	Top = 8
	37	Width = 134
	38	Height = 17
	39	Caption = '* Indicates a Required Field'
	40	TabOrder = 5
	41	end
	42	object btnOK: TButton
[829]	43	Left = 548
[456]	44	Top = 4
	45	Width = 75
	46	Height = 21
	47	Anchors = [akTop, akRight, akBottom]
	48	Caption = 'OK'
	49	ModalResult = 1
	50	TabOrder = 2
	51	OnClick = btnOKClick
	52	end
	53	object btnCancel: TButton
[829]	54	Left = 628
[456]	55	Top = 4
	56	Width = 75
	57	Height = 21
	58	Anchors = [akTop, akRight, akBottom]
	59	Cancel = True
	60	Caption = 'Cancel'
	61	ModalResult = 2
	62	TabOrder = 3
	63	OnClick = btnCancelClick
	64	end
	65	object btnApply: TButton
[829]	66	Left = 708
[456]	67	Top = 4
	68	Width = 75
	69	Height = 21
	70	Anchors = [akTop, akRight, akBottom]
	71	Caption = 'Apply'
	72	TabOrder = 4
	73	OnClick = btnApplyClick
	74	end
	75	object btnPreview: TButton
[829]	76	Left = 435
[456]	77	Top = 4
	78	Width = 75
	79	Height = 21
	80	Anchors = [akTop, akRight, akBottom]
	81	Caption = 'Preview'
	82	Enabled = False
	83	TabOrder = 1
	84	OnClick = btnPreviewClick
	85	end
	86	object cbHide: TCheckBox
	87	Left = 6
	88	Top = 6
	89	Width = 115
	90	Height = 17
	91	Caption = 'Hide Inactive Fields'
	92	Checked = True
	93	State = cbChecked
	94	TabOrder = 0
	95	OnClick = cbHideClick
	96	end
	97	end
[829]	98	object pnlObjs: TPanel [2]
[456]	99	Left = 0
	100	Top = 25
[829]	101	Width = 429
[456]	102	Height = 366
	103	Align = alLeft
	104	Caption = 'pnlObjs'
	105	TabOrder = 0
	106	OnResize = pnlObjsResize
	107	object lblObjs: TLabel
	108	Left = 1
	109	Top = 1
[829]	110	Width = 427
[456]	111	Height = 13
	112	Align = alTop
	113	Caption = 'Template Fields'
[829]	114	ExplicitWidth = 74
[456]	115	end
	116	object cbxObjs: TORComboBox
	117	Left = 1
	118	Top = 14
[829]	119	Width = 427
[456]	120	Height = 351
	121	Style = orcsSimple
	122	Align = alClient
	123	AutoSelect = True
	124	Caption = 'Template Fields'
	125	Color = clWindow
	126	DropDownCount = 8
	127	ItemHeight = 13
	128	ItemTipColor = clWindow
	129	ItemTipEnable = True
	130	ListItemsOnly = True
	131	LongList = True
	132	LookupPiece = 0
	133	MaxLength = 0
	134	Pieces = '2,3'
	135	HideSynonyms = True
	136	Sorted = False
	137	SynonymChars = '<Inactive>'
[829]	138	TabPositions = '50,60,70,80,90'
[456]	139	TabOrder = 0
	140	OnChange = cbxObjsChange
	141	OnKeyDown = cbxObjsKeyDown
	142	OnNeedData = cbxObjsNeedData
	143	OnSynonymCheck = cbxObjsSynonymCheck
[829]	144	CharsNeedMatch = 1
[456]	145	end
	146	end
[829]	147	object pnlRight: TPanel [3]
	148	Left = 432
[456]	149	Top = 25
	150	Width = 356
	151	Height = 366
	152	Align = alClient
	153	Constraints.MinWidth = 356
	154	TabOrder = 1
	155	OnResize = FormResize
	156	object splBottom: TSplitter
	157	Left = 1
	158	Top = 278
	159	Width = 354
	160	Height = 3
	161	Cursor = crVSplit
	162	Align = alBottom
	163	Beveled = True
	164	end
	165	object pnlPreview: TPanel
	166	Left = 1
	167	Top = 281
	168	Width = 354
	169	Height = 84
	170	Align = alBottom
	171	TabOrder = 1
	172	OnResize = FormResize
	173	object lblNotes: TLabel
	174	Left = 1
	175	Top = 1
	176	Width = 352
	177	Height = 13
	178	Align = alTop
	179	Caption = 'Notes:'
[829]	180	ExplicitWidth = 31
[456]	181	end
	182	object reNotes: TRichEdit
	183	Left = 1
	184	Top = 14
	185	Width = 352
	186	Height = 69
	187	Align = alClient
	188	Font.Charset = DEFAULT_CHARSET
	189	Font.Color = clWindowText
	190	Font.Height = -11
	191	Font.Name = 'Courier New'
	192	Font.Style = []
	193	ParentFont = False
	194	PopupMenu = popText
	195	ScrollBars = ssBoth
	196	TabOrder = 0
	197	WantTabs = True
	198	OnChange = reNotesChange
	199	OnEnter = edtpopControlEnter
	200	OnKeyUp = reNotesKeyUp
	201	OnResizeRequest = reItemsResizeRequest
	202	end
	203	end
	204	object pnlObjInfo: TPanel
	205	Left = 1
	206	Top = 1
	207	Width = 354
	208	Height = 277
	209	Align = alClient
	210	TabOrder = 0
	211	OnResize = FormResize
	212	DesignSize = (
	213	354
	214	277)
	215	object lblName: TLabel
	216	Left = 4
	217	Top = 8
	218	Width = 31
	219	Height = 13
	220	Caption = 'Name:'
	221	end
	222	object lblS2: TLabel
	223	Left = 4
	224	Top = 75
	225	Width = 23
	226	Height = 13
	227	Caption = 'lblS2'
	228	end
	229	object lblLM: TLabel
	230	Left = 3
	231	Top = 194
	232	Width = 42
	233	Height = 13
	234	Hint = 'Text to replace template field when used in List Manager'
	235	Anchors = [akLeft, akBottom]
	236	Caption = 'LM Text:'
	237	ParentShowHint = False
	238	ShowHint = True
	239	end
	240	object lblS1: TLabel
	241	Left = 4
	242	Top = 53
	243	Width = 23
	244	Height = 13
	245	Caption = 'lblS1'
	246	end
	247	object lblType: TLabel
	248	Left = 4
	249	Top = 32
	250	Width = 27
	251	Height = 13
	252	Caption = 'Type:'
	253	end
	254	object lblTextLen: TLabel
	255	Left = 255
	256	Top = 31
	257	Width = 45
	258	Height = 13
	259	Anchors = [akTop, akRight]
	260	Caption = 'Text Len:'
	261	end
	262	object lblLength: TLabel
	263	Left = 157
	264	Top = 31
	265	Width = 46
	266	Height = 13
	267	Anchors = [akTop, akRight]
	268	Caption = 'Field Len:'
	269	end
	270	object lblS3: TLabel
	271	Left = 4
	272	Top = 97
	273	Width = 23
	274	Height = 13
	275	Caption = 'lblS3'
	276	end
	277	object lblLine: TLabel
	278	Left = 4
	279	Top = 152
	280	Width = 23
	281	Height = 13
	282	Caption = 'Line:'
	283	end
	284	object lblCol: TLabel
	285	Left = 4
	286	Top = 168
	287	Width = 18
	288	Height = 13
	289	Caption = 'Col:'
	290	end
	291	object edtName: TCaptionEdit
	292	Left = 50
	293	Top = 4
	294	Width = 300
	295	Height = 22
	296	Anchors = [akLeft, akTop, akRight]
	297	CharCase = ecUpperCase
	298	Font.Charset = ANSI_CHARSET
	299	Font.Color = clWindowText
	300	Font.Height = -11
	301	Font.Name = 'Courier New'
	302	Font.Style = []
	303	MaxLength = 60
	304	ParentFont = False
	305	PopupMenu = popText
	306	TabOrder = 0
	307	OnChange = edtNameChange
	308	OnEnter = edtpopControlEnter
	309	OnExit = edtNameExit
	310	Caption = 'Name'
	311	end
	312	object edtLMText: TCaptionEdit
	313	Left = 50
	314	Top = 189
	315	Width = 300
	316	Height = 22
	317	Hint = 'Text to replace template field when used in List Manager'
	318	Anchors = [akLeft, akRight, akBottom]
	319	Font.Charset = ANSI_CHARSET
	320	Font.Color = clWindowText
	321	Font.Height = -11
	322	Font.Name = 'Courier New'
	323	Font.Style = []
	324	MaxLength = 70
	325	ParentFont = False
	326	ParentShowHint = False
	327	PopupMenu = popText
	328	ShowHint = True
	329	TabOrder = 7
	330	OnChange = edtLMTextChange
	331	OnEnter = edtpopControlEnter
	332	Caption = 'LM Text'
	333	end
	334	object cbxType: TORComboBox
	335	Left = 50
	336	Top = 27
	337	Width = 102
	338	Height = 21
	339	Anchors = [akLeft, akTop, akRight]
	340	Style = orcsDropDown
	341	AutoSelect = True
	342	Caption = 'Type'
	343	Color = clWindow
	344	DropDownCount = 11
	345	Items.Strings = (
	346	''
	347	'E^Edit Box'
	348	'C^Combo Box'
	349	'B^Button'
	350	'X^Check Boxes'
	351	'R^Radio Buttons'
	352	'D^Date'
	353	'N^Number'
	354	'H^Hyperlink'
	355	'W^Word Processing'
	356	'T^Text')
	357	ItemHeight = 13
	358	ItemTipColor = clWindow
	359	ItemTipEnable = True
	360	ListItemsOnly = True
	361	LongList = False
	362	LookupPiece = 0
	363	MaxLength = 0
	364	Pieces = '2'
	365	Sorted = False
	366	SynonymChars = '<>'
	367	TabOrder = 1
	368	OnChange = cbxTypeChange
[829]	369	CharsNeedMatch = 1
[456]	370	end
	371	object edtTextLen: TCaptionEdit
	372	Left = 309
	373	Top = 27
	374	Width = 26
	375	Height = 21
	376	Anchors = [akTop, akRight]
	377	TabOrder = 4
	378	Text = '0'
	379	OnChange = edtTextLenChange
	380	Caption = 'Text Length'
	381	end
	382	object udTextLen: TUpDown
	383	Left = 335
	384	Top = 27
	385	Width = 15
	386	Height = 21
	387	Anchors = [akTop, akRight]
	388	Associate = edtTextLen
	389	Max = 240
	390	TabOrder = 5
	391	end
	392	object pnlSwap: TPanel
	393	Left = 50
	394	Top = 49
	395	Width = 300
	396	Height = 140
	397	Anchors = [akLeft, akTop, akRight, akBottom]
	398	BevelOuter = bvNone
	399	TabOrder = 6
	400	object edtDefault: TCaptionEdit
	401	Left = 0
	402	Top = 0
	403	Width = 300
	404	Height = 22
[829]	405	Align = alTop
[456]	406	Font.Charset = ANSI_CHARSET
	407	Font.Color = clWindowText
	408	Font.Height = -11
	409	Font.Name = 'Courier New'
	410	Font.Style = []
	411	MaxLength = 70
	412	ParentFont = False
	413	PopupMenu = popText
	414	TabOrder = 2
	415	OnChange = edtDefaultChange
	416	OnEnter = edtpopControlEnter
	417	OnExit = ControlExit
	418	Caption = 'Default Value'
	419	end
	420	object pnlNum: TPanel
	421	Left = 0
	422	Top = 22
	423	Width = 300
	424	Height = 22
	425	Align = alTop
	426	BevelOuter = bvNone
	427	TabOrder = 0
	428	object lblMin: TLabel
	429	Left = 53
	430	Top = 4
	431	Width = 20
	432	Height = 13
	433	Caption = 'Min:'
	434	end
	435	object lblInc: TLabel
	436	Left = 207
	437	Top = 4
	438	Width = 50
	439	Height = 13
	440	Caption = 'Increment:'
	441	end
	442	object lblMaxVal: TLabel
	443	Left = 129
	444	Top = 4
	445	Width = 23
	446	Height = 13
	447	Caption = 'Max:'
	448	end
	449	object udDefNum: TUpDown
	450	Left = 34
	451	Top = 0
	452	Width = 15
	453	Height = 21
	454	Associate = edtDefNum
	455	Min = -9999
	456	Max = 9999
	457	TabOrder = 1
	458	Thousands = False
	459	end
	460	object edtDefNum: TCaptionEdit
	461	Left = 0
	462	Top = 0
	463	Width = 34
	464	Height = 21
	465	TabOrder = 0
	466	Text = '0'
	467	OnChange = edtDefNumChange
	468	Caption = 'Default Number'
	469	end
	470	object udMinVal: TUpDown
	471	Left = 110
	472	Top = 0
	473	Width = 15
	474	Height = 21
	475	Associate = edtMinVal
	476	Min = -9999
	477	Max = 9999
	478	TabOrder = 3
	479	Thousands = False
	480	end
	481	object edtMinVal: TCaptionEdit
	482	Left = 76
	483	Top = 0
	484	Width = 34
	485	Height = 21
	486	TabOrder = 2
	487	Text = '0'
	488	OnChange = edtMinValChange
	489	Caption = 'Minimum'
	490	end
	491	object udInc: TUpDown
	492	Left = 285
	493	Top = 0
	494	Width = 15
	495	Height = 21
	496	Associate = edtInc
	497	Min = 1
	498	Max = 999
	499	Position = 1
	500	TabOrder = 7
	501	end
	502	object edtInc: TCaptionEdit
	503	Left = 259
	504	Top = 0
	505	Width = 26
	506	Height = 21
	507	TabOrder = 6
	508	Text = '1'
	509	OnChange = edtIncChange
	510	Caption = 'Increment'
	511	end
	512	object edtMaxVal: TCaptionEdit
	513	Left = 155
	514	Top = 0
	515	Width = 34
	516	Height = 21
	517	TabOrder = 4
	518	Text = '0'
	519	OnChange = edtMaxValChange
	520	Caption = 'Maimum'
	521	end
	522	object udMaxVal: TUpDown
	523	Left = 189
	524	Top = 0
	525	Width = 15
	526	Height = 21
	527	Associate = edtMaxVal
	528	Min = -9999
	529	Max = 9999
	530	TabOrder = 5
	531	Thousands = False
	532	end
	533	end
	534	object edtURL: TCaptionEdit
	535	Left = 0
	536	Top = 66
	537	Width = 300
	538	Height = 22
[829]	539	Align = alTop
[456]	540	Font.Charset = ANSI_CHARSET
	541	Font.Color = clWindowText
	542	Font.Height = -11
	543	Font.Name = 'Courier New'
	544	Font.Style = []
	545	MaxLength = 240
	546	ParentFont = False
	547	PopupMenu = popText
	548	TabOrder = 3
	549	OnChange = edtURLChange
	550	OnEnter = edtpopControlEnter
	551	Caption = 'URL'
	552	end
	553	object reItems: TRichEdit
	554	Left = 0
	555	Top = 110
	556	Width = 300
	557	Height = 30
	558	Align = alClient
	559	Font.Charset = ANSI_CHARSET
	560	Font.Color = clWindowText
	561	Font.Height = -11
	562	Font.Name = 'Courier New'
	563	Font.Style = []
	564	ParentFont = False
	565	PopupMenu = popText
	566	ScrollBars = ssBoth
	567	TabOrder = 5
	568	WantTabs = True
	569	OnChange = reItemsChange
	570	OnEnter = edtpopControlEnter
	571	OnExit = ControlExit
	572	OnKeyUp = reNotesKeyUp
	573	OnResizeRequest = reItemsResizeRequest
	574	OnSelectionChange = reItemsSelectionChange
	575	end
	576	object cbxDefault: TORComboBox
	577	Left = 0
	578	Top = 44
	579	Width = 300
	580	Height = 22
	581	Style = orcsDropDown
	582	Align = alTop
	583	AutoSelect = True
	584	Caption = 'Default Selection'
	585	Color = clWindow
	586	DropDownCount = 8
	587	Font.Charset = ANSI_CHARSET
	588	Font.Color = clWindowText
	589	Font.Height = -11
	590	Font.Name = 'Courier New'
	591	Font.Style = []
	592	ItemHeight = 14
	593	ItemTipColor = clWindow
	594	ItemTipEnable = True
	595	ListItemsOnly = True
	596	LongList = False
	597	LookupPiece = 0
	598	MaxLength = 0
	599	ParentFont = False
	600	Sorted = False
	601	SynonymChars = '<>'
	602	TabOrder = 1
	603	TabStop = True
	604	OnChange = cbxDefaultChange
[829]	605	CharsNeedMatch = 1
[456]	606	end
	607	object pnlDate: TPanel
	608	Left = 0
	609	Top = 88
	610	Width = 300
	611	Height = 22
	612	Align = alTop
	613	BevelOuter = bvNone
	614	TabOrder = 4
	615	DesignSize = (
	616	300
	617	22)
	618	object lblDateType: TLabel
	619	Left = 111
	620	Top = 4
	621	Width = 53
	622	Height = 13
	623	Anchors = [akTop, akRight]
	624	Caption = 'Date Type:'
	625	end
	626	object edtDateDef: TCaptionEdit
	627	Left = 0
	628	Top = 0
	629	Width = 106
	630	Height = 21
	631	Anchors = [akLeft, akTop, akRight]
	632	MaxLength = 70
	633	PopupMenu = popText
	634	TabOrder = 0
	635	OnChange = edtDefaultChange
	636	OnEnter = edtpopControlEnter
	637	Caption = 'Default Date'
	638	end
	639	object cbxDateType: TORComboBox
	640	Left = 167
	641	Top = 0
	642	Width = 133
	643	Height = 21
	644	Anchors = [akTop, akRight]
	645	Style = orcsDropDown
	646	AutoSelect = True
	647	Caption = 'Date Type'
	648	Color = clWindow
	649	DropDownCount = 8
	650	Items.Strings = (
	651	'D^Date'
	652	'T^Date & Time'
	653	'R^Date & Required Time'
	654	'C^Combo Style'
	655	'Y^Combo Year Only'
	656	'M^Combo Year & Month')
	657	ItemHeight = 13
	658	ItemTipColor = clWindow
	659	ItemTipEnable = True
	660	ListItemsOnly = True
	661	LongList = False
	662	LookupPiece = 0
	663	MaxLength = 0
	664	Pieces = '2'
	665	Sorted = False
	666	SynonymChars = '<>'
	667	TabOrder = 1
	668	OnChange = cbxDateTypeChange
[829]	669	CharsNeedMatch = 1
[456]	670	end
	671	end
	672	end
	673	object edtLen: TCaptionEdit
	674	Left = 214
	675	Top = 27
	676	Width = 19
	677	Height = 21
	678	Anchors = [akTop, akRight]
	679	TabOrder = 2
	680	Text = '1'
	681	OnChange = edtLenChange
	682	Caption = 'Field Length'
	683	end
	684	object udLen: TUpDown
	685	Left = 233
	686	Top = 27
	687	Width = 15
	688	Height = 21
	689	Anchors = [akTop, akRight]
	690	Associate = edtLen
	691	Min = 1
	692	Max = 70
	693	Position = 1
	694	TabOrder = 3
	695	end
	696	object gbIndent: TGroupBox
	697	Left = 232
	698	Top = 213
	699	Width = 118
	700	Height = 59
	701	Anchors = [akLeft, akBottom]
	702	Caption = ' Indent '
	703	TabOrder = 9
	704	object lblIndent: TLabel
	705	Left = 10
	706	Top = 14
	707	Width = 58
	708	Height = 13
	709	Caption = 'Indent Field:'
	710	end
	711	object lblPad: TLabel
	712	Left = 10
	713	Top = 37
	714	Width = 57
	715	Height = 13
	716	Caption = 'Indent Text:'
	717	end
	718	object edtIndent: TCaptionEdit
	719	Left = 72
	720	Top = 10
	721	Width = 21
	722	Height = 21
	723	TabOrder = 0
	724	Text = '0'
	725	OnChange = edtIndentChange
	726	Caption = 'Indent Field'
	727	end
	728	object udIndent: TUpDown
	729	Left = 93
	730	Top = 10
	731	Width = 15
	732	Height = 21
	733	Associate = edtIndent
	734	Max = 30
	735	TabOrder = 1
	736	Thousands = False
	737	end
	738	object udPad: TUpDown
	739	Left = 93
	740	Top = 33
	741	Width = 15
	742	Height = 21
	743	Associate = edtPad
	744	Max = 30
	745	TabOrder = 2
	746	Thousands = False
	747	end
	748	object edtPad: TCaptionEdit
	749	Left = 72
	750	Top = 33
	751	Width = 21
	752	Height = 21
	753	TabOrder = 3
	754	Text = '0'
	755	OnChange = edtPadChange
	756	Caption = 'Indent Text'
	757	end
	758	end
	759	object gbMisc: TGroupBox
	760	Left = 10
	761	Top = 213
	762	Width = 207
	763	Height = 59
	764	Anchors = [akLeft, akBottom]
	765	Caption = ' Miscellaneous '
	766	TabOrder = 8
	767	object cbActive: TCheckBox
	768	Left = 6
	769	Top = 14
	770	Width = 67
	771	Height = 17
	772	BiDiMode = bdLeftToRight
	773	Caption = 'Inactive'
	774	ParentBiDiMode = False
	775	TabOrder = 0
	776	OnClick = cbActiveClick
	777	end
	778	object cbRequired: TCheckBox
	779	Left = 6
	780	Top = 37
	781	Width = 67
	782	Height = 17
	783	Caption = 'Required'
	784	TabOrder = 1
	785	OnClick = cbRequiredClick
	786	end
	787	object cbSepLines: TCheckBox
	788	Left = 83
	789	Top = 14
	790	Width = 99
	791	Height = 17
	792	Caption = 'Separate Lines'
	793	TabOrder = 2
	794	OnClick = cbSepLinesClick
	795	end
	796	object cbExclude: TCheckBox
	797	Left = 83
	798	Top = 37
	799	Width = 118
	800	Height = 17
	801	Caption = 'Exclude From Note'
	802	TabOrder = 3
	803	OnClick = cbExcludeClick
	804	end
	805	end
	806	end
	807	end
[829]	808	object pnlTop: TPanel [4]
[456]	809	Left = 0
	810	Top = 0
[829]	811	Width = 788
[456]	812	Height = 25
	813	Align = alTop
	814	BevelOuter = bvNone
	815	TabOrder = 3
	816	DesignSize = (
[829]	817	788
[456]	818	25)
	819	object MenuBar1: TMenuBar
	820	Left = 0
	821	Top = 0
[829]	822	Width = 41
[456]	823	Height = 25
	824	Align = alLeft
	825	AutoSize = True
	826	ButtonHeight = 21
	827	ButtonWidth = 43
	828	Caption = 'MenuBar1'
	829	Menu = mnuMain
	830	ShowCaptions = True
	831	TabOrder = 0
	832	end
	833	object btnNew: TButton
[1679]	834	Left = 710
[456]	835	Top = 2
	836	Width = 75
	837	Height = 21
	838	Anchors = [akTop, akRight, akBottom]
	839	Caption = 'New'
	840	TabOrder = 3
	841	OnClick = mnuNewClick
	842	end
	843	object btnCopy: TButton
[1679]	844	Left = 631
[456]	845	Top = 2
	846	Width = 75
	847	Height = 21
	848	Anchors = [akTop, akRight, akBottom]
	849	Caption = 'Copy'
	850	Enabled = False
	851	TabOrder = 2
	852	OnClick = mnuCopyClick
	853	end
	854	object btnDelete: TButton
[1679]	855	Left = 552
[456]	856	Top = 2
	857	Width = 75
	858	Height = 21
	859	Anchors = [akTop, akRight, akBottom]
	860	Caption = 'Delete'
	861	Enabled = False
	862	TabOrder = 1
	863	OnClick = mnuDeleteClick
	864	end
	865	end
[829]	866	inherited amgrMain: TVA508AccessibilityManager
	867	Data = (
	868	(
	869	'Component = pnlBottom'
	870	'Status = stsDefault')
	871	(
	872	'Component = lblReq'
	873	'Status = stsDefault')
	874	(
	875	'Component = btnOK'
	876	'Status = stsDefault')
	877	(
	878	'Component = btnCancel'
	879	'Status = stsDefault')
	880	(
	881	'Component = btnApply'
	882	'Status = stsDefault')
	883	(
	884	'Component = btnPreview'
	885	'Status = stsDefault')
	886	(
	887	'Component = cbHide'
	888	'Status = stsDefault')
	889	(
	890	'Component = pnlObjs'
	891	'Status = stsDefault')
	892	(
	893	'Component = cbxObjs'
	894	'Status = stsDefault')
	895	(
	896	'Component = pnlRight'
	897	'Status = stsDefault')
	898	(
	899	'Component = pnlPreview'
	900	'Status = stsDefault')
	901	(
	902	'Component = reNotes'
	903	'Status = stsDefault')
	904	(
	905	'Component = pnlObjInfo'
	906	'Status = stsDefault')
	907	(
	908	'Component = edtName'
	909	'Status = stsDefault')
	910	(
	911	'Component = edtLMText'
	912	'Status = stsDefault')
	913	(
	914	'Component = cbxType'
	915	'Status = stsDefault')
	916	(
	917	'Component = edtTextLen'
	918	'Status = stsDefault')
	919	(
	920	'Component = udTextLen'
	921	'Status = stsDefault')
	922	(
	923	'Component = pnlSwap'
	924	'Status = stsDefault')
	925	(
	926	'Component = edtDefault'
	927	'Status = stsDefault')
	928	(
	929	'Component = pnlNum'
	930	'Status = stsDefault')
	931	(
	932	'Component = udDefNum'
	933	'Status = stsDefault')
	934	(
	935	'Component = edtDefNum'
	936	'Status = stsDefault')
	937	(
	938	'Component = udMinVal'
	939	'Status = stsDefault')
	940	(
	941	'Component = edtMinVal'
	942	'Status = stsDefault')
	943	(
	944	'Component = udInc'
	945	'Status = stsDefault')
	946	(
	947	'Component = edtInc'
	948	'Status = stsDefault')
	949	(
	950	'Component = edtMaxVal'
	951	'Status = stsDefault')
	952	(
	953	'Component = udMaxVal'
	954	'Status = stsDefault')
	955	(
	956	'Component = edtURL'
	957	'Status = stsDefault')
	958	(
	959	'Component = reItems'
	960	'Status = stsDefault')
	961	(
	962	'Component = cbxDefault'
	963	'Status = stsDefault')
	964	(
	965	'Component = pnlDate'
	966	'Status = stsDefault')
	967	(
	968	'Component = edtDateDef'
	969	'Status = stsDefault')
	970	(
	971	'Component = cbxDateType'
	972	'Status = stsDefault')
	973	(
	974	'Component = edtLen'
	975	'Status = stsDefault')
	976	(
	977	'Component = udLen'
	978	'Status = stsDefault')
	979	(
	980	'Component = gbIndent'
	981	'Status = stsDefault')
	982	(
	983	'Component = edtIndent'
	984	'Status = stsDefault')
	985	(
	986	'Component = udIndent'
	987	'Status = stsDefault')
	988	(
	989	'Component = udPad'
	990	'Status = stsDefault')
	991	(
	992	'Component = edtPad'
	993	'Status = stsDefault')
	994	(
	995	'Component = gbMisc'
	996	'Status = stsDefault')
	997	(
	998	'Component = cbActive'
	999	'Status = stsDefault')
	1000	(
	1001	'Component = cbRequired'
	1002	'Status = stsDefault')
	1003	(
	1004	'Component = cbSepLines'
	1005	'Status = stsDefault')
	1006	(
	1007	'Component = cbExclude'
	1008	'Status = stsDefault')
	1009	(
	1010	'Component = pnlTop'
	1011	'Status = stsDefault')
	1012	(
	1013	'Component = MenuBar1'
	1014	'Status = stsDefault')
	1015	(
	1016	'Component = btnNew'
	1017	'Status = stsDefault')
	1018	(
	1019	'Component = btnCopy'
	1020	'Status = stsDefault')
	1021	(
	1022	'Component = btnDelete'
	1023	'Status = stsDefault')
	1024	(
	1025	'Component = frmTemplateFieldEditor'
	1026	'Status = stsDefault'))
	1027	end
[456]	1028	object mnuMain: TMainMenu
	1029	Left = 8
	1030	Top = 64
	1031	object mnuAction: TMenuItem
	1032	Caption = '&Action'
	1033	OnClick = mnuActionClick
	1034	object mnuNew: TMenuItem
	1035	Caption = '&New'
	1036	OnClick = mnuNewClick
	1037	end
	1038	object mnuCopy: TMenuItem
	1039	Caption = '&Copy'
	1040	OnClick = mnuCopyClick
	1041	end
	1042	object mnuDelete: TMenuItem
	1043	Caption = '&Delete'
	1044	OnClick = mnuDeleteClick
	1045	end
	1046	object mnuPreview: TMenuItem
	1047	Caption = '&Preview'
	1048	OnClick = btnPreviewClick
	1049	end
	1050	end
	1051	end
	1052	object popText: TPopupMenu
	1053	OnPopup = popTextPopup
	1054	Left = 339
	1055	Top = 204
	1056	object mnuBPUndo: TMenuItem
	1057	Caption = '&Undo'
	1058	ShortCut = 16474
	1059	OnClick = mnuBPUndoClick
	1060	end
	1061	object N8: TMenuItem
	1062	Caption = '-'
	1063	end
	1064	object mnuBPCut: TMenuItem
	1065	Caption = 'Cu&t'
	1066	ShortCut = 16472
	1067	OnClick = mnuBPCutClick
	1068	end
	1069	object mnuBPCopy: TMenuItem
	1070	Caption = '&Copy'
	1071	ShortCut = 16451
	1072	OnClick = mnuBPCopyClick
	1073	end
	1074	object mnuBPPaste: TMenuItem
	1075	Caption = '&Paste'
	1076	ShortCut = 16470
	1077	OnClick = mnuBPPasteClick
	1078	end
	1079	object mnuBPSelectAll: TMenuItem
	1080	Caption = 'Select &All'
	1081	ShortCut = 16449
	1082	OnClick = mnuBPSelectAllClick
	1083	end
	1084	object N2: TMenuItem
	1085	Caption = '-'
	1086	end
	1087	object mnuBPCheckGrammar: TMenuItem
	1088	Caption = 'Check &Grammar'
	1089	ShortCut = 16455
	1090	OnClick = mnuBPCheckGrammarClick
	1091	end
	1092	object mnuBPSpellCheck: TMenuItem
	1093	Caption = 'Check &Spelling'
	1094	ShortCut = 16467
	1095	OnClick = mnuBPSpellCheckClick
	1096	end
	1097	object N14: TMenuItem
	1098	Caption = '-'
	1099	end
	1100	object mnuInsertTemplateField: TMenuItem
	1101	Caption = 'Insert Template &Field'
	1102	ShortCut = 16454
	1103	OnClick = mnuInsertTemplateFieldClick
	1104	end
	1105	end
	1106	end

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

Download in other formats:

Original Format