[Résolu] Clic sur image et survol
Posté par toco le 6/12/2006 12:13:08
Bonjour,
Petit soucis avec un champ image.
Je récupère les couleurs d'une image afin d'afficher au survol le nom de la ville et par clic afficher les disponibilités de personne sur cette ville.
Cela fonctionne pour 3 villes mais pas pour les autres (48 villes au total).
Voici les codes:
Merci de votre.
J'ai essayer avec d'autres couleurs, mais même probléme.
Petit soucis avec un champ image.
Je récupère les couleurs d'une image afin d'afficher au survol le nom de la ville et par clic afficher les disponibilités de personne sur cette ville.
Cela fonctionne pour 3 villes mais pas pour les autres (48 villes au total).
Voici les codes:
//Procédure locale
FONCTION FCOUL(Couleur)
// La valeur de filtre correspond au profil binaire hexa: FFF8F8F8
// (chaque couleur est filtrée des bits 40h, 1, 2 et 4)
RENVOYER ETBinaire(Couleur,0xFFF8F8F8)
//clic sur Img1
//recuperation des coordonnées
X,Y sont des entiers
X = SourisPosX()
Y=SourisPosY()
// recupère la couleur sur l'image en couleur
ncouleur est un entier =dPixelCouleur(carte_couleur,X,Y)
SELON FCOUL(ncouleur)
CAS FCOUL(RVB(255,153,0))
CS=("NARBONNE")
alim_liste_nom_table()
CAS FCOUL(RVB(255,204,153))
CS =("CARCASSONNE")
alim_liste_nom_table()
CAS FCOUL(RVB(6,55,96))
CS=("GRUISSAN")
alim_liste_nom_table()
CAS RVB (104,17,2)
CS="PORT LA NOUVELLE"
alim_liste_nom_table()
CAS RVB (164,164,255)
CS="LAURE"
alim_liste_nom_table()
CAS RVB(55,55,255)
CS="AZILLE"
alim_liste_nom_table()
CAS RVB(15,15,255)
CS = "LAREDORTE"
alim_liste_nom_table()
CAS RVB (255,128,0)
//Au survol
//recuperation des coordonnées
X,Y sont des entiers
X = SourisPosX()
Y=SourisPosY()
// recupère la couleur sur l'image en couleur
ncouleur est un entier =dPixelCouleur(carte_couleur,X,Y)
SELON FCOUL(ncouleur)
CAS FCOUL(RVB(255,153,0))
MoiMême..CurseurSouris = curMain
MoiMême..Bulle =("NARBONNE")
CAS FCOUL(RVB(255,204,153))
MoiMême..CurseurSouris = curMain
MoiMême..Bulle =("CARCASSONNE")
CAS FCOUL(RVB(6,55,96))
MoiMême..CurseurSouris = curMain
MoiMême..Bulle =("GRUISSAN")
CAS RVB (104,17,2)
MoiMême..CurseurSouris = curMain
MoiMême..Bulle ="PORT LA NOUVELLE"
CAS RVB (164,164,255)
MoiMême..CurseurSouris = curMain
MoiMême..Bulle ="LAURE"
CAS RVB(55,55,255)
MoiMême..CurseurSouris = curMain
MoiMême..Bulle ="AZILLE"
CAS RVB(15,15,255)
MoiMême..CurseurSouris = curMain
MoiMême..Bulle = "LAREDORTE"
CAS RVB (255,128,0)
MoiMême..CurseurSouris = curMain
MoiMême..Bulle ="BIZE"
Merci de votre.
J'ai essayer avec d'autres couleurs, mais même probléme.
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4809&post_id=19960