Propos


Propriété pour travailler avec des polygones sur la carte.




Description


Permet de créer / modifier / supprimer des polygones sur la carte.



 Méthodes et propriétés

 Description

 function Add: TPolygonItem

 Crée un nouvel objet polygonal.

 procedure Bounds: TBounds

 Contient les coordonnées de la zone rectangulaire dans laquelle se trouvent tous les polygones.

 procedure Clear

 Supprime tous les polygones de la collection. Cela ne supprimera pas les polygones de la carte. Utilisez la méthode ClearPolygons pour supprimer des                 polygones à la fois de la carte et de la collection TPolygons

 property Count: Integer

 Renvoie le nombre de polygones dans la collection (TPolygons).

 procedure Delete(Index: Integer)

 Supprime le polygone spécifié de la collection (TPolygons). Cela ne supprimera pas le polygone de la carte. Pour supprimer un polygone de la carte, utilisez la          méthode DeleteMapPolygon

 property Items[i]: TPolygonItem

 Renvoie le polygone spécifié.





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);


    // Un 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;