property Polygons: TPolygons
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;