PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Déplacement de la carte aprés création d'un marqueur
Déplacement de la carte aprés création d'un marqueur
Started by Sauveur CONSALVI, Nov., 24 2021 12:22 PM - 3 replies
Registered member
372 messages
Popularité : +7 (7 votes)
Posted on November, 24 2021 - 12:22 PM
Bonjour,
Pour créer un marqueur, dans l'événement Bouton Droit Enfoncé, j’ appel une fenêtre pour saisir des élément, puis je crée le marqueur à partir de ces éléments
Cela marche, mais après la création du marqueur le curseur est en forme de main qui tient un objet, et du coup la carte bouge lors du déplacement du curseur

Si je fais la même chose dans l'événement Bouton Gauche Enfoncé, je n'ai pas cet inconvénient, mais .... je n'ai plus la description du marqueur au survol, et je ne peux plus cliquer sur le marqueur !!!

Si je crée le marqueur à partir d'un bouton, je n'ai pas cet inconvénient, mais dans ce cas il faut renseigner la latitude et la longitude, car ils n'aurons pas été détectés automatiquement sur la carte ......

Donc mon souhait est que lorsque l'utilisateur utilise un événement de la carte, il puisse faire une saisie dans une fenêtre, que le marqueur soit créé, mais que la carte ne bouge pas au déplacement du curseur

l'événement Bouton Droit Enfoncé convient très bien, si j'arrive à trouver le moyen de ne pas avoir un curseur de déplacement en fin de traitement

Voici le code sur l'événement Bouton Droit Enfoncé
geoPositionSurvolée est un geoPosition = CarteInfoXY(CARTE_Trajet, SourisPosX, SourisPosY)
gMonMarqueur.Position = geoPositionSurvolée
grLatitude = geoPositionSurvolée.Latitude
grLongitude = geoPositionSurvolée.Longitude
gbMarqueurCreation =Faux
Ouvre(FEN_Arret,Faux,grLatitude,grLongitude)
SI gbMarqueurCreation=Vrai ALORS
gbMarqueurCreation=Faux
// Définit le marqueur
gPosition.Latitude = grLatitude
gPosition.Longitude = grLongitude
gMonMarqueur.Position = gPosition
gMonMarqueur.ActionClic = ProcédureClicMarqueur
gMonMarqueur.Nom = gsMarqueurNom
gMonMarqueur.Description = gsMarqueurDescription
SELON gsMarqueurType
CAS "Départ"
gMonMarqueur.Image = IMG_MarqueurVert
CAS "Arrêt"
gMonMarqueur.Image = IMG_MarqueurBleu
CAS "Terminus"
gMonMarqueur.Image = IMG_MarqueurRouge
AUTRE CAS
FIN
// Ajoute le marqueur
CarteAjouteMarqueur(FEN_Carte.CARTE_Trajet,gMonMarqueur)
// Renseigne la table pour l’itinéraire
Ajoute(gtabPositions, gPosition) // Pour tracer l'itinéraire
FIN

Cordialement
SC

--
Cordialement
SC
Registered member
2,571 messages
Popularité : +222 (260 votes)
Posted on November, 24 2021 - 12:25 PM
Bonjour,

A tout hasard, as tu essayé sur l'événement relâché plutôt que enfoncé ?

--
Cordialement,

Philippe SAINT-BERTIN
Registered member
372 messages
Popularité : +7 (7 votes)
Posted on November, 25 2021 - 7:51 PM
Bonsoir,
Non, mais pourquoi pas, je vais essayer, merci
Cordialement
SC

--
Cordialement
SC
Registered member
372 messages
Popularité : +7 (7 votes)
Posted on November, 26 2021 - 10:57 AM
Bonjour,
Bravo, çà marche !
Encore merci
Cordialement
SC

--
Cordialement
SC