Propos


Propriété permettant d'accéder aux polygones existants sur la carte.




Description


Permet de modifier / supprimer des polygones sur la carte.


 Méthodes et propriétés

 Description

 property BackgroundColor: TColor

 Spécifie la couleur du polygone.

 property BackgroundOpacity: Integer

 Détermine le degré de transparence du polygone (valeurs de 1 à 100).

 property BorderColor: TColor

 Spécifie la couleur de la bordure du polygone.

 property BorderOpacity: Integer

 Détermine le degré de transparence de la bordure du polygone (valeurs de 1 à 100).

 property BorderWidth: Integer

 Détermine la largeur de la bordure.

 property Bounds: TBounds

 Spécifie les coordonnées du rectangle (PolygonType = ptRectangle).

 property Center: TLocation

 Spécifie le centre du cercle. Cela a du sens si le polygone est de type Circle (PolygonType = ptCircle).

 property Clickable: Boolean

 Détermine si le polygone peut être cliqué. Si la valeur est False, l'événement OnPolygonClick ne se déclenchera pas.

 property Editable: Boolean

 Détermine si l'utilisateur pourra modifier le polygone avec la souris.

 property Geodesic: Boolean

 Détermine si la hauteur sera prise en compte lors du dessin de lignes dans le polygone.

 property HoverBackgroundColor: TColor

 Détermine la couleur du polygone lorsque vous le survolez.

 property HoverBorderColor: TColor

 Détermine la couleur de la bordure du polygone lorsque vous passez le curseur de la souris dessus.

 property Path: TPath

 Renvoie le chemin (les points qui composent le polygone). Cela a du sens si le polygone est de type Polygone (PolygonType = ptPath).

 property Path[i]: TPathItem

 Renvoie le point à son index. Cela a du sens si le polygone est de type Polygone (PolygonType = ptPath).

 property PathBounds: TBounds

 Renvoie les coordonnées de la zone rectangulaire dans laquelle se trouve ce polygone.

 property PolygonType: TPolygonType

 Spécifie le type de polygone. Valeurs disponibles: ptCircle (cercle), ptRectangle (rectangle), ptPath (polygone).

 property Radius: Integer

 Définit le rayon du cercle. Cela a du sens si le polygone est de type Circle (PolygonType = ptCircle).

 property Tag: Integer

 Permet d'attribuer un numéro à un polygone pour vos propres besoins.

 property TagString: string

 Permet d'attribuer une chaîne à un polygone pour vos propres besoins.

 property TagObject: TObject

 Permet d'attribuer un objet à un polygone pour vos propres besoins.

 property Visible: Boolean

 Détermine la visibilité du polygone.

 property Zindex: Integer

 Détermine la position de la polyligne par rapport aux autres polylignes de la carte.





Exemple


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var    PolygonItem: TPolygonItem;
begin
    // Un cercle
    PolygonItem := Form1.Map1.Polygons.Add;
    PolygonItem.Polygon.BackgroundOpacity := 50;
    PolygonItem.Polygon.BorderWidth := 2;
    // Configurer un polygone avec le type Cercle
    PolygonItem.Polygon.PolygonType := ptCircle;
    PolygonItem.Polygon.Radius := 10000;
    PolygonItem.Polygon.Center.Latitude := 50;
    PolygonItem.Polygon.Center.Longitude := 2;
    Form1.Map1.CreateMapPolygon(PolygonItem.Polygon);


    // Rectangle
    PolygonItem := Form1.Map1.Polygons.Add;
    PolygonItem.Polygon.BackgroundOpacity := 50;
    PolygonItem.Polygon.BorderWidth := 2;
    // Définition d'un polygone avec le type Rectangle
    PolygonItem.Polygon.PolygonType := ptRectangle;
    PolygonItem.Polygon.Bounds.NorthEast.Latitude := 52;
    PolygonItem.Polygon.Bounds.NorthEast.Longitude := 4;
    PolygonItem.Polygon.Bounds.SouthWest.Latitude := 50;
    PolygonItem.Polygon.Bounds.SouthWest.Longitude := 3;
    Form1.Map1.CreateMapPolygon(PolygonItem.Polygon);


    // Polygone
    PolygonItem := Form1.Map1.Polygons.Add;
    PolygonItem.Polygon.BackgroundOpacity := 50;
    PolygonItem.Polygon.BorderWidth := 2;
    // Configuration d'un polygone de type Polygone
    PolygonItem.Polygon.PolygonType := ptPath;
    PolygonItem.Polygon.Path.Add(50, 2); 
    PolygonItem.Polygon.Path.Add(52, 4);
    PolygonItem.Polygon.Path.Add(50, 4);
    Form1.Map1.CreateMapPolygon(PolygonItem.Polygon);


    Form1.Map1.MapZoomTo(Form1.Map1.Polygons.Bounds); // Zoomer sur la carte pour l'adapter à tous les polygones existants
end;