TOvcCollection

type TOvcCollection = class(TPersistent)

protected

  FItemClass: TOvcCollectibleClass;

  FItemEditor: TForm;

  FItems: TList;

  FOwner: TComponent;

  FReadOnly: Boolean;

  FStored: Boolean;

  FStreamer: TOvcCollectionStreamer;

  FOnChanged: TNotifyEvent;

  FOnItemSelected: TOvcItemSelectedEvent;

  FOnGetEditorCaption: TOvcGetEditorCaption;

  InLoaded: Boolean;

  IsLoaded: Boolean;

  InChanged: Boolean;

  function GetCount;

  function GetItem();

  procedure SetItem();

  procedure Changed; virtual;

  procedure Loaded;

public

  constructor Create();

  destructor Destroy; override;

  property ItemEditor: TForm; [rw]

  function Add;

  procedure Clear; virtual;

  procedure Delete();

  procedure DoOnItemSelected();

  function GetEditorCaption;

  function ItemByName();

  function Insert();

  function ParentForm;

  property Count: Integer; [r]

  property ItemClass: TOvcCollectibleClass; [r]

  property Item []: TComponent; default; [rw]

  property OnGetEditorCaption: TOvcGetEditorCaption; [rw]

  property Owner: TComponent; [r]

  property ReadOnly: Boolean; [rw]

  property Stored: Boolean; [rw]

  property OnChanged: TNotifyEvent; [rw]

  property OnItemSelected: TOvcItemSelectedEvent; [rw]

end;

TOvcCollection

TObject