{******************************************************************************} { CnPack For Delphi/C++Builder } { 中国人自己的开放源码第三方开发包 } { (C)Copyright 2001-2018 CnPack 开发组 } { ------------------------------------ } { } { 本开发包是开源的自由软件,您可以遵照 CnPack 的发布协议来修 } { 改和重新发布这一程序。 } { } { 发布这一开发包的目的是希望它有用,但没有任何担保。甚至没有 } { 适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。 } { } { 您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果 } { 还没有,可访问我们的网站: } { } { 网站地址:http://www.cnpack.org } { 电子邮件:master@cnpack.org } { } {******************************************************************************} unit CnCompRegister; {* |
================================================================================ * 软件名称:不可视工具组件包 * 单元名称:不可视工具组件包注册单元 * 单元作者:CnPack开发组 * 备 注: * 开发平台:PWin98SE + Delphi 5.0 * 兼容测试:PWin9X/2000/XP + Delphi 5/6 * 本 地 化:该单元中的字符串均符合本地化处理方式 * 单元标识:$Id$ * 修改记录:2002.04.18 V1.0 * 创建单元 ================================================================================ |} interface {$I CnPack.inc} uses Windows, Messages, SysUtils, Classes, Graphics, {$IFDEF SUPPORT_ADO} {$IFDEF SUPPORT_CROSS_PLATFORM} Data.Win.AdoConEd {$ELSE} AdoConEd {$ENDIF}, {$ENDIF} {$IFDEF COMPILER6_UP} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF} CnTimer, CnFormScaler, CnControlHook, CnActionListHook, CnMenuHook, CnThreadPool, CnActiveScript, CnASPropEditors, CnTrayIcon, CnObjectPool, CnConsole, CnVolumeCtrl, CnMDIBackGround, CnWinampCtrl, CnRestoreSystemMenu, CnDockFormControl, CnDelphiDockStyle, CnVCDockStyle, CnVIDDockStyle, CnVSNETDockStyle, CnDockPropertyReg, CnFileSystemWatcher, CnDragResizer, CnKeyBlocker, CnFilePacker, CnGlobalKeyHook, CnOuterControls, CnTaskBar, CnRawInput, CnSystemDebugControl, CnConsts; procedure Register; {* 控件、组件编辑器、属性编辑器注册过程} implementation procedure Register; begin RegisterComponents(SCnNonVisualPalette, [TCnTimer, TCnTimerList, TCnTrayIcon]); RegisterComponents(SCnNonVisualPalette, [TCnControlHook, TCnActionListHook, TCnMenuHook]); RegisterComponents(SCnNonVisualPalette, [TCnFormScaler, TCnVolumeCtrl, TCnMDIBackGround]); RegisterComponents(SCnNonVisualPalette, [TCnActiveScriptSite, TCnActiveScriptWindow]); RegisterComponents(SCnNonVisualPalette, [TCnObjectPool, TCnThreadPool, TCnWinampCtrl]); RegisterComponents(SCnNonVisualPalette, [TCnRestoreSystemMenu, TCnConsole]); RegisterComponents(SCnNonVisualPalette, [TCnFileSystemWatcher]); RegisterComponents(SCnNonVisualPalette, [TCnDragResizer]); RegisterComponents(SCnNonVisualPalette, [TCnKeyBlocker]); RegisterComponents(SCnNonVisualPalette, [TCnFilePacker]); RegisterComponents(SCnNonVisualPalette, [TCnGlobalKeyHook, TCnOuterControls]); RegisterComponents(SCnNonVisualPalette, [TCnTaskBar, TCnRawKeyboard, TCnSystemDebugControl]); RegisterPropertyEditor(TypeInfo(TScriptLanguage), TCnActiveScriptSite, 'ScriptLanguage', TCnScriptLangProperty); // 注册 Dock 系列组件 RegisterComponents(SCnNonVisualPalette, [TCnDockServer, TCnDockClient, TCnDelphiDockStyle, TCnVCDockStyle, TCnVIDDockStyle, TCnVSNETDockStyle]); RegisterNoIcon([TCnVIDDockTabSheet]); RegisterClass(TCnVIDDockTabSheet); RegisterComponentEditor(TCnDockBaseControl, TCnDockControlEditor); RegisterComponentEditor(TCnBasicDockStyle, TCnDockStyleEditor); RegisterComponentEditor(TCnVIDTabPageControl, TCnVIDTabPageControlEditor); RegisterComponentEditor(TCnVIDDockTabSheet, TCnVIDTabPageControlEditor); end; end.