TMapViewer

type TMapViewer = class(TCustomControl)

protected

  function GetLongLat();

  function GetPixelXY();

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure DblClick; override;

  procedure DoOnResize; override;

  procedure Paint; override;

  function GetCenterLongLat;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  function GetMouseMapTile();

  function GetMouseMapPixel();

  function GetMouseMapLongLat();

  procedure Geolocate;

  procedure Center;

  property CenterLongLat: TRealPoint; [rw]

  property CacheCount: Word; [r]

published

  property AutoZoom: Boolean; [rw]

  property Zoom: Byte; [rw]

  property Debug: Boolean; [rw]

  property Source: TMapSource; [rw]

  property CacheSize: Word; [rw]

  property UseThreads: Boolean; [rw]

  property DownloadEngine: TCustomDownloadEngine; [rw]

  property GeolocationEngine: TCustomGeolocationEngine; [rw]

  property DoubleBuffering: Boolean; [rw]

  property Align;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnClick;

  property OnDblClick;

end;

TMapViewer

TObject