компонент для построения графиков

[Daemvil]

Здравствуйте, братцы и сестры!
Пишу компонент для построения графиков. Назвал его DiScope.
Появилась проблема: описываю в компоненте свойство Area:TArea нестандартного типа. При визуальном редактировании компонента нажимаю на "плюсик" этого свойства - а оно не раскрывается, просто плюс превращается в минус. Как заставить редактор свойств показать список свойств класса Area?
Кого заинтересовало - искренне надеюсь на вашу помощь.
Исходники визуального компонента прилагаю.
https://www.dropbox.com/s/ev4l3umzam..._2015.zip?dl=0

[min@y™]

посмотри, как строятся свойства-потомки TPersistent: (TPen, TBrush, TFont...)

[Daemvil]

Сообщение от min@y™

посмотри, как строятся свойства-потомки TPersistent: (TPen, TBrush, TFont...)

Благодарю. Видимо, свойство должно быть типа TPersistent. Решил вроде проблему, объявив TArea и еще несколько необходимых, как класс TPersistent, и свойства открылись. Кому интересен компонент и его развитие - пишите. Поддерживает на данный момент логарифмические оси и вертикальные мультиоси

[Daemvil]

И снова здравствуйте. Подскажите, пожалуйста, как правильно надо объявлять классы, чтобы было такое вложение?

Area и Axes в данном случае имеют тип TComponent, TAxisArray - TCollection. При использовании TAxisArray непосредственно в TDiScope - коллекция отрабатывает нормально. Но когда делаю вложения (как на скриншоте) - коллекцию можно отредактировать, но при этом при работе и после завершения приложения количество элементов в коллекции снова сбрасывается в 1.

  TAxis = class(TCollectionItem)
  private
    FAxisType:TAxisType;
    procedure SetAxisType(Const AxisType_:TAxisType);
  public
    DimensPix:TDimensPix;                //
    Dimens:TDimens;                      //
    IndentAxis:integer;                  // для осей Y: величина отступа очередной оси от края BMap
    Color:TColor;                        // цвет оси
    Caption:TTitle;
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
  published
    property AxisType:TAxisType read FAxisType write SetAxisType default atLinear;
  end;

  TAxes = class;
  TArea = class;
  TDiScope = class;

  TAxisArray = class(TCollection)
  private
    FAxCount:integer;
    FAxisArray: Array of TAxis;
    FAxes:TAxes;
 //   procedure SetAxCount(const Value: integer);
    function GetItem(Index: Integer): TAxis;
    procedure SetItem(Index: Integer; const Value: TAxis);
//  protected

  public
    function add: TAxis;
    property items[Index: Integer]: TAxis read GetItem write SetItem; default;
    constructor create(Axes:TAxes);
  published
  //  property Count:integer read FAxCount write SetAxCount default 0;
  end;

  TAxes = class(TComponent)
  private
    FCAxisArray:TAxisArray;
    FArea:TArea;
    procedure setAxisArray(const Value: TAxisArray);
  public
    IndentFactor:integer;                // приращение отступа очередной оси от края BMap
    x:TAxis;
    constructor Create(AOwner:TComponent);
  published
    property y:TAxisArray read FCAxisArray write setAxisArray;
  end;

  TArea = class(TComponent)
  private
    FAxes:TAxes;
    FDiscope:TDiscope;
    FTestPr:integer;
    procedure SetAxes(Const Axes:TAxes);
    procedure settestpr(const Value: integer);
  public
    Color:TColor;
    BrushStyle:TBrushStyle;
    Channels:Array of TChannel;
    Grid:TGrid;
    Title:TTitle;
    Legend:TLegend;
    BMap:TBitMap;
    AreaDrawRect:TRect;
    // CurvesBMap:TBitMap;
    constructor Create(AOwner:TComponent);
  published
    property Axes:TAxes read FAxes write SetAxes;
    property testprop:integer read FTestPr write settestpr;
  end;

  TDiScope = class(TCustomControl)
  private
    { Private declarations }
    FWidth:integer;
    FHeight:integer;
    FArea:TArea;
.........
  public
    constructor Create(AOwner: TComponent); override;

[Daemvil]

Доброго времени суток всем!
Понятно, что DiScope в первую очередь нужен мне, но хотелось бы узнать, на каких ресурсах можно выложить свои наработки, чтобы вообще узнать, насколько людям нужен данный компонент? и найдутся ли люди, которые будут помогать его развивать?
Выложу напоследок последние наработки, теперь можно таскать графики за вертикальные оси (передвигать шкалу), ну и в дизайнтайме можно маломальски нормально редактировать компонент (шрифты, цвета, размеры).
https://www.dropbox.com/s/2m94ogu8kd...Scope.zip?dl=0

[Toxa]

а чем компонент будет отличаться от TeeChart ?

[Daemvil]

Сообщение от Toxa

а чем компонент будет отличаться от TeeChart ?

проще сказать, что в нем будет такого, что нет в тичарте:
- мультиоси, доступные в дизайнере
- оси можно таскать
- быстрота работы
возможно, еще какие-либо преимущества найдут

[Stilet]

оси можно таскать

А в стандартном разве нельзя?

[Daemvil]

Сообщение от Stilet

А в стандартном разве нельзя?

в стандартном не таскаются (имеется ввиду перетаскивание шкал мышью)

[Stilet]

В стандартном таскается сама канва. Этого достаточно в 100% случаев.
Или есть случаи когда нужно перетаскивать конкретно нить оси?