property Polygons[i]: TPolygonItem
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;