TCustomEarth

type TCustomEarth = class(TCustomImage32)

protected

  FCacheMemoryUsed: Integer;

  FCacheMRU: Integer;

  FCacheCapacity: Integer;

  FLayerStore: TEarthLayerStore;

  FProjection: TEarthProjection;

  FEarthCanvas: TEarthCanvas;

  FEarthOptions: TEarthOptionsSet;

  FBackgroundTextureMap: TTextureData;

  FiMaxTextHeight: Double;

  FiMinTextHeight: Double;

  FViewRect: TRect;

  FSelectedOjectOptions: TSelectedOjectOptions;

  FTransparentOptions: TEarthTransparent;

  FScrollBars: TScrollStyle;

  FbRedrawLayers: Boolean;

  bRenderToCanvas: Boolean;

  PaintAbort: Boolean;

  FDataDirectory: string;

  FTitlesRenderMethod: TTitlesRenderMethod;

  FSelectedLayer: TEarthLayer;

  FSelectedPresentersStore: TEarthPresenterStore;

  FSelectedObjectStore: TEarthObjectStore;

  FSelectedObjects: TList;

  FOnSelectedLayerChange: TNotifyEvent;

  FOnObjectSelectChange: TEarthObjectNotifyEvent;

  FOnPresenterStoreChange: TPresenterStoreNotifyEvent;

  FOnObjectStoreChange: TObjectStoreNotifyEvent;

  function NextMRU; virtual;

  function GetMaxTextHeight; virtual;

  function GetMinTextHeight; virtual;

  procedure SetDataDirectory(); virtual;

  procedure SetEarthOptions(); virtual;

  procedure SetLongitudeStep(); virtual;

  procedure SetLatitudeStep(); virtual;

  procedure SetMaxTextHeight(); virtual;

  procedure SetMinTextHeight(); virtual;

  procedure SetScrollBars(); virtual;

  procedure SetViewRect(); virtual;

  procedure SeTTitlesRenderMethod(); virtual;

  procedure SetSelectedLayer();

  function GetSelectedObjectCount;

  function GetSelectedObjects();

  function GetSelectedObject;

  procedure SetSelectedObject();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Notify(); virtual; abstract;

  procedure RedrawLayers; virtual; abstract;

  function ResolveFilename(); virtual; abstract;

  procedure UpdateScrollBars; virtual; abstract;

  function ProgressMessage(); virtual; abstract;

  procedure LocateToLL();

  procedure LocateToLL2();

  procedure LocateToXY();

  procedure LocateToObject();

  procedure LocateToCenter;

  function MouseXYToLL();

  function LLToMouseXY();

  function UpdateTotalMemoryInUse; virtual; abstract;

  function CacheUsedDelta(); virtual; abstract;

  function ReduceCacheMemory(); virtual; abstract;

  procedure RenderToCanvas(); virtual; abstract;

  property SelectedLayer: TEarthLayer; [rw]

  property SelectedPresentersStore: TEarthPresenterStore; [rw]

  property SelectedObjectStore: TEarthObjectStore; [rw]

  property SelectedObjectsCount: Integer; [r]

  property SelectedObjects []: TEarthObject; [r]

  property SelectedObject: TEarthObject; [rw]

  property Layers: TEarthLayerStore; [r]

  property LayersBMP: TLayerCollection; [r]

  property BackgroundTextureMap: TTextureData; [r]

  property EarthCanvas: TEarthCanvas; [r]

  property ViewRect: TRect; [rw]

  property MouseCapture;

  property Canvas;

published

  property CacheCapacity: Integer; [rw]

  property DataDirectory: string; [rw]

  property EarthOptions: TEarthOptionsSet; [rw]

  property MinTextHeight: Double; [rw]

  property MaxTextHeight: Double; [rw]

  property TitlesRenderMethod: TTitlesRenderMethod; [rw]

  property Projection: TEarthProjection; [rw]

  property ScrollBars: TScrollStyle; [rw]

  property OnSelectedLayerChange: TNotifyEvent; [rw]

  property OnObjectSelectChange: TEarthObjectNotifyEvent; [rw]

  property OnPresenterStoreChange: TPresenterStoreNotifyEvent; [rw]

  property OnObjectStoreChange: TObjectStoreNotifyEvent; [rw]

end;

TCustomEarth

TObject