You've already forked lazarus-ccr
f2502d8ad3
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7431 8e941d3f-bd1b-0410-a28a-d453659cc2b4
81 lines
2.4 KiB
ObjectPascal
81 lines
2.4 KiB
ObjectPascal
unit JvPageCompsReg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, LResources, SysUtils;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R ..\..\resource\jvpagecompsreg.res}
|
|
|
|
uses
|
|
ImgList,
|
|
PropEdits, ComponentEditors, TreeViewPropEdit,
|
|
JvDsgnConsts, JvPageList,
|
|
JvNavigationPane, JvNavPaneEditors,
|
|
JvTabBar, JvTabBarXPPainter,
|
|
JvNotebookPageList,
|
|
JvPageListEditors, JvPageLinkEditorForm,
|
|
JvPageListTreeView;
|
|
|
|
procedure Register;
|
|
const
|
|
cImageIndex = 'ImageIndex';
|
|
cActivePage = 'ActivePage';
|
|
begin
|
|
// JvNavigationPanel
|
|
RegisterComponents(RsPaletteJvclVisual, [ // was: RsPaletteNavPane
|
|
TJvNavigationPane,
|
|
TJvNavIconButton,
|
|
TJvNavPanelButton, TJvNavPanelHeader, TJvNavPanelDivider,
|
|
TJvTabBar, TJvModernTabBarPainter, TJvTabBarXPPainter,
|
|
TJvOutlookSplitter,
|
|
TJvNavPaneStyleManager, TJvNavPaneToolPanel
|
|
]);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelPage, cImageIndex,
|
|
TJvNavPanePageImageIndexProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelHeader, cImageIndex,
|
|
TJvNavPanelHeaderImageIndexProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelButton, cImageIndex,
|
|
TJvNavPanelButtonImageIndexProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavIconButton, cImageIndex,
|
|
TJvNavIconButtonImageIndexProperty);
|
|
|
|
// JvPageList
|
|
RegisterComponents(RsPaletteJvclVisual, [ // was: RsPaletteListComboTree
|
|
TJvNotebookPageList,
|
|
TJvPageList]);
|
|
|
|
RegisterClasses([TJvPageList, TJvStandardPage]);
|
|
RegisterNoIcon([TJvStandardPage]);
|
|
RegisterComponentEditor(TJvCustomPageList, TJvCustomPageEditor); // was: TJvCustomPageEditor
|
|
RegisterComponentEditor(TJvCustomPage, TJvCustomPageEditor);
|
|
RegisterPropertyEditor(TypeInfo(TJvShowDesignCaption), nil, '',
|
|
TJvShowDesignCaptionProperty);
|
|
|
|
RegisterPropertyEditor(TypeInfo(TJvCustomPage),
|
|
TJvCustomPageList, cActivePage, TJvActivePageProperty);
|
|
|
|
// JvPageTree
|
|
RegisterComponents(RsPaletteJvclVisual, [ // was: TsPaletteListComboTree
|
|
TJvPageListTreeView,
|
|
TJvSettingsTreeView
|
|
]);
|
|
RegisterClasses([TJvSettingsTreeView, TJvPageListTreeView]);
|
|
RegisterComponentEditor(TJvCustomPageListTreeView, TTreeViewComponentEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(TJvPageLinks),
|
|
TJvCustomPageListTreeView, '', TJvPageLinksProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvSettingsTreeImages, '',
|
|
TJvSettingsTreeImagesProperty);
|
|
|
|
end;
|
|
|
|
end.
|
|
|