tpsystools_4.04/source/StReg.pas

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower SysTools
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1996-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

{*********************************************************}
{* SysTools: StReg.pas 4.04                              *}
{*********************************************************}
{* SysTools: Component Registration Unit                 *}
{*********************************************************}

{$I StDefine.inc}

{$R StReg.r32}

unit StReg;

interface

uses
  Classes,
{$IFDEF VERSION6}
  DesignIntf,
  DesignEditors;
{$ELSE}
  DsgnIntf;
{$ENDIF}

procedure Register;

implementation

uses
  StBase,
  StAbout0,

  { components }
  St2DBarC,
  StBarC,
  StBarPN,
  StNetCon,
  StNetMsg,
  StNetPfm,
  StNVBits,
  StNVColl,
  StNVDict,
  StNVDQ,
  StNVLAry,
  StNVList,
  StNVLMat,
  StNVSCol,
  StNVTree,
  StRegEx,
  StSpawn,
  StToHTML,
  StVInfo,
  StWMDCpy,

  {forces these units to be compiled when components are installed}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  StAstro,
  StAstroP,
  StBCD,
  StBits,
  StColl,
  StConst,
  StCrc,
  StDate,
  StDateSt,
  StDict,
  StDQue,
  StEclpse,
  StExpr,
  StFIN,
  StFirst,
  StHASH,
  StJup,
  StJupsat,
  StLArr,
  StList,
  StMars,
  StMath,
  StMerc,
  StMime,
  StNeptun,
  StNet,
  StNetApi,
  StNVCont,
  StOStr,
  StPluto,
  StPQueue,
  StRegIni,
  StSaturn,
  StSort,
  StStat,
  StStrL,
  StStrms,
  StStrS,
  StStrW,
  StStrZ,
  StText,
  StTree,
  StUranus,
  StUtils,
  StVArr,
  StVenus,
  { new units in ver 4: }
  StIniStm,
  StMerge,
  StSystem,
  StTxtDat,
  StDecMth,
  StMoney,
  StRandom,
  StNTLog,
  { !!! StExpEng unit designed to handle problem with initialization }
  { section in C++Builder; should NOT be included in Registration unit }
  { nor in Run-time package !!! }
  {StExpEng,}
  StExpLog,
  StGenLog,
  StPtrns,


  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  StPropEd;

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(string), TStComponent, 'Version',
                         TStVersionProperty);
  RegisterPropertyEditor(TypeInfo(string), TStBaseEdit, 'Version',
                         TStVersionProperty);
  RegisterPropertyEditor(TypeInfo(string), TStBarCode, 'Version',
                         TStVersionProperty);
  RegisterPropertyEditor(TypeInfo(string), TStPNBarCode, 'Version',
                         TStVersionProperty);
  RegisterPropertyEditor(TypeInfo(string), TStRegEx, 'InputFile',
                         TStGenericFileNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TStRegEx, 'OutputFile',
                         TStGenericFileNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TStFileToHTML, 'InFileName',
                         TStGenericFileNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TStFileToHTML, 'OutFileName',
                         TStGenericFileNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TStVersionInfo, 'FileName',
                         TStFileNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TStSpawnApplication, 'FileName',
                         TStGenericFileNameProperty);

  RegisterComponents('SysTools',
    [
     TStNetConnection,
     TStNetPerformance,
     TStNetMessage,
     TStVersionInfo,
     TStExpression,
     TStExpressionEdit,
     TStBarCode,
     TStPNBarCode,
     TStRegEx,
     TStWMDataCopy,
     TStFileToHTML,
     TStSpawnApplication,
// new in SysTools 4
     TStPDF417Barcode,
     TStMaxiCodeBarcode,
     TStGeneralLog,
{.$IFNDEF BCB} {!!! problem with initialization section in BCB }
     TStExceptionLog,
{.$ENDIF}
     TStNTEventLog
     ]);

  {non-visual container class components}
  RegisterComponents('SysTools (CC)',
    [TStNVBits,
     TStNVCollection,
     TStNVDictionary,
     TStNVDQue,
     TStNVLArray,
     TStNVList,
     TStNVLMatrix,
     TStNVSortedCollection,
     TStNVTree]);
end;

end.
1	(* *** BEGIN LICENSE BLOCK ***
2	* Version: MPL 1.1
3	*
4	* The contents of this file are subject to the Mozilla Public License Version
5	* 1.1 (the "License"); you may not use this file except in compliance with
6	* the License. You may obtain a copy of the License at
7	* http://www.mozilla.org/MPL/
8	*
9	* Software distributed under the License is distributed on an "AS IS" basis,
10	* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11	* for the specific language governing rights and limitations under the
12	* License.
13	*
14	* The Original Code is TurboPower SysTools
15	*
16	* The Initial Developer of the Original Code is
17	* TurboPower Software
18	*
19	* Portions created by the Initial Developer are Copyright (C) 1996-2002
20	* the Initial Developer. All Rights Reserved.
21	*
22	* Contributor(s):
23	*
24	* *** END LICENSE BLOCK *** *)
25
26	{*********************************************************}
27	{* SysTools: StReg.pas 4.04 *}
28	{*********************************************************}
29	{* SysTools: Component Registration Unit *}
30	{*********************************************************}
31
32	{$I StDefine.inc}
33
34	{$R StReg.r32}
35
36	unit StReg;
37
38	interface
39
40	uses
41	Classes,
42	{$IFDEF VERSION6}
43	DesignIntf,
44	DesignEditors;
45	{$ELSE}
46	DsgnIntf;
47	{$ENDIF}
48
49	procedure Register;
50
51	implementation
52
53	uses
54	StBase,
55	StAbout0,
56
57	{ components }
58	St2DBarC,
59	StBarC,
60	StBarPN,
61	StNetCon,
62	StNetMsg,
63	StNetPfm,
64	StNVBits,
65	StNVColl,
66	StNVDict,
67	StNVDQ,
68	StNVLAry,
69	StNVList,
70	StNVLMat,
71	StNVSCol,
72	StNVTree,
73	StRegEx,
74	StSpawn,
75	StToHTML,
76	StVInfo,
77	StWMDCpy,
78
79	{forces these units to be compiled when components are installed}
80	{vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
81	StAstro,
82	StAstroP,
83	StBCD,
84	StBits,
85	StColl,
86	StConst,
87	StCrc,
88	StDate,
89	StDateSt,
90	StDict,
91	StDQue,
92	StEclpse,
93	StExpr,
94	StFIN,
95	StFirst,
96	StHASH,
97	StJup,
98	StJupsat,
99	StLArr,
100	StList,
101	StMars,
102	StMath,
103	StMerc,
104	StMime,
105	StNeptun,
106	StNet,
107	StNetApi,
108	StNVCont,
109	StOStr,
110	StPluto,
111	StPQueue,
112	StRegIni,
113	StSaturn,
114	StSort,
115	StStat,
116	StStrL,
117	StStrms,
118	StStrS,
119	StStrW,
120	StStrZ,
121	StText,
122	StTree,
123	StUranus,
124	StUtils,
125	StVArr,
126	StVenus,
127	{ new units in ver 4: }
128	StIniStm,
129	StMerge,
130	StSystem,
131	StTxtDat,
132	StDecMth,
133	StMoney,
134	StRandom,
135	StNTLog,
136	{ !!! StExpEng unit designed to handle problem with initialization }
137	{ section in C++Builder; should NOT be included in Registration unit }
138	{ nor in Run-time package !!! }
139	{StExpEng,}
140	StExpLog,
141	StGenLog,
142	StPtrns,
143
144
145	{^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
146	StPropEd;
147
148	procedure Register;
149	begin
150	RegisterPropertyEditor(TypeInfo(string), TStComponent, 'Version',
151	TStVersionProperty);
152	RegisterPropertyEditor(TypeInfo(string), TStBaseEdit, 'Version',
153	TStVersionProperty);
154	RegisterPropertyEditor(TypeInfo(string), TStBarCode, 'Version',
155	TStVersionProperty);
156	RegisterPropertyEditor(TypeInfo(string), TStPNBarCode, 'Version',
157	TStVersionProperty);
158	RegisterPropertyEditor(TypeInfo(string), TStRegEx, 'InputFile',
159	TStGenericFileNameProperty);
160	RegisterPropertyEditor(TypeInfo(string), TStRegEx, 'OutputFile',
161	TStGenericFileNameProperty);
162	RegisterPropertyEditor(TypeInfo(string), TStFileToHTML, 'InFileName',
163	TStGenericFileNameProperty);
164	RegisterPropertyEditor(TypeInfo(string), TStFileToHTML, 'OutFileName',
165	TStGenericFileNameProperty);
166	RegisterPropertyEditor(TypeInfo(string), TStVersionInfo, 'FileName',
167	TStFileNameProperty);
168	RegisterPropertyEditor(TypeInfo(string), TStSpawnApplication, 'FileName',
169	TStGenericFileNameProperty);
170
171	RegisterComponents('SysTools',
172	[
173	TStNetConnection,
174	TStNetPerformance,
175	TStNetMessage,
176	TStVersionInfo,
177	TStExpression,
178	TStExpressionEdit,
179	TStBarCode,
180	TStPNBarCode,
181	TStRegEx,
182	TStWMDataCopy,
183	TStFileToHTML,
184	TStSpawnApplication,
185	// new in SysTools 4
186	TStPDF417Barcode,
187	TStMaxiCodeBarcode,
188	TStGeneralLog,
189	{.$IFNDEF BCB} {!!! problem with initialization section in BCB }
190	TStExceptionLog,
191	{.$ENDIF}
192	TStNTEventLog
193	]);
194
195	{non-visual container class components}
196	RegisterComponents('SysTools (CC)',
197	[TStNVBits,
198	TStNVCollection,
199	TStNVDictionary,
200	TStNVDQue,
201	TStNVLArray,
202	TStNVList,
203	TStNVLMatrix,
204	TStNVSortedCollection,
205	TStNVTree]);
206	end;
207
208	end.