Componentes.Terceros.jvcl/official/3.32/archive/JVCLReg.pas

449 lines
16 KiB
ObjectPascal

{-----------------------------------------------------------------------------
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/MPL-1.1.html
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.
The Original Code is: JVCLReg.PAS, released on 2001-02-28.
The Initial Developer of the Original Code is Sébastien Buysse [sbuysse att buypin dott com]
Portions created by Sébastien Buysse are Copyright (C) 2001 Sébastien Buysse.
All Rights Reserved.
Contributor(s): Michael Beck [mbeck att bigfoot dott com].
Last Modified: 2000-02-28
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
located at http://jvcl.sourceforge.net
Known Issues:
-----------------------------------------------------------------------------}
{$I JVCL.INC}
unit JVCLReg;
interface
procedure Register;
implementation
{$R ..\resources\JVCLReg.dcr}
uses
SysUtils, Classes, Graphics, Controls, ExtCtrls,
ToolsApi, ActnList, Dialogs, ExptIntf,
{$IFNDEF COMPILER6_UP}
DsgnIntf,
{$ENDIF}
{$IFDEF COMPILER6_UP}
DesignEditors, DesignIntf,
{$ENDIF}
FiltEdit,
JvDSADialogs, JvComponent,
// About JVCL
JvJVCLAbout, JvJVCLAboutProperty, JVCLVer,
// Additional
JvImage, JvBitBtn, JvMaskEdit, JvStaticText, JvCheckListBox,
JvBevel, JvScrollBox, JvStringGrid, JvShape, JvControlBar,
JvSplitter,
// Standard
JvEdit, JvCombobox, JvCheckBox, JvRadioButton, JvButton,
JvLabel, JvScrollBar, JvRadioGroup, JvPanel, JvMemo, JvValidateEdit,
// Edits
{ JvCustomBox, JvFileNameBox, JvDirectoryBox, JvImageBox, JvButtonBox,
JvCalculatorBox, }
// JvTypedEdit, JvFloatEdit,
// Controls
JvPlaylist, JvFavoritesButton, JvClock, JvStartMenuBtn,
JvScrollText, JvRecentMenuBtn,
{$IFNDEF DelphiPersonalEdition}
JvControlPanel,
{$ENDIF}
JvGradientCaption,
JvZoom, JvWaitingGradient, JvSpecialProgress, JvWaitingProgress,
JvGammaPanel, JvSlider, JvSpin,
// Mp3
JvBreatheSkin, JvVisualId3v2, JvWinampApi, JvVisualId3v1,
// Multimedia
JvSoundControl, JvDeviceChanged, JvImageTransform, JvImageRotate,
JvWavePlayer, JvStarfield, JvJoystick, JvSpecialImage,
JvThumbImage, JvThumbnails, JvThumbViews, JvMovableBevel,
JvID3v2, JvID3v2Base, JvID3v2Editor, JvID3v1,
// Labels
JvWinampLabel, JvLinkLabel,
{JvHotLink, JvAngleLabel, JvBlinkingLabel, JvScrollingLabel, JvReversedLabel,
JvRealLabel, JvSpecialLabel, JvBouncingLabel, JvAppearingLabel, }
// Forms
JvFormWallpaper, JvAnimTitle, JvPerforated,
JvTransparentForm, JvTrayIcon, JvFormAnimatedIcon,
JvAppAnimatedIcon, JvFormAnimation,
JvAutoSizeCompo, JvMagnet, JvGradient,
// Convert
JvStringListToHtml, JvRgbToHtml, JvStrToHtml, JvRichEditToHtml, JvFormToHtml,
// Internet
JvHttpGrabber, JvFtpGrabber, JvHtmlParser, JvMultiHttpGrabber,
JvSimpleXml,
// Utils
JvDirectories, JvMemoryInfos, JvSerialMaker, JvThread, JvRegistry,
JvAlarms, JvKeyboardStates, JvDragDrop,
// Utils 2
JvMru, JvRas32, JvSystemPopup, JvMousePositionner,
JvWinHelp, JvEasterEgg, JvPrint, JvThreadTimer,
JvTimeLimit, JvScreenSaver, JvSystemColors,
JvPatchFile, JvComputerInfo, JvCommStatus, JvLogFile,
JvCabFile, JvDataEmbedded,
// Utils 3
JvCaesarCipher, JvVigenereCipher, JvXorCipher, JvGenetic,
JvTranslator,
// Dialogs
JvCommonDialogD, JvBaseDlg,
JvSelectDirectory,
JvNagScreen, JvTipOfDay, JvImageDlg, JvDiskPrompt,
JvCopyError, JvDeleteError, JvRenameError, JvPageSetupTitled, JvPageSetup,
// WinDialogs
JvBrowseFolder, JvObjPickerComp, JvConnectNetwork,
JvAddPrinter, JvWinDialogs, JvxLogin, JvProgressDialog,
// Win32
JvStatusBar, JvProgressBar,
JvTabControl, {JvRichEdit,}
JvUpDown, JvHotKey, JvAnimate, JvDateTimePicker,
JvMonthCalendar, JvListView, JvHeaderControl, JvToolBar,
JvCoolBar, JvPageScroller,
// Image types
JvPcx, JvAni,
// Shapes
JvArrow,
// Peter Below Goodies
JvCoupler, JvHighlighter, JvGroupBox, JvPopupMemo, JvTransparentPanel, JvSpacer, JvSyncSplitter,
// Petr Vones Components
JvPerfStatEditor, JvMailEditor,
JvComCtrls, JvCtrls, JvDdeCmd, JvDialogs, JvMail, JvPerfMon95, JvSysComp,
// JvBands
JvBandForms, JvBandObjectDLLWizard,
{$IFNDEF DelphiPersonalEdition}
// DB-Aware components
JvDBDateTimePicker,
JvDBProgressBar,
JvDBSpinEdit,
{$ENDIF}
// Editors
JvDataEmbeddedEditor, JvFormWallpaperEditor, JvPatcherEditor,
JvHtmlParserEditor, JvAlarmsEditor,
JvBaseDlgEditor, JvCommonDialogDEditor, JvAppletProperty,
JvTypes, JvArrowBtn, JvBmpAnim, JvCaptionButton,
JvColorCombo, JvDriveCtrls, JvFindReplace, JvInstallLabel, JvRollOut, JvScrollPanel,
JvTimeLine, JvTimeLineEdit, JvShFileOp, JvAppHotKey, JvBalloonHint,
JvCaptionPanel, JvColorBtn, JvColorBox, JvColorForm, JvOutEdit,
JvImagewindow, JvListComb, JvLookout, JvProfiler32, JvRegTV,
JvSearchFiles, JvTransBtn, ImgList, JvTipOfDayProp,
JvChangeNotify, JvEnterTab, JvFindFiles,
JvFileInfo, JvItemsPanel, JvCntScr, JvCmdEdit,
JvTMTL, JvCalendar, JvUCB, JvChNtfyProperty, JvOLBar, JvOLBEditor,
JvInspector, JvHidControllerClass, JvAnalogClock, JvRadioCtl,
JvDsgnEditors,
// Fernando Silva
JvFooter, JvGroupHeader, JvNTEventLog,
JvGroupHeaderEditor, JvFooterEditor,
// JvPlugin
JvPlugin,
JvPluginMan,
JvPluginWizard,
// Actions
JvActions,
// (rom) added
JvShellHook,
// palette names
JvxDConst;
procedure RegPropEds;
begin
RegisterPropertyEditor(TypeInfo(string), TJvCreateProcess, '', TJvExeNameProperty);
RegisterPropertyEditor(TypeInfo(string), TJvCreateProcess, 'CurrentDirectory', TJvDirectoryProperty);
RegisterPropertyEditor(TypeInfo(string), TJvSearchFiles, 'RootDirectory', TJvDirectoryProperty);
RegisterPropertyEditor(TypeInfo(TJvImgBtnKind), TJvImgBtn, 'Kind', TJvNosortEnumProperty);
RegisterPropertyEditor(TypeInfo(string), TJvPerfStatItem, 'PerfStatKey', TJvPerfStatProperty);
RegisterPropertyEditor(TypeInfo(TStream), TJvDataEmbedded, 'Data', TJvDataEmbeddedEditor);
RegisterPropertyEditor(TypeInfo(TPicture), TJvFormWallpaper, 'Image', TJvFormWallpaperEditor);
RegisterPropertyEditor(TypeInfo(TstringList), TJvPatchFile, 'Differences', TJvPatcherEditor);
RegisterPropertyEditor(TypeInfo(TstringList), TJvAlarms, 'Alarms', TJvAlarmsEditor);
RegisterPropertyEditor(TypeInfo(TJvParserInfoList), TJvHtmlParser, 'Parser', TJvHtmlParserEditor);
RegisterPropertyEditor(TypeInfo(TJVCLAboutInfo), nil, 'AboutJVCL', TJVCLAboutDialogProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvLookoutButton, 'ImageIndex', TJvLookOutImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvExpressButton, 'ImageIndex', TJvLookOutImageIndexProperty);
RegisterPropertyEditor(TypeInfo(string), TJvChangeItem, 'Directory', TJvDirectoryProperty);
{$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
RegisterPropertyEditor(TypeInfo(TDate), nil, '', TJvDateExProperty);
RegisterPropertyEditor(TypeInfo(TTime), nil, '', TJvTimeExProperty);
RegisterPropertyEditor(TypeInfo(TDateTime), nil, '', TJvDateTimeExProperty);
{$ENDIF}
RegisterPropertyEditor(TypeInfo(TDateTime),TJvAlarmInfo,'Date',TJvDateTimeExProperty);
RegisterPropertyEditor(TypeInfo(TDateTime),TJvAnalogClock,'Time',TJvTimeExProperty);
{Thumbview.filter editor}
RegisterPropertyEditor(TypeInfo(string), TJvThumbView, 'Filter', TFilterProperty);
RegisterPropertyEditor(TypeInfo(string), TJvAppletDialog, 'AppletName', TJvAppletNameProperty);
RegisterPropertyEditor(TypeInfo(integer), TJvAppletDialog, 'AppletIndex', TJvAppletIndexProperty);
RegisterPropertyEditor(TypeInfo(TShortCut), TJvComponent, '', TJvShortCutProperty);
// JvPlugin
// RegisterPropertyEditor(TypeInfo(string), TJvPlugin, 'Version', TVersionEditor);
// RegisterPropertyEditor(TypeInfo(string), TJvPluginManager, 'Version', TVersionEditor);
end;
procedure RegCompEds;
begin
RegisterComponentEditor(TJvMail, TJvMailEditor);
// RegisterComponentEditor(TCommonDialog, TJvOpenDialogEditor);
{$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
RegisterComponentEditor(TCommonDialog, TJvBaseDlgEditor);
{$ENDIF}
RegisterComponentEditor(TJvCommonDialog, TJvBaseDlgEditor);
RegisterComponentEditor(TJvOpenDialog, TJvBaseDlgEditor);
RegisterComponentEditor(TJvSaveDialog, TJvBaseDlgEditor);
RegisterComponentEditor(TJvCommonDialogP, TJvBaseDlgEditor);
RegisterComponentEditor(TJvCommonDialogF, TJvBaseDlgEditor);
RegisterComponentEditor(TJvCommonDialogD, TJvCommonDialogDEditor);
RegisterComponentEditor(TJvTipOfDay, TJvTipOfDayEditor);
RegisterComponentEditor(TJvLookOut, TJvLookOutEditor);
RegisterComponentEditor(TJvLookOutPage, TJvLookOutPageEditor);
RegisterComponentEditor(TJvImageListBox, TJvStringsEditor);
RegisterComponentEditor(TJvImageComboBox, TJvStringsEditor);
RegisterComponentEditor(TJvExpress, TJvExpressEditor);
RegisterComponentEditor(TJvChangeNotify, TJvChangeNotifyEditor);
RegisterComponentEditor(TJvGroupHeader, TJvGroupHeaderEditor);
RegisterComponentEditor(TJvFooter, TJvFooterEditor);
RegisterComponentEditor(TJvID3Controller, TJvID3ControllerEditor);
end;
procedure RegComps;
begin
// Jv Standard
RegisterComponents(srJvStandardPalette,
[TJvLabel, TJvEdit, TJvMemo, TJvCheckBox, TJvRadioButton,
TJvListBox, TJvCombobox, TJvScrollBar, TJvGroupBox, TJvRadioGroup,
TJvPanel, TJvJVCLAboutComponent, TJvValidateEdit]);
// Jv Additional
RegisterComponents(srJvAdditionalPalette,
[TJvBitBtn, TJvImgBtn, TJvArrowButton, TJvTransparentButton, TJvTransparentButton2,
TJvPopupMemo, TJvStringGrid,
TJvCheckListBox, TJvImageListBox, TJvFontComboBox,
TJvColorComboBox, TJvImageComboBox,
TJvScrollBox, TJvImage, TJvImageWindow, TJvImageSquare,
TJvShape, TJvBevel, TJvSyncSplitter,
TJvControlBar,
TJvStaticText, TJvScrollText, TJvContentScroller, TJvZoom,
TJvMaskEdit, TJvCommandEdit,
TJvSpinEdit, TJvSpinButton, TJvCoupler,
TJvInstallLabel,
TJvTransparentPanel, TJvCaptionPanel, TJvItemsPanel, TJvRollout,
JvSpacer.TJvSpacer, TJvDivider, TJvArrow, TJvHighlighter, TJvRadioControl,
TJvGroupHeader, TJvFooter]);
// Jv Win32
RegisterComponents(srJvWin32Palette,
[TJvTabControl, TJvPageControl, {TJvRichEdit, }TJvTrackBar,
{$IFNDEF DelphiPersonalEdition}
TJvProgressBar,
{$ENDIF}
TJvUpDown, TJvDomainUpDown, TJvHotKey, TJvApplicationHotKey,
TJvAnimate, TJvDateTimePicker, TJvMonthCalendar, TJvMonthCalendar2,
TJvTreeView, TJvListView, TJvHeaderControl, TJvStatusBar, TJvToolBar,
TJvCoolBar, TJvPageScroller, TJvScrollingWindow, TJvIpAddress,
TJvSHFileOperation, TJvTrayIcon, TJvHidDeviceController]);
// Jv System
RegisterComponents(srJvSystemPalette,
[TJvDriveCombo, TJvDriveList, TJvDirectoryListBox, TJvFileListBox,
TJvCaptionButton, TJvColorButton, TJvColorBox, TJvColorSquare,
TJvRegistryTreeView, TJvUninstallListBox, TJvUninstallComboBox,
TJvDragDrop, TJvAppDdeCmd, TJvPerfStat95, TJvCreateProcess,
TJvChangeNotify, TJvFileInfo, TJvComputerInfo, TJvDirectories,
TJvSystemColors, TJvSystemPopup, TJvNTEventLog, TJvShellHook]);
{$IFNDEF DelphiPersonalEdition}
// Jv Data Controls
RegisterComponents(srJvDataControlsPalette,
[TJvDBDateTimePicker, TJvDBProgressBar, TJvDBSpinEdit]);
{$ENDIF}
// Jv Internet
RegisterComponents(srJvInternetPalette,
[{TJvHotLink, }TJvHtmlParser, TJvHttpGrabber, TJvMultiHttpGrabber,
TJvFtpGrabber, TJvSimpleXml, TJvStringListToHtml, TJvRichEditToHtml,
TJvRgbToHtml, TJvStrToHtml, TJvFormToHtml, TJvMail, TJvRas32,
TJvCommStatus]);
// Jv Dialogs
RegisterComponents(srJvDialogsPalette,
[TJvBrowseForFolderDialog, TJvSelectDirectory, TJvOpenDialog, TJvSaveDialog,
{TJvOpenDialog2000, TJvSaveDialog2000,}
TJvConnectNetwork,
TJvDisconnectNetwork, TJvPageSetupDialog, TJvPageSetupTitledDialog,
TJvAddPrinterDialog, TJvFindFilesDialog, TJvFormatDriveDialog,
TJvColorDialog, TJvOrganizeFavoritesDialog, TJvComputerNameDialog,
TJvAppletDialog, TJvChangeIconDialog,
TJvShellAboutDialog, TJvRunDialog, TJvObjectPropertiesDialog,
TJvNewLinkDialog, TJvAddHardwareDialog, TJvOpenWithDialog,
TJvDiskFullDialog, TJvExitWindowsDialog, TJvOutOfMemoryDialog,
TJvObjectPickerDialog,
TJvNagScreen, TJvTipOfDay, TJvFindReplace,
TJvImageDlg, TJvDiskPrompt, TJvCopyError, TJvDeleteError,
TJvRenameError, TJvDSADialog, TJvLoginDialog, TJvProgressDialog]);
// Jv Custom
RegisterComponents(srJvCustomPalette,
[TJvLinkLabel, TJvGammaPanel, TJvOutlookBar, TJvLookOut, TJvLookOutButton,
TJvExpress, TJvExpressButton, TJvTimeLine, TJvTMTimeline, TJvInspector,
TJvInspectorBorlandPainter, TJvInspectorDotNetPainter, TJvBalloonHint]);
// Jv Labels
{ RegisterComponents(srJvLabelsPalette,
[TJvAngleLabel, TJvBlinkingLabel, TJvScrollingLabel, TJvReversedLabel, TJvRealLabel,
TJvSpecialLabel, TJvBouncingLabel, TJvAppearingLabel]);}
// Jv Multimedia
RegisterComponents(srJvMultimediaPalette,
[TJvPlaylist, TJvSoundControl, TJvDeviceChanged, TJvJoystick,
TJvWavePlayer, TJvBmpAnimator,
TJvFormWallpaper, TJvStarfield, TJvImageTransform,
TJvImageRotate, TJvSpecialImage, TJvSlider,
TJvGradient, TJvGradientCaption, TJvWaitingGradient,
TJvSpecialProgress, TJvWaitingProgress,
TJvId3v1, TJvId3v2, TJvVisualId3v1, TJvVisualId3v2,
TJvWinampLabel, TJvBreatheSkin, TJvWinampApi,
TJvThumbImage, TJvThumbNail, TJvThumbView, TJvMovableBevel]);
// Jv Forms
RegisterComponents(srJvFormsPalette,
[TJvFormMagnet, TJvAppAnimatedIcon, TJvFormAnimatedIcon, TJvAnimTitle,
TJvTransparentForm, TJvPerforated,
TJvFormAnimation, TJvAutoSizeCompo]);
// Jv Utils
RegisterComponents(srJvUtilsPalette,
[TJvTranslator, TJvTranslatorStrings,
TJvFavoritesButton, TJvStartMenuBtn, TJvRecentMenuBtn,
{$IFNDEF DelphiPersonalEdition}
TJvControlPanel,
{$ENDIF}
TJvSerialMaker, TJvTimeLimit,
TJvScreenSaver, TJvPatchFile, TJvThread, TJvThreadTimer, TJvAlarms,
TJvClock, TJvAnalogClock,
TJvMruList, TJvWinHelp, TJvEasterEgg, TJvPrint, TJvMousePositionner,
TJvDataEmbedded,
TJvCaesarCipher, TJvVigenereCipher, TJvXorCipher, TJvGenetic,
TJvSearchFiles, TJvLogFile, TJvCabFile, TJvProfiler,
TJvEnterAsTab, TJvKeyboardStates ]);
// Jv Convert
// RegisterComponents(srJvConvertPalette,
// [TJvFloatEdit, TJvFloatEdit2, TJvCurrencyEdit, TJvIntegerEdit, TJvYearEdit]);
// JvBands
RegisterCustomModule(TJvBandForm, TCustomModule);
RegisterPackageWizard(TJvBandObjectDLLWizard.Create);
//JvPlugin
RegisterComponents(srJvPluginPalette,
[TJvPluginManager]);
// Jv Composites
{ RegisterComponents(srJvCompositesPalette,
[TJvDirectoryBox, TJvFileNameBox, TJvImageBox,
TJvButtonBox, TJvCalculatorBox]); }
end;
procedure RegExperts;
begin
RegisterLibraryExpert(TJvPluginWizard.Create);
end;
procedure RegActions;
begin
RegisterActions(srJVCLActions, [TJvSendMail, TJvWebAction], nil);
end;
procedure Register;
begin
RegComps;
RegPropEds;
RegCompEds;
RegExperts;
RegActions;
RegisterClass(TJvLookOutPage);
RegisterClass(TJvFooterBtn);
end;
end.