TGISEngine

type TGISEngine = class(TComponent)

protected

  procedure SetEarth();

  procedure DoSelectedLayerChange();

  procedure DoObjectSelectChange();

  procedure DoPresenterStoreChange();

  procedure DoObjectStoreChange();

  procedure DoPanned();

  procedure DoRender();

  procedure DoZoomed();

  procedure DoReduceCacheMemory();

  procedure DoPaintGrid();

  procedure DoPaint();

  procedure DoObjectRender();

  procedure DoObjectClick();

  procedure DoObjectCreate();

  procedure DoObjectFree();

  procedure DoObjectSourceCreate();

  procedure DoObjectSourceActiveChange();

  procedure DoObjectSourceFree();

  procedure DoProgress();

  procedure DoSaveEnvironment();

  procedure DoLoadEnvironment();

  procedure DoDirectoryNotFound();

  procedure DoFileNotFound();

  procedure DoLayersChange();

  procedure DoMouseDown();

  procedure DoMouseEnter();

  procedure DoMouseLeave();

  procedure DoMouseMove();

  procedure DoMouseUp();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  procedure OnEarthFormKeyPress();

  procedure OnEarthFormKeyDown();

  procedure OnEarthFormMouseWheel();

  function GetGeoAsTextAtPoint();

  function GetAltitudeAsText;

  function GetProjectionAsText;

  function GetSpheroidAsText;

  function GetAngle();

  function GetDistance();

  function GetAngleAsText();

  function GetDistanceAsText();

  procedure MsgToIDE();

  procedure UpdateIDE;

  procedure ManagerAdd();

  procedure ManagerDelete();

  function ManagerFind();

  function IsLayerFile();

  function LayerSaveToFile();

  function LayerSaveToStream();

  function LayersSaveToFile();

  function LayersSaveToStream();

  function LayersListLoadFromFile();

  function LayersListLoadFromStream();

  function LayersLoadFromFile();

  function LayersLoadFromStream();

  function IsObjectFile();

  function ObjectSaveToStream();

  function ObjectSaveToFile();

  function ObjectsSaveToStream();

  function ObjectsSaveToFile();

  function ObjectsListSaveToStream();

  function ObjectsListSaveToFile();

  function ObjectsLoadFromStream();

  function ObjectsLoadFromFile();

  function IsPresenterFile();

  function PresenterSaveToStream();

  function PresenterSaveToFile();

  function PresentersSaveToStream();

  function PresentersSaveToFile();

  function PresentersListSaveToStream();

  function PresentersListSaveToFile();

  function PresentersLoadFromStream();

  function PresentersLoadFromFile();

  property Earth: TEarthBase; [rw]

  property ViewsLibrary: TEarthViewsLibrary; [r]

  property LayersLibrary: TEarthLayersLibrary; [r]

  property FilesLibrary: TEarthFilesLibrary; [r]

  property VclsLibraryStore: TVclsLibraryStore; [r]

  property UserInteger: Integer; [rw]

  property UserBoolean: Boolean; [rw]

  property UserString: string; [rw]

  property UserData: Pointer; [rw]

published

  property GeoUnitsformat: TUnitsformat; [rw]

  property HeightUnits: THeightUnitTypes; [rw]

  property OnSelectedLayerChange: TNotifyEvent; [rw]

  property OnObjectSelectChange: TEarthObjectNotifyEvent; [rw]

  property OnPresenterStoreChange: TPresenterStoreNotifyEvent; [rw]

  property OnObjectStoreChange: TObjectStoreNotifyEvent; [rw]

  property OnPanned: TNotifyEvent; [rw]

  property OnRender: TNotifyEvent; [rw]

  property OnZoomed: TNotifyEvent; [rw]

  property OnReduceCacheMemory: TNotifyEvent; [rw]

  property OnPaintGrid: TNotifyEvent; [rw]

  property OnPaint: TNotifyEvent; [rw]

  property OnObjectRender: TEarthObjectRenderEvent; [rw]

  property OnObjectClick: TEarthObjectNotifyEvent; [rw]

  property OnObjectCreate: TEarthObjectNotifyEvent; [rw]

  property OnObjectFree: TEarthObjectNotifyEvent; [rw]

  property OnObjectSourceCreate: TEarthSourceNotifyEvent; [rw]

  property OnObjectSourceActiveChange: TEarthSourceNotifyEvent; [rw]

  property OnObjectSourceFree: TEarthSourceNotifyEvent; [rw]

  property OnProgress: TEarthProgressEvent; [rw]

  property OnSaveEnvironment: TEarthEnvironmentEvent; [rw]

  property OnLoadEnvironment: TEarthEnvironmentEvent; [rw]

  property OnDirectoryNotFound: TEarthDirectoryNotFound; [rw]

  property OnFileNotFound: TEarthFileNotFound; [rw]

  property OnLayersChange: TNotifyEvent; [rw]

  property OnMouseEnter: TNotifyEvent; [rw]

  property OnMouseLeave: TNotifyEvent; [rw]

  property OnMouseMove: TMouseMoveEvent; [rw]

  property OnMouseDown: TMouseEvent; [rw]

  property OnMouseUp: TMouseEvent; [rw]

  property OnUserEvent1: TNotifyEvent; [rw]

  property OnUserEvent2: TNotifyEvent; [rw]

  property OnUserEvent3: TNotifyEvent; [rw]

end;

TGISEngine

TObject