Composant Delphi / Google Maps / OpenStreetMap / Leaflet / Mappilary / Native Maps 100% Delphi 0% WebBrowser 0% Javascript

TECShapeLine

Vous êtes ici :TECNativeMap > Shapes

Sommaire

TECShapeLine vous permet de tracer une ligne constituée d'un ensemble de points sur votre carte.

Les lignes sont gérés par une liste de type TECShapeLines accessible au travers de la propriété Lines des groupes TECShapes

Fig. 64 Une ligne en mode édition

TECShapeline

Cette classe descend de TECShape

Elle possède en plus les propriétés suivantes

function Add(const Lat, Lng: double; const Alt: double = _ErrorAltitude): integer;

Ajoute un point avec éventuellement son altitude

function Add(const dLatLngs: array of double): integer;

Ajoute un tableau de points, constitué d'une suite de latitudes et de longitudes

Contrairement à l'ajout d'un simple point, vous n'avez pas besoin d'encadrer l'ajout de votre tableau par BeginUpdate / EndUpdate, cela est fait automatiquement.

procedure Insert(const index: integer; const Lat, Lng : double; const Alt: double = _ErrorAltitude);

Insère un point avec éventuellement son altitude

procedure Reverse
Inverse le sens de la ligne

property ShowDirection : boolean
Ajoute des flêches à chaque segment pour montrer la direction

Fig. 65 ShowDirection

procedure Slice(ALat,ALng,BLat,BLng:double;Line: TECShapeLine);

Copier dans Line la partie délimitée par les coordonnées géographique
Si ces points ne sont pas sur la ligne, ils sont remplacés par les points les plus proches situés sur le ligne

function Slice(ALat,ALng,BLat,BLng:double;GroupName: string = ''): TECShapeLine;

Retourne une ligne composée de la portion délimitée par les coordonnées géographique
Si ces points ne sont pas sur la ligne, ils sont remplacés par les points les plus proches situés sur le ligne

procedure Slice(const StartIndex,EndIndex : integer;Line : TECShapeLine);
Copier dans Line la partie délimité par les segments StartIndex et EndIndex

function Slice(const StartIndex,EndIndex:integer;GroupName:string=''):TECShapeLine;
Retourne une ligne composée de la portion délimité par les segments StartIndex et EndIndex

procedure Slice(const StartKm,EndKm : double;Line : TECShapeLine);
Copier dans Line la partie débutant au kilomètre StartKM et finissant au kilomètre EndKM

function Slice(const StartKm,EndKm : double;GroupName:string=''):TECShapeLine;
Retourne une ligne composée de la portion débutant au kilomètre StartKM et finissant au kilomètre EndKM

Fig. 66 slice - red color between 1.2 km and 3.8 kilometer

procedure Clear;

Efface les points

property Encoded: string ;

Encode / Decode le polyline en utilisant l'algorithme de google ( developers.google.com/maps/documentation/utilities/polylinealgorithm )

property EncodePrecision: byte;

Précision d'encodage, par défaut 5 décimales (180.00000 to -180.00000)

procedure Delete(index: integer);

Supprime un segment de la ligne

function Count: integer;

Indique le nombre de segment

property Weight: byte

Épaisseur de la ligne

property BorderSize : integer

Épaisseur de la bordure

property BorderColor : TColor

Couleur de la bordure

property HoverBorderColor : TColor

Couleur de la bordure au survol de la souris

Fig. 67 Bordure noire de 2 pixels

property PenStyle : TPenStyle

type de trait psSolid, psDash, psDot, psDashDot et psUserStyle sont disponibles

En utilisant psUserStyle et setCustomDash([len_dash,len_space,..,len_dashx,len_spacex]) vous pouvez créer votre schéma de traits

Vous pouvez animer les traits.

property LineType : TECLineType

Type de ligne : ltStraight ligne droite entre chaque point, ltBezier pour tracer des courbes de bézier

Fig. 68 Penstyle := psDashDot - LineType := ltBezier

procedure getAltitudes(Event: TOnGetAltitude = nil);

Calcule les altitudes des points, vous pouvez lui passer une procédure de type TOnGetAltitude pour pouvoir afficher une barre de progression (voir DemoNativeRoute)

function getLatLngFromMeter(const SensStartEnd: boolean;
const lMeter: longint; var dLatitude, dLongitude: double;
var idPoint: integer; var Heading: integer; var bEnd: boolean): boolean;

Calcule la latitude et la longitude d'un point sur la line/polygone en fonction de sa distance en mètres, retourne True si on a trouvé un point

SensStartEnd sens du parcours, true pour départ -> arrivée

lMeter la distance en mètre

dLatitude,dLongitude des variables de type double qui recevront la latitude et la longitude

idPoint une variable qui contiendra l'indice dans le tableau Path où se situe le point, le calcul retourne une approximation car votre polyline/polygone ne comporte par l'ensemble des points réels

Heading une variable qui contiendra l'angle du point par rapport au nord (de 0 à 360°)

bEnd indique si l'on a atteind ou dépassé la fin du polyline/polygone(ou le début suivant le sens)

property HoverPoint: integer read FHOverSeg;

Index du segment pointé par la souris

property Path[index: integer]: TECPointLine

Tableau contenant l'ensemble des points de la ligne

property PathIndexChange: integer

Indique l'index du point qui a été ajouté,supprimé ou déplacé

property PathChange : TPathChange

Indique la nature du changement : pcDelete, pcAdd ou pcMove

function Distance : double;

Indique la distance totale de la ligne en km

function DistanceDistanceBetweenIndexPoint(const idxA,idxB: integer): double;

Retourne la distance en km entre 2 points de la ligne

function DistanceBetween(ALat,ALng,BLat,BLng:double): double ;

Retourne la distance entre 2 points géographique situés sur la ligne.

Si les points ne sont pas sur la ligne, ils sont remplacés par les 2 points de la ligne les plus proches.

property Duration : integer;

Si la ligne représente un itinéraire (route) indique la durée du trajet.

property NorthEastLatitude: double

Latitude du coin supérieur droit de la boite englobant la ligne

property NorthEastLongitude: double

Longitude du coin supérieur droit de la boite englobant la ligne

property SouthWestLatitude: double

Latitude du coin inférieur gauche de la boite englobant la ligne

property SouthWestLongitude: double

Longitude Latitude du coin inférieur gauche de la boite englobant la ligne

property ShowText : boolean

Si la ligne représente une route permet d'afficher les diverses étapes

property Shapes : TECShapes

Si la ligne représente une route donne accès aux formes qui signalent les étapes

Les points de départ et d'arrivée sont représentés par des TECShapePOI, les autres points intermédiaires sont des TECShapeMarker

L'exemple ci-dessous permet de modifier l'affichage des points de départ et d'arrivée.

Fig. 69 Ajout de drapeaux pour le départ et l'arrivée

Mode édition

property Editable : boolean

Rend éditable la ligne ou le polygone, un click long sur un point le supprime, un double clic sur un segment ajoute un point, l'élément est déplaçable à la souris, faites un clic droit sur le dernier point pour quitter le mode d'édition

Utilisez la propriété EditShadowLine de votre carte pour cacher ou modifier la trace de la future ligne.
La carte possède aussi une propriété EditShape de type TECShape qui contient l'élément en cours d'édition.

Fig. 70 Lines & Polygones editable

Cela ne permet que des tracés rectilignes, pour modifier une route cela demande juste 2-3 lignes de codes supplémentaires.
Vous pouvez aussi définir un tracé à main levée.

Par défaut les points de sélection sont représentés par un carré noir pour le point de départ, un carré blanc pour le point final et un rond blanc pour les points intermédiaires.

Fig. 71 Edit line

Utilisez les propriétés FilenameStartEditLine, FilenameEndEditLine, FilenamePointEditLine de votre carte pour changer les bitmaps

Vous pouvez prendre en charge la création des points de sélection en utilisant la propriété OnCreateShapeLinePoint

Fig. 72 Modification de l'apparence des points d'une TECShapeLine

property OnShapePathChange : TNotifyEvent

Permet d'être informé lorsque le tracé de la ligne change.

Sélectionner une portion de la ligne

Pour pouvoir sélectionner une portion de votre ligne à la souris ou par code, utilisez la classe TecNativeLineSelect (unité uecEditNativeLine)

Fig. 73 Sélection d'une partie d'une ligne ou d'un polygone

Survolez la ligne et cliquez sur le point de sélection pour le valider, recliquez dessus pour le supprimer, l'événement OnSelect est déclenché dès la pose du second point

Vous pourrez alors créer une ligne ou un polygone avec SelectionTo, ou accèder directement aux points sélectionnés avec Selection[x]

Utilisez SelectionFrom(ALat,ALng,BLat,BLng) pour sélection le segment par code.

Ligne géodésique

Une géodésique est le chemin le plus court entre deux point, utilisez la fonction AddGeodesicLine pour en créer une.

function TNativeMapControl.AddGeodesicLine(const SLat,SLng,ELat,ELng:double;
const GroupName: string = '';
const maxSegmentLength:integer=5000): TECShapeLine;

Il vous faut au minimum indiquer les coordonnées de deux points.

maxSegmentLength défini la taille maximale, en mètres, des segments intermédiaires.

var line:TECshapeLine;
PtA,PtB : TECShapeMarker;
...

PtA := map.shapes.Markers[0];
PtB := map.shapes.Markers[1];
line := map.AddGeodesicLine(PtA.Latitude,ptA.Longitude,ptB.Latitude,ptB.Longitude);

Fig. 74 geodesic line

Enregistrer son déplacement

Le but de cet exemple est d'enregistrer son déplacement dans une TECShapeLine, un triangle pointant dans la direction du déplacement indiquera la position actuelle.

Météo

En utilisant les services d'OpenWeatherMap.org vous pouvez afficher la météo le long de votre TECShapeLine.

Fig. 75 Weather on the road

Vous devez tout d'abord obtenir une clef pour utiliser l'api d'OpenWeatherMap

Consulter la demo RouteWeather pour plus d'informations sur la façon d'utiliser l'api d'OpenWeatherMap.

Aller à la page