GMLib – Google Maps Library

Última actualización el 23 setiembre 2015

Versión: 1.5.3.

Versión en inglés.

Introducción

GMLib (Google Maps Library) son una serie de componentes para Delphi/C++ Builder que encapsulan el API de Google Maps y así poder gestionar los mapas de Google de forma sencilla mostrando el resultado en un navegador (TWebBrowser). Enlaces de interés:

• Reportar errores: GMLib en GoogleCode.
• Pedir mejoras: GMLib en GoogleCode.
• Hacer preguntas: stackoverflow con el tag gmlib. No se contestarán preguntas por otros medios (ni aquí).
• SVN: GMLib en GoogleCode.

Índice

Ayúdame a ayudarte

¿Te gustan los componentes? ¿Te han servido de ayuda y/o te han facilitado el trabajo? Si la respuesta es sí, entonces ayúdame a seguir ayudándote con una pequeña colaboración para seguir comprando coca-colas para esas noches de insomnio 😛

Descargar

Puedes descargarlos desde los siguientes enlaces:

• Directamente en esta web desde este enlace.
• En SourceForge.
• En GoogleCode.
• En DelphiAccess.
• En Torry’s page.
• SVN desde GoogleCode.

Puedes descargar también los binarios de las demos aquí.

Versiones testeadas

Actualmente, la GMLib está compilada en las siguientes versiones de Delphi/C++Builder

• Delphi 6
• Delphi 7
• Delphi 2007
• Delphi 2009
• Delphi 2010
• RAD Studio XE
• RAD Studio XE2
• RAD Studio XE3
• RAD Studio XE4
• RAD Studio XE5
• RAD Studio XE6
• RAD Studio XE7
• RAD Studio XE8
• RAD Studie Seattle 10

Instalación

Para las referencias de instalación, ver el archivo Install.txt que se encuentra en el directorio raíz de los componentes.

¿Qué hay en el paquete?

En el paquete encontraremos las siguientes carpetas o archivos:

• \ChangesLog.txt
• \Install.txt
• \ProjectGroup por cada versión de Delphi
• \Demos=> carpeta para las demostraciones
• \Docs => documentación en formato OO de las clases de la API de Google Maps que han intervenido en la creación de los componentes.
  • \Classes => uml de las clases realizado con el programa WhiteStarUML.
  • \GMDoc => archivos para realizar la ayuda con el programa DelphiCodeToDoc y la ayuda en español y inglés en formato CHM.
• \dpk => paquetes de los componentes.
• \lib => unidades compiladas de los componentes (una carpeta por cada versión).
• \Licence => licencia. GNU LESSER GENERAL PUBLIC LICENSE v3.
• \Resources => recursos como imágenes, ficheros de recursos o el HTML del mapa.
• \src => fuentes de los componentes.

Histórico de versiones

• Versión 1.5.3 (cambios y novedades aquí)
• Versión 1.5.2 (cambios y novedades aquí)
• Versión 1.5.0 (cambios y novedades aquí)
• Versión 1.4.0 (cambios y novedades aquí)
• Versión 1.3.0 (cambios y novedades aquí)
• Versión 1.2.4 (cambios y novedades aquí)
• Versión 1.1.0 (cambios y novedades aquí)
• Versión 1.0.0 (cambios y novedades aquí)
• Versión 0.1.9 (cambios y novedades aquí)
• Versión 0.1.8 (cambios y novedades aquí)
• Versión 0.1.7 (cambios y novedades aquí)
• Versión 0.1.6 (cambios y novedades aquí)
• Versión 0.1.5 (cambios y novedades aquí)
• Versión 0.1.4 (cambios y novedades aquí)
• Versión 0.1.3 (cambios y novedades aquí)
• Versión 0.1.2 (cambios y novedades aquí)
• Versión 0.1.1 (cambios y novedades aquí)
• Versión inicial

Diagrama general de clases

Leyenda

Descripción de símbolos que nos encontraremos en esta ayuda.

Eventos

TAfterPageLoaded = procedure(Sender: TObject; First: Boolean) of object;

TBoundsChanged = procedure(Sender: TObject; NewBounds: TLatLngBounds) of object;

TLatLngEvent = procedure(Sender: TObject; LatLng: TLatLng; X, Y: Double) of object;

TMapTypeIdChanged = procedure(Sender: TObject; NewMapTypeId: TMapTypeId) of object;

TMapTypeId = (mtHYBRID, mtROADMAP, mtSATELLITE, mtTERRAIN);

TPanoramioClick = procedure(Sender: TObject; LatLng: TLatLng; PanoramioFeature: TPanoramioFeature) of object;

TWeatherClick = procedure(Sender: TObject; LatLng: TLatLng; FeatureDetails: TWeatherFeature) of object;

TZoomChanged = procedure(Sender: TObject; NewZoom: Integer) of object;

TOnLoadFile = procedure (Sender: TCustomGMMarker; Marker: TCustomMarker; Current, Count: Integer; 
  var Stop: Boolean) of object;

TAfterLoadFile = procedure (Sender: TCustomGMMarker; Loaded, Count: Integer) of object;

TLatLngIdxEvent = procedure(Sender: TObject; LatLng: TLatLng; Index: Integer; 
  LinkedComponent: TLinkedComponent) of object;

TLinkedComponentChange = procedure(Sender: TObject; Index: Integer; 
  LinkedComponent: TLinkedComponent) of object;

TParseData = procedure(Sender: TObject; ActualNode, CountNodes: Integer; var Continue: Boolean) of object;

Clase TGMMap

Descripción Clase para el acceso al mapa de Google Maps especializada para el navegador TWebBrowser. Más información en Map class Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TCustomGMMap -> TCustomGMMapVCL -> TGMMap Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure SaveToJPGFile(FileName: TFileName = ''); override;

procedure DoMap; virtual;

procedure GetCenter(LL: TLatLng);

function GetMapTypeId: TMapTypeId;

TMapTypeId = (mtHYBRID, mtROADMAP, mtSATELLITE, mtTERRAIN);

function GetZoom: Integer;

function LatLngBoundsContains(Lat, Lng: Real; LLB: TLatLngBounds): Boolean; overload;

function LatLngBoundsContains(LatLng: TLatLng; LLB: TLatLngBounds): Boolean; overload;

function MapLatLngBoundsContains(LatLng: TLatLng): Boolean; overload;

procedure LatLngBoundsExtend(LatLng: TLatLng; LLB: TLatLngBounds); overload;

procedure LatLngBoundsExtend(Lat, Lng: Real; LLB: TLatLngBounds); overload;

procedure MapLatLngBoundsExtend(LatLng: TLatLng; LLB: TLatLngBounds); overload;

procedure LatLngBoundsGetBounds(LLB: TLatLngBounds); overload;

procedure LatLngBoundsGetCenter(LLB: TLatLngBounds; LL: TLatLng);

procedure LatLngBoundsSetBounds(SWLat, SWLng, NELat, NELng: Real); overload;

procedure LatLngBoundsSetBounds(Bounds: TLatLngBounds); overload;

procedure LatLngBoundsToSpan(LL: TLatLng);

procedure PanBy(x, y: Integer);

procedure PanTo(const Lat, Lng: Real); overload;

procedure PanTo(LatLng: TLatLng); overload;

procedure PrintNoDialog; virtual;

procedure PrintPageSetup; virtual;

procedure PrintPreview; virtual;

procedure PrintWithDialog; virtual;

procedure SaveToJPGFile(FileName: TFileName = ''); virtual; abstract;

procedure SetCenter(const Lat, Lng: Real); overload;

procedure SetCenter(LatLng: TLatLng); overload;

Eventos

Clase TLayers

Descripción Clase interna que engloba todos los layers de la API de Google Maps. Herencia TObject -> TPersistent -> TLayers Propiedades

Clase TBicycling

Descripción Clase que encapsula la capa Bicycling. Más información en BicyclingLayer Herencia TObject -> TPersistent -> TBicycling Propiedades

Clase TPanoramio

Descripción Clase que encapsula la capa Panoramio. Más información en The Panoramio Layer (Library) o en PanoramioLayer Herencia TObject -> TPersistent -> TPanoramio Propiedades

Clase TTraffic

Descripción Clase que encapsula la capa Traffic. Más información en The Traffic Layer o en TrafficLayer class Herencia TObject -> TPersistent -> TTraffic Propiedades

Clase TTransit

Descripción Clase que encapsula la capa Transit. Más información en The Transit Layer o en TransitLayer class Herencia TObject -> TPersistent -> TTransit Propiedades

Clase TWeather

Descripción Clase que encapsula la capa Weather. Más información en The Weather and Cloud Layers (Library) o en WeatherLayer class Herencia TObject -> TPersistent -> TWeather Propiedades

TLabelColor = (lcBLACK, lcWHITE);

TTemperatureUnit = (tuCELSIUS, tuFAHRENHEIT);

TWindSpeedUnit = (wsKILOMETERS_PER_HOUR, wsMETERS_PER_SECOND, wsMILES_PER_HOUR);

Clase TNonVisualProp

Descripción Clase que contiene las propiedades no visuales de un mapa de Google Maps. Herencia TObject -> TPersistent -> TNonVisualProp Propiedades

TBoolOptions = set of TBoolOption;
TBoolOption = (DisableDoubleClickZoom, Draggable, KeyboardShortcuts, NoClear, ScrollWheel);

Clase TRequiredProp

Descripción Clase que contiene las propiedades requeridas de un mapa de Google Maps. Herencia TObject -> TPersistent -> TRequiredProp Propiedades

TMapTypeId = (mtHYBRID, mtROADMAP, mtSATELLITE, mtTERRAIN);

Clase TLatLng

Descripción Un Latng es un punto en coordenadas geográficas: latitud y longitud. Más información en LatLng class Herencia TObject -> TPersistent -> TLatLng Propiedades

Métodos

constructor Create(Lat: Real = 0; Lng: Real = 0); virtual;

function IsEqual(Other: TLatLng): Boolean; virtual;

function LatToStr(Precision: Integer = 6): string;

function LngToStr(Precision: Integer = 6): string;

function StringToReal(Value: string): Real;

function ToStr(Precision: Integer = 6): string;

function ToUrlValue(Precision: Integer = 6): string;

Eventos

Clase TLatLngBounds

Descripción Una instancia de la clase LatLngBounds representa un rectángulo en coordenadas geográficas. Más información en LatLngBounds class Herencia TObject -> TPersistent -> TLatLngBounds Propiedades

Métodos

constructor Create(SWLat: Real = 0; SWLng: Real = 0; NELat: Real = 0; NELng: Real = 0); overload; virtual;

constructor Create(SW, NE: TLatLng); overload; virtual;

function IsEqual(Other: TLatLngBounds): Boolean;

function ToStr(Precision: Integer = 6): string;

function ToUrlValue(Precision: Integer = 6): string;

Clase TPanoramioFeature

Descripción Clase que encapsula las caracretísticas de Panoramio. Más información en PanoramioFeature object specification. Herencia TObject -> TPanoramioFeature Propiedades

Clase TWeatherFeature

Descripción Clase que encapsula las características metereológicas. Más información en WeatherFeature object specification. Herencia TObject -> TWeatherFeature Propiedades

TTemperatureUnit = (tuCELSIUS, tuFAHRENHEIT);

TWindSpeedUnit = (wsKILOMETERS_PER_HOUR, wsMETERS_PER_SECOND, wsMILES_PER_HOUR);

Clase TWeatherConditions

Descripción Clase que encapsula las condiciones meteriológicas. Más información en WeatherConditions object specification. Herencia TObject -> TWeatherConditions Propiedades

Clase TWeatherForecast

Descripción Clase que encapsula la previsión metereológica. Más información en WeatherForecast object specification. Herencia TObject -> TWeatherForecast Propiedades

Clase TVisualProp

Descripción Clase interna que contendrá las propiedades visuales de un mapa de Google Maps. Herencia TObject -> TPersistent -> TCustomVisualProp -> TVisualProp Propiedades

Clase TMapTypeControlOptions

Descripción Clase interna que contendrá las opciones del MapTypeControl del mapa. Más información en MapTypeControlOptions object specification. Herencia TObject -> TPersistent -> TMapTypeControlOptions Propiedades

TMapTypeIds = set of TMapTypeId;
TMapTypeId = (mtHYBRID, mtROADMAP, mtSATELLITE, mtTERRAIN);

  TControlPosition = (cpBOTTOM_CENTER, cpBOTTOM_LEFT, cpBOTTOM_RIGHT,
                      cpLEFT_BOTTOM, cpLEFT_CENTER, cpLEFT_TOP,
                      cpRIGHT_BOTTOM, cpRIGHT_CENTER, cpRIGHT_TOP,
                      cpTOP_CENTER, cpTOP_LEFT, cpTOP_RIGHT);

TMapTypeControlStyle = (mtcDEFAULT, mtcDROPDOWN_MENU, mtcHORIZONTAL_BAR);

Clase TOverviewMapControlOptions

Descripción Clase interna que contendrá las opciones del OverviewMapControl del mapa. Más información en OverviewMapControlOptions object specification. Herencia TObject -> TPersistent -> TOverviewMapControlOptions Propiedades

Clase TPanControlOptions

Descripción Clase interna que contendrá las opciones del PanControl del mapa. Más información en PanControlOptions object specification. Herencia TObject -> TPersistent -> TPanControlOptions Propiedades

  TControlPosition = (cpBOTTOM_CENTER, cpBOTTOM_LEFT, cpBOTTOM_RIGHT,
                      cpLEFT_BOTTOM, cpLEFT_CENTER, cpLEFT_TOP,
                      cpRIGHT_BOTTOM, cpRIGHT_CENTER, cpRIGHT_TOP,
                      cpTOP_CENTER, cpTOP_LEFT, cpTOP_RIGHT);

Clase TRotateControlOptions

Descripción Clase interna que contendrá las opciones del RotateControl del mapa. Más información en RotateControlOptions object specification. Herencia TObject -> TPersistent -> TRotateControlOptions Propiedades

  TControlPosition = (cpBOTTOM_CENTER, cpBOTTOM_LEFT, cpBOTTOM_RIGHT,
                      cpLEFT_BOTTOM, cpLEFT_CENTER, cpLEFT_TOP,
                      cpRIGHT_BOTTOM, cpRIGHT_CENTER, cpRIGHT_TOP,
                      cpTOP_CENTER, cpTOP_LEFT, cpTOP_RIGHT);

Clase TScaleControlOptions

Descripción Clase interna que contendrá las opciones del ScaleControl del mapa. Más información en ScaleControlOptions object specification. Herencia TObject -> TPersistent -> TScaleControlOptions Propiedades

  TControlPosition = (cpBOTTOM_CENTER, cpBOTTOM_LEFT, cpBOTTOM_RIGHT,
                      cpLEFT_BOTTOM, cpLEFT_CENTER, cpLEFT_TOP,
                      cpRIGHT_BOTTOM, cpRIGHT_CENTER, cpRIGHT_TOP,
                      cpTOP_CENTER, cpTOP_LEFT, cpTOP_RIGHT);

TScaleControlStyle = (scDEFAULT);

Clase TStreetViewControlOptions

Descripción Clase interna que contendrá las opciones del StreetViewControl del mapa. Más información en StreetViewControlOptions object specification. Herencia TObject -> TPersistent -> TStreetViewControlOptions Propiedades

  TControlPosition = (cpBOTTOM_CENTER, cpBOTTOM_LEFT, cpBOTTOM_RIGHT,
                      cpLEFT_BOTTOM, cpLEFT_CENTER, cpLEFT_TOP,
                      cpRIGHT_BOTTOM, cpRIGHT_CENTER, cpRIGHT_TOP,
                      cpTOP_CENTER, cpTOP_LEFT, cpTOP_RIGHT);

Clase TZoomControlOptions

Descripción Clase interna que contendrá las opciones del ZoomControl del mapa. Más información en ZoomControlOptions object specification. Herencia TObject -> TPersistent -> TZoomControlOptions Propiedades

  TControlPosition = (cpBOTTOM_CENTER, cpBOTTOM_LEFT, cpBOTTOM_RIGHT,
                      cpLEFT_BOTTOM, cpLEFT_CENTER, cpLEFT_TOP,
                      cpRIGHT_BOTTOM, cpRIGHT_CENTER, cpRIGHT_TOP,
                      cpTOP_CENTER, cpTOP_LEFT, cpTOP_RIGHT);

TZoomControlStyle = (zcDEFAULT, zcLARGE, zcSMALL);

Clase TGMMarker

Descripción Clase para la gestión de marcadores. Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TGMObjects -> TGMLinkedComponent -> TCustomGMMarker -> TGMMarker Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

function Add(Lat: Real = 0; Lng: Real = 0; Title: string = ''): TMarker;

procedure LoadFromCSV(LatColumn, LngColumn: Integer; FileName: string;
      TitleColumn: Integer = -1; Delimiter: Char = ','; DeleteBeforeLoad: Boolean = True;
      WithRownTitle: Boolean = True);

procedure LoadFromDataSet(DataSet: TDataSet; LatField, LngField: string;
      TitleField: string = ''; IconField: string = ''; DeleteBeforeLoad: Boolean = True);

procedure ShowElements; override;

procedure ZoomMapToAllMarkers;

procedure ZoomMapToAllMarkers;

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Clear;

procedure Delete(Index: Integer);

procedure Move(CurIndex, NewIndex: Integer);

Eventos

Clase TMarkers

Descripción Clase para la colección de marcadores. Herencia TObject -> TPersistent -> TCollection -> TLinkedComponents -> TCustomMarkers -> TMarkers Propiedades

Métodos

function Add: TMarker;

function Insert(Index: Integer): TMarker;

procedure Assign(Source: TPersistent); override;

constructor Create(GMLinkedComponent: TGMLinkedComponent; ItemClass: TCollectionItemClass); virtual;

Clase TMarker

Descripción Clase para los marcadores. Más información en Marker class. Herencia TObject -> TPersistent -> TCollectionItem -> TLinkedComponent -> TCustomMarker -> TMarker Propiedades

TMarkerType = (mtStandard, mtColored, mtStyledMarker);

Métodos

constructor Create(Collection: TCollection); override;

procedure Assign(Source: TPersistent); override;

procedure CenterMapToMarker;

destructor Destroy; override;

procedure CenterMapTo;

procedure OpenCloseInfoWin; virtual;

Clase TAnimation

Descripción Clase interna para determinar el tipo de animación de un marcador. Herencia TObject -> TPersistent -> TAnimation Propiedades

Clase TBaseInfoWindow

Descripción Clase base para ser usada desde otros componentes que representa una ventana de información. Más información en InfoWindow class. Herencia TObject -> TPersistent -> TBaseInfoWindow Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(aOwner: TPersistent); override;

destructor Destroy; override;

function GetConvertedString: string;

Eventos

Clase TStyledMarker

Descripción Características para un marcador de tipo ColoredMarker. Más información en StyledMarker library. Herencia TObject -> TPersistent -> TCustomStyledMarker -> TStyledMarker Propiedades

TStyledIcon = (siMarker, siBubble);

Clase TGMSize

Descripción Una instancia de la clase TGMSize representa un tamaño bidimensional. Más información en Size class. Herencia TObject -> TPersistent -> TGMSize Propiedades

Eventos

Clase TGMInfoWindow

Descripción Clase para la gestión de InfoWindow. Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TGMObjects -> TGMLinkedComponent -> TGMInfoWindow Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

function Add(Lat: Real = 0; Lng: Real = 0; HTMLContent: string = ''): TInfoWindow;

procedure ShowElements; override;

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Clear;

procedure Delete(Index: Integer);

procedure Move(CurIndex, NewIndex: Integer);

Eventos

Clase TInfoWindows

Descripción Clase para la colección de InfoWindow. Herencia TObject -> TPersistent -> TCollection -> TLinkedComponents -> TInfoWindows Propiedades

Métodos

function Add: TInfoWindow;

function Insert(Index: Integer): TInfoWindow;

procedure Assign(Source: TPersistent); override;

constructor Create(GMLinkedComponent: TGMLinkedComponent; ItemClass: TCollectionItemClass); virtual;

Clase TInfoWindow

Descripción Clase para la gestión de ventanas de información. Herencia TObject -> TPersistent -> TCollectionItem -> TLinkedComponent -> TInfoWindow Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(Collection: TCollection); override;

destructor Destroy; override;

procedure OpenClose;

procedure CenterMapTo;

Clase TGMPolyline

Descripción Clase para la gestión de polilíneas. Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TGMObjects -> TGMLinkedComponent -> TGMBasePolyline -> TGMPolyline Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

function Add: TPolyline;

procedure ShowElements; override;

procedure GetPath;

procedure SetPath;

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Clear;

procedure Delete(Index: Integer);

procedure Move(CurIndex, NewIndex: Integer);

Eventos

Clase TPolylines

Descripción Clase para la colección de polilíneas. Herencia TObject -> TPersistent -> TCollection -> TLinkedComponents -> TBasePolylines -> TPolylines Propiedades

Métodos

function Add: TPolyline;

function Insert(Index: Integer): TPolyline;

procedure Assign(Source: TPersistent); override;

constructor Create(GMLinkedComponent: TGMLinkedComponent; ItemClass: TCollectionItemClass); virtual;

Clase TPolyline

Descripción Clase para las polilíneas. Más información en Polyline class. Herencia TObject -> TPersistent -> TCollectionItem -> TLinkedComponent / ILinePoint -> TBasePolyline -> TBasePolylineVCL -> TPolyline Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(Collection: TCollection); override;

destructor Destroy; override;

function AddLinePoint(Lat, Lng: string): TLinePoint; overload;
function AddLinePoint(Lat: Real = 0; Lng: Real = 0): TLinePoint; overload;

procedure AfterConstruction; override;

procedure ClearLinePoints;

function ComputeArea(Radius: Real = -1): Real;

procedure DecodePath(EncodedPath: string; Add: Boolean = False);

procedure DeleteLinePoint(Index: Integer);

function EncodePath: string;

procedure GetCenter(LL: TLatLng);

procedure GetPath;

function InsertLinePoint(Index: Integer; Lat, Lng: Real): TLinePoint;

function IsLocationOnEdge(LatLng: TLatLng; Tolerance: Integer = -1): Boolean; overload;

function IsLocationOnEdge(Lat, Lng: Real; Tolerance: Integer = -1): Boolean; overload;

procedure MoveLinePoint(CurIndex, NewIndex: Integer);

function PolylineToStr: string;

procedure SetPath;

procedure ZoomToPoints;

procedure CenterMapTo;

procedure OpenCloseInfoWin; virtual;

Clase TIconSequence

Descripción Clase para determinar el icono y la repetición a mostrar en la polilínea. Herencia TObject -> TPersistent -> TCustomIconSequence -> TIconSequence Propiedades

Clase TValue

Descripción Clase para determinar la repetición del icono mostrado. Herencia TObject -> TPersistent -> TValue Propiedades

TMeasure = (mPixels, mPercentage);

Clase TSymbol

Descripción Clase para determinar la repetición del icono mostrado. Herencia TObject -> TPersistent -> TCustomSymbol -> TSymbol Propiedades

TSymbolPath = (spNONE, spBACKWARD_CLOSED_ARROW, spBACKWARD_OPEN_ARROW, spCIRCLE,
          spFORWARD_CLOSED_ARROW, spFORWARD_OPEN_ARROW, spDASHEDLINE);

Clase TColoredMarker

Descripción Características para un marcador de tipo ColoredMarker. Lo siento, he perdido la referencia para más información. Herencia TObject -> TPersistent -> TCustomColoredMarker -> TColoredMarker Propiedades

Clase TLinePoint

Descripción Clase interna para la gestión de puntos de un TPolyline o TPolygon. Herencia TObject -> TPersistent -> TCollectionItem -> TLinePoint Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(Collection: TCollection); override;

destructor Destroy; override;

function GetLatLng: TLatLng;

function LatToStr(Precision: Integer = 6): string;

function LngToStr(Precision: Integer = 6): string;

procedure SetLatLng(LatLng: TLatLng);

function StringToReal(Value: string): Real;

function ToStr(Precision: Integer = 6): string;

Clase TLinePoints

Descripción Clase interna para la gestión de puntos de un Polyline o Polygon. Herencia TObject -> TPersistent -> TCollection -> TLinePoints Métodos

function Add: TLinePoint;

procedure Assign(Source: TPersistent); override;

procedure Clear;

constructor Create(Owner: TObject; ItemClass: TCollectionItemClass);

procedure Delete(Index: Integer);

function Insert(Index: Integer): TLinePoint;

procedure Move(CurIndex, NewIndex: Integer);

function PointsToStr(Precision: Integer = 6): string;

Clase TGMPolygon

Descripción Clase para la gestión de polígonos. Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TGMObjects -> TGMLinkedComponent -> TGMBasePolyline -> TGMPolygon Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

function Add: TPolygon;

procedure ShowElements; override;

procedure GetPath;

procedure SetPath;

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Clear;

procedure Delete(Index: Integer);

procedure Move(CurIndex, NewIndex: Integer);

Eventos

Clase TPolygons

Descripción Clase para la colección de polígonos. Herencia TObject -> TPersistent -> TCollection -> TLinkedComponents -> TBasePolylines -> TPolygons Propiedades

Métodos

function Add: TPolygon;

function Insert(Index: Integer): TPolygon;

procedure Assign(Source: TPersistent); override;

constructor Create(GMLinkedComponent: TGMLinkedComponent; ItemClass: TCollectionItemClass); virtual;

Clase TPolygon

Descripción Clase para los polígonos. Más información en TPolygon class. Herencia TObject -> TPersistent -> TCollectionItem -> TLinkedComponent / ILinePoint -> TBasePolyline -> TBasePolylineVCL -> TPolygon Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

function ContainsLocation(Lat, Lng: Real): Boolean; overload;

function ContainsLocation(LatLng: TLatLng): Boolean; overload;

constructor Create(Collection: TCollection); override;

function AddLinePoint(Lat, Lng: string): TLinePoint; overload;
function AddLinePoint(Lat: Real = 0; Lng: Real = 0): TLinePoint; overload;

procedure AfterConstruction; override;

procedure ClearLinePoints;

function ComputeArea(Radius: Real = -1): Real;

procedure DecodePath(EncodedPath: string; Add: Boolean = False);

procedure DecodePath(EncodedPath: string; Add: Boolean = False);

procedure DeleteLinePoint(Index: Integer);

function EncodePath: string;

procedure GetCenter(LL: TLatLng);

procedure GetPath;

function InsertLinePoint(Index: Integer; Lat, Lng: Real): TLinePoint;

function IsLocationOnEdge(LatLng: TLatLng; Tolerance: Integer = -1): Boolean; overload;

function IsLocationOnEdge(Lat, Lng: Real; Tolerance: Integer = -1): Boolean; overload;

procedure MoveLinePoint(CurIndex, NewIndex: Integer);

function PolylineToStr: string;

procedure SetPath;

procedure ZoomToPoints;

procedure CenterMapTo;

destructor Destroy; override;

procedure OpenCloseInfoWin; virtual;

Clase TGMRectangle

Descripción Clase para la gestión de rectángulos. Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TGMObjects -> TGMLinkedComponent -> TCustomGMRectangle -> TGMRectangle Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

function Add(SWLat: Real = 0; SWLng: Real = 0; NELat: Real = 0; NELng: Real = 0): TRectangle;

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Clear;

procedure Delete(Index: Integer);

procedure Move(CurIndex, NewIndex: Integer);

procedure ShowElements; override;

Eventos

Clase TRectangles

Descripción Clase para la colección de rectángulos. Herencia TObject -> TPersistent -> TCollection -> TLinkedComponents -> TCustomRectangles -> TRectangles Propiedades

Métodos

function Add: TRectangle;

function Insert(Index: Integer): TRectangle;

procedure Assign(Source: TPersistent); override;

constructor Create(GMLinkedComponent: TGMLinkedComponent; ItemClass: TCollectionItemClass); virtual;

Clase TRectangle

Descripción Clase para los rectángulos. Más información en Rectangle class. Herencia TObject -> TPersistent -> TCollectionItem -> TLinkedComponent -> TCustomRectangle -> TRectangle Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(Collection: TCollection); override;

function ComputeArea(Radius: Real = -1): Real;

destructor Destroy; override;

procedure GetCenter(LL: TLatLng);

function GetStrPath: string;

procedure ZoomToPoints;

procedure CenterMapTo;

procedure OpenCloseInfoWin; virtual;

Clase TGMCircle

Descripción Clase para la gestión de círculos. Herencia TObject -> TPersistent -> TComponent -> TGMBase -> TGMObjects -> TGMLinkedComponent -> TCustomGMCircle -> TGMCircle Propiedades

TLang = (Espanol, English, French, PortuguesBR, Danish, German, Russian);

Métodos

function Add(Lat: Real = 0; Lng: Real = 0; Radius: Integer = 0): TCircle;

procedure Assign(Source: TPersistent); override;

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Clear;

procedure Delete(Index: Integer);

procedure Move(CurIndex, NewIndex: Integer);

procedure ShowElements; override;

Eventos

Clase TCircles

Descripción Clase para la colección de círculos. Herencia TObject -> TPersistent -> TCollection -> TLinkedComponents -> TCustomCircles -> TCircles Propiedades

Métodos

function Add: TCircle;

function Insert(Index: Integer): TCircle;

procedure Assign(Source: TPersistent); override;

constructor Create(GMLinkedComponent: TGMLinkedComponent; ItemClass: TCollectionItemClass); virtual;

Clase TCircle

Descripción Clase para los círculos. Más información en Circle class. Herencia TObject -> TPersistent -> TCollectionItem -> TLinkedComponent -> TCustomCircle -> TCircle Propiedades

Métodos

procedure Assign(Source: TPersistent); override;

constructor Create(Collection: TCollection); override;

destructor Destroy; override;

procedure GetBounds(LLB: TLatLngBounds);

procedure CenterMapTo;

procedure OpenCloseInfoWin; virtual;

Clase TSizeable

Descripción Clase para el agrandado automático del círculo. Herencia TObject -> TPersistent -> TCustomSizeable -> TSizeable Propiedades