unit BarPanelReg;

interface

uses
  Windows, Classes, Graphics, Forms, Controls,
  DesignIntf, DesignEditors;

type
  TScrBarProperty = class(TClassProperty)
  end;

procedure Register;

implementation

uses
  BarPanel;

procedure Register;
begin
  RegisterComponents('Samples',[TBarPanel]);
  RegisterPropertyEditor(TypeInfo(TScrBarProp), nil, '', TScrBarProperty);
end;

end.