TEarthObjectStore

type TEarthObjectStore = class(TEarthENVPersistent)

protected

  bLoadingObject: Boolean;

  function GetMER(); virtual;

  function GetPresenterID(); virtual;

  function GetState(); virtual;

  function GetObject(); virtual;

  function GetObjectData(); virtual;

  function GetUserObject(); virtual;

  function GetValue(); virtual;

  function GetLayer(); virtual;

  function GetObjectsMER; virtual;

  procedure SetMER(); virtual;

  procedure SetPresenterID(); virtual;

  procedure SetCount(); virtual;

  procedure SetCapacity(); virtual;

  procedure SetState(); virtual;

  procedure SetValue(); virtual;

  procedure SetUserObject(); virtual;

  procedure SetObjectData(); virtual;

  function LoadObject(); virtual;

  function InternalOpen; virtual;

  function InternalClose; virtual;

  procedure SetActive(); virtual;

  procedure Notify(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure WriteProperties(); virtual;

  procedure ReadProperties(); virtual;

  procedure Subscribe(); virtual;

  procedure UnSubscribe(); virtual;

  procedure SaveMetaData; virtual;

  procedure LoadMetaData; virtual;

  procedure ReadMetaData(); virtual;

  procedure WriteMetaData(); virtual;

  procedure LoadEnvironment(); override;

  function SaveEnvironment; override;

  function MetaDataFilename(); virtual;

  procedure Open; virtual;

  procedure Close; virtual;

  procedure Add(); virtual;

  procedure Delete(); virtual;

  procedure Move(); virtual;

  procedure UnloadObjects; virtual;

  function ObjectInstanceSize;

  procedure ListActiveObjects();

  procedure Clear;

  procedure SetPresenterToAllObjects();

  property Capacity: Integer; [rw]

  property Earth: TCustomEarth; [rw]

  property EarthObject []: TEarthObject; default; [r]

  property EarthObjectData []: TEarthObjectData; [rw]

  property Layers []: TEarthLayer; [r]

  property MER []: TMER; [rw]

  property Modified: Boolean; [rw]

  property ObjectsMER: TMER; [r]

  property PresenterID []: Integer; [rw]

  property Presenters: TEarthPresenterStore; [rw]

  property State []: TEarthObjectStateSet; [rw]

  property UserObject []: TObject; [rw]

  property Value []: Double; [rw]

  property Parent: TEarthLayer; [r]

published

  property Active: Boolean; [rw]

  property Count: Integer; [rw]

  property Name: string; [rw]

  property NoCache: Boolean; [rw]

end;

TEarthObjectStore

TEarthENVPersistent

TEarthRoot

TObject