997c331dda
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
78 lines
2.1 KiB
ObjectPascal
78 lines
2.1 KiB
ObjectPascal
unit JvPageCompsReg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, LResources, SysUtils;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R ..\..\resource\jvpagecompsreg.res}
|
|
|
|
uses
|
|
ImgList,
|
|
PropEdits, ComponentEditors,
|
|
JvDsgnConsts,
|
|
JvNavigationPane, JvNavPaneEditors,
|
|
JvTabBar, JvTabBarXPPainter,
|
|
JvPageList, JvNotebookPageList,
|
|
JvPageListEditors,
|
|
JvPageListTreeView;
|
|
|
|
procedure Register;
|
|
const
|
|
cImageIndex = 'ImageIndex';
|
|
begin
|
|
// JvNavigationPanel
|
|
RegisterComponents(RsPaletteJvcl, [ // 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(RsPaletteJvcl, [ // was: RsPaletteListComboTree
|
|
//TJvPageList,
|
|
TJvNotebookPageList]);
|
|
{
|
|
RegisterClasses([TJvPageList, TJvStandardPage]);
|
|
RegisterComponentEditor(TJvCustomPageList, TJvCustomPageListEditor); // was: TJvCustomPageEditor
|
|
RegisterComponentEditor(TJvCustomPage, TJvCustomPageEditor);
|
|
RegisterPropertyEditor(TypeInfo(TJvShowDesignCaption), nil, '',
|
|
TJvShowDesignCaptionProperty);#
|
|
}
|
|
|
|
{
|
|
RegisterPropertyEditor(TypeInfo(TJvCustomPage),
|
|
TJvCustomPageList, cActivePage, TJvActivePageProperty);
|
|
}
|
|
|
|
// JvPageTree
|
|
RegisterComponents(RsPaletteJvcl, [ // was: TsPaletteListComboTree
|
|
TJvSettingsTreeView, TJvPageListTreeView
|
|
]);
|
|
RegisterClasses([TJvSettingsTreeView, TJvPageListTreeView]);
|
|
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvSettingsTreeImages, '',
|
|
TJvSettingsTreeImagesProperty);
|
|
|
|
end;
|
|
|
|
end.
|
|
|