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	torben	2671	(* *** 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.