var
  PropertyClassList: TList;
  PropertyMapperList: TList = nil;

var
  ComponentGuidelinesList: TGuidelineBucketList;

var
  SelectionEditorDefinitionList: TSelectionEditorDefinitionList;

var
  GroupNotifyList: TList;
  EditorGroupList: TBits;

procedure RegisterSelectionEditor(AClass: TClass; AEditor: TSelectionEditorClass);
begin
  if not Assigned(SelectionEditorDefinitionList) then
    SelectionEditorDefinitionList := TSelectionEditorDefinitionList.Create;
  SelectionEditorDefinitionList.Add(TSelectionEditorDefinition.Create(AClass, AEditor));
end;

procedure RegisterPropertyMapper(Mapper: TPropertyMapperFunc);
var
  P: PPropertyMapperRec;
begin
  if PropertyMapperList = nil then
    PropertyMapperList := TList.Create;
  New(P);
  P^.Group := CurrentGroup;
  P^.Mapper := Mapper;
  PropertyMapperList.Insert(0, P);
end;

unit cxPCReg;

{$I cxVer.inc}

interface

procedure Register;

implementation

uses
  DesignEditors, DesignIntf, DesignMenus, Graphics,
  Classes, Forms, SysUtils, TypInfo, dxCore, cxPC, cxPCConsts, cxPCPaintersFactory,
  cxPCGoDialog, dxCoreReg, cxLibraryReg, cxPropEditors, cxClasses;