lazarus-ccr/components/jvcllaz/design/JvPageComps/jvpagecompsreg.pas

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.