published свойства

[ZuBy]

Добрый день!
Интересует следующее, как делаются вот такие свойства?


Красным выделено как у меня сейчас
Синим как хочу сделать

Подробно:
Создаю компонент, у него будут настройки цвета и шрифтов, т.к. таких настроек будет несколько я создал класс

TVBTextPresent = class(TPersistent)
  private
    FFont: TFont;
    FFontColor: TAlphaColor;
    FTextSettings: TTextSettings;

    procedure SetFont(Value: TFont);
    procedure SetFontColor(Value: TAlphaColor);
    procedure SetTextSettings(Value: TTextSettings);
  public
    constructor Create;
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
  published
    property Font: TFont read FFont write SetFont;
    property FontColor: TAlphaColor read FFontColor write SetFontColor;
    property TextSettings: TTextSettings read FTextSettings write SetTextSettings;
  end;

его объявляю в компоненте

  published
    property TitlePresent: TVBTextPresent read FTitlePresent write SetTitlePresent;

но не получается чтобы свойства TVBtextPresent были видны в Object Inspector'e

нужно как-то зарегистрировать класс? или я неправильно объявляю свойства?

[Аватар]

А в конструкторе FTextSettings создается? И что там в SetTextSettings делается?

[come-on]

RegisterClass делается?

[evg_m]

краткий ответ
вся тема
Далее следуют
из этой же темы.