PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Icone sur Menu
Icone sur Menu
Iniciado por soyezd, 24,abr. 2019 10:44 - 5 respuestas
Miembro registrado
69 mensajes
Publicado el 24,abril 2019 - 10:44
Bonjour
je suis actuellement bloque sur l'insertion d'une icone dans un menu
j'explique mon PB
j'ai une table (liensinternet) avec 4 champ numfic,libellé,url,icone que j'arrive bien à alimenter
dans la page principal de mon projet j'ai un menu "INTERNET" que j'alimente avec ma table via le code suivnant

nToto est un entier
xd est un entier
nToto=HNbEnr(liensinternet)
xd=1
BOUCLE (nToto)
HLitRecherche(liensinternet,numfic,xd)
SI HTrouve(liensinternet) ALORS
gsnewliens="OPT_Liens"+liensinternet.numfic
MenuAjouteOption("OPT_Internet", gsnewlien,liensinternet.libéllé,lectureinternet,xd)
// ICI JE VEUX AJOUTER L'ICONE DU LIBELLé
xd=xd+1
SINON
FIN

FIN

cela fonctionne bien et voici un capture d'ecran





par contre je n'arrive pas a mettre icône devant le libellé du menu
si je rajoute la ligne
{gsnewliens,indChamp}..Image = liensinternet.icone

rien ne se passe aucune erreur et encore moins d’icône
je précise que je ne suis pas un programmeur chevronné et que je me débrouille tout simplement
je demande de l'aide donc a cette grade communauté

cordialement

Didier
Miembro registrado
2.321 mensajes
Publicado el 24,abril 2019 - 11:16
Bonjour,

Ce que vous cherchez à faire ne me semble juste pas possible…
La partie à gauche du libellé est faite pour avoir une coche, pas une image ;(

--
Bon dev,
Jean-Pierre
Mensaje modificado, 24,abril 2019 - 11:17
Miembro registrado
69 mensajes
Publicado el 24,abril 2019 - 11:39
Bonjour et Merci Jean Pierre

pourtant en dur dans l'iHM on peut faire !




Mensaje modificado, 24,abril 2019 - 11:41
Publicado el 24,abril 2019 - 14:03
Bonjour,

J'ai pas essayé mais essayer comme pour les combos
MenuAjouteOption("OPT_Internet", gsnewlien, gImage(CIcon.getIconDir() + "ML_Personne.bmp") + " " + liensinternet.libéllé, lectureinternet,xd)

Bonne journée
Stef
Miembro registrado
2.321 mensajes
Publicado el 24,abril 2019 - 14:06
OUPS !

Je confirme :
https://doc.pcsoft.fr/fr-FR/?1010009&name=caracteristiques_des_options_menu
"• Pour connaître et/ou modifier l'image associée à une option de menu, utilisez la propriété ..Image."
et
https://doc.pcsoft.fr/fr-FR/?1010007&name=manipuler_les_options_menu_par_programmation
Propriétés du WLangage spécifiques aux options de menu :
"Image : Permet de connaître et de modifier l'image d'une option de menu"

Pour TOUT liensinternet
gsnewliens="OPT_Liens"+liensinternet.numfic
MenuAjouteOption("OPT_Internet", gsnewliens, liensinternet.libéllé)
// ICI JE VEUX AJOUTER L'ICONE DU LIBELLé
// Extrait l'image sur le disque
SI HExtraitMémo(liensinternet, Icône , "C:\PHOTOS\MonImage.JPG", hMemoImg) ALORS
{gsnewliens, indChamp}..Image = "C:\PHOTOS\MonImage.JPG"
FIN
FIN

Je pense que le problème est là :
"<Nouvelle image> : Chaîne de caractères (avec guillemets)
Nom et chemin complet de la nouvelle image de fond associée à l'objet spécifié. Un chemin de type UNC peut être utilisé. "
Il faut stocker temporairement l'image en Local.

--
Bon dev,
Jean-Pierre
Mensaje modificado, 24,abril 2019 - 14:14
Miembro registrado
69 mensajes
Publicado el 24,abril 2019 - 16:01
Merci Stepf et Jean pierre

la solution faire par jean pierre Fonctionne bien

merci encore a vous deux

Cordialement