TEarthObject

type TEarthObject = class(TEarthObjectData)

protected

  FTitle: string;

  FCentroid: TPointLL;

  procedure SetPresenterID(); override;

  function GetCentroid; virtual;

  procedure SetCentroid(); virtual;

  procedure SetTitle();

  procedure SetVisibleHeightMin();

  procedure SetVisibleHeightMax();

  procedure SetVisibleHeightUnits();

public

  MRU: Integer;

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear;

  function Clone(); virtual;

  procedure Assign(); override;

  procedure WriteProperties(); virtual;

  procedure ReadProperties(); virtual;

  procedure RedrawObject; override;

  procedure Render(); virtual;

  procedure UnRender; virtual;

  procedure SelectedChanged; virtual;

  procedure FixupReferences; virtual;

  function ObjectInstanceSize; override;

  function GetObjectMER; override;

  function LLInObject(); virtual;

  function LLInObjectMER(); virtual;

  procedure MoveDelta(); virtual;

  procedure MoveTo(); virtual;

  function CanMoveMinus;

  function CanMovePlus;

  function GetVisibleHeightMinAsEU;

  function GetVisibleHeightMaxAsEU;

  function IsObjectMERVisible(); virtual;

  procedure SetCenter();

  procedure SetCenterStr();

  procedure SetCenterStrFmt();

  procedure GetCenterStrFmt();

  procedure SetCentroidX();

  function GetCentroidX;

  procedure SetCentroidY();

  function GetCentroidY;

  property ParentEarth: TCustomEarth; [r]

  property Parent: TEarthObjectStore; [r]

  property Layers: TEarthLayerStore; [r]

  property GISMER: TMER; [r]

  property Centroid: TPointLL; [rw]

  property CentroidX: Double; [rw]

  property CentroidY: Double; [rw]

  property Tag1: Integer; [rw]

  property Tag2: Integer; [rw]

  property Tag3: Integer; [rw]

  property Tag1String: string; [rw]

  property Tag2String: string; [rw]

  property Tag3String: string; [rw]

  property OnRender: TEarthObjectOnRender; [rw]

published

  property Closed: Boolean; [rw]

  property Hidden: Boolean; [rw]

  property ID: Integer; [rw]

  property GUID: string; [rw]

  property Selected: Boolean; [rw]

  property Title: string; [rw]

  property VisibleHeightMin: single; [rw]

  property VisibleHeightMax: single; [rw]

  property VisibleHeightUnits: THeightUnitTypes; [rw]

end;

TEarthObject

TEarthObjectData

TEarthRoot

TObject