TEarthLayer

type TEarthLayer = class(TEarthENVPersistent)

protected

  procedure SetObjects();

  function GetObjects;

  function GetLayerMER;

  function GetIndex;

  function GetEarthCanvas;

  function GetProjection;

  procedure SetIndex();

  function GetLayerName;

  procedure SetLayerName();

  procedure SetLayerBoolean();

  procedure SetLayerValue();

  procedure SetVisibleHeightMin();

  procedure SetVisibleHeightMax();

  procedure SetVisibleHeightUnits();

  procedure SetFullFileName();

  procedure SetParent();

public

  LayerState: TEarthLayerStateSet;

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure WriteProperties(); virtual;

  procedure ReadProperties(); virtual;

  procedure LoadEnvironment(); override;

  function SaveEnvironment; override;

  function Clone();

  procedure Clear; virtual;

  class function PrintableClassName; override;

  procedure RenderObjects; virtual;

  procedure RenderObjectsTitles;

  procedure RenderTitle(); virtual;

  procedure Delete; virtual;

  procedure Notify(); virtual;

  function IsLayerMERVisible; virtual;

  function FindPresenter();

  function ObjectAtLL(); virtual;

  function ObjectAtXY(); virtual;

  function ObjectByTitle(); virtual;

  function ObjectByID(); virtual;

  function SelectedCount; virtual;

  function UpdateObjectState();

  procedure SetPresenterToAllObjects();

  function CanMoveMinus;

  function CanMovePlus;

  function GetVisibleHeightMinAsEU;

  function GetVisibleHeightMaxAsEU;

  property Earth: TCustomEarth; [r]

  property EarthCanvas: TEarthCanvas; [r]

  property Parent: TEarthLayerStore; [rw]

  property Layers: TEarthLayerStore; [r]

  property LayerMER: TMER; [r]

  property Modified: Boolean; [rw]

  property Objects: TEarthObjectStore; [rw]

  property Presenters: TEarthPresenterStore; [r]

  property Projection: TEarthProjection; [r]

  property UserLayerObject: TObject; [rw]

  property FullFileName: string; [rw]

  property FilePath: string; [r]

  property FileName: string; [r]

  property Tag: Integer; [rw]

  property TagString: string; [rw]

published

  property Animated: Boolean; [rw]

  property Enabled: Boolean; [rw]

  property ShowTitles: Boolean; [rw]

  property Name: string; [rw]

  property NoInterrupt: Boolean; [rw]

  property Visible: Boolean; [rw]

  property Index: Integer; [rw]

  property VisibleHeightMin: single; [rw]

  property VisibleHeightMax: single; [rw]

  property VisibleHeightUnits: THeightUnitTypes; [rw]

end;

TEarthLayer

TEarthENVPersistent

TEarthRoot

TObject