OVH Cloud OVH Cloud

[WD75] Bouton aide glissé

3 réponses
Avatar
Roumegou
Jamais fait avec WD.
Je voudrais faire un bouton d'aide contextuel. On clique sur le bouton
et l'on déplace un curseur sur une zone.
Et je vais lire dans une table s'il y a de l'aide associé à cette zone.

Un bout de code tout fait ????
Merci de vos réponses

--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)

3 réponses

Avatar
Roumegou
Après mure réflexion, Roumegou a écrit :
Jamais fait avec WD.
Je voudrais faire un bouton d'aide contextuel. On clique sur le bouton et
l'on déplace un curseur sur une zone.
Et je vais lire dans une table s'il y a de l'aide associé à cette zone.

Un bout de code tout fait ????



Et bien cela déchaîne les passions ;-))

Merci de vos réponses



Et bien j'ai réussi comme un grand Na ! C'est vrai que Windev pour ce
genre de choses depuis la 7.5, c'est génial.
Mais ...

Mon bouton marche bien. Le curseur se change bien en point
d'interrogation (curAide) et quand je clique dans ma zone, j'ai bien ma
fenêtre avec la doc.
Mon souci est qu'il faut que je colle le code dans chaque champs de
saisie
Bouton gauche Enfoncé (WM_LBUTTONDOWN) de MonChamp
SI MoiMême..CurseurSouris=curAide ALORS
Ouvre(VIEWDOCSUP,Rtv_DOCSUP(gOwner,MyTable,MoiMême..Nom))
EteintAideCtx()
FIN
Survol de la souris
SI MoiMême..CurseurSouris=curAide ALORS
MoiMême..Bulle="Cliquez dans le champs pour obtenir de l'aide"
FIN

--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Roumegou
(supersedes )

Après mure réflexion, Roumegou a écrit :
Jamais fait avec WD.
Je voudrais faire un bouton d'aide contextuel. On clique sur le bouton et
l'on déplace un curseur sur une zone.
Et je vais lire dans une table s'il y a de l'aide associé à cette zone.

Un bout de code tout fait ????



Et bien cela déchaîne les passions ;-))

Merci de vos réponses



Et bien j'ai réussi comme un grand Na ! C'est vrai que Windev pour ce
genre de choses depuis la 7.5, c'est génial.
Mais ...

Mon bouton marche bien. Le curseur se change bien en point
d'interrogation (curAide) et quand je clique dans ma zone, j'ai bien ma
fenêtre avec la doc.
Mon souci est qu'il faut que je colle le code dans chaque champs de
saisie
Bouton gauche Enfoncé (WM_LBUTTONDOWN) de MonChamp
SI MoiMême..CurseurSouris=curAide ALORS
Ouvre(VIEWDOCSUP,Rtv_DOCSUP(gOwner,MyTable,MoiMême..Nom))
EteintAideCtx()
FIN
Survol de la souris (WM_MOUSEMOVE) de MonChamp
SI MoiMême..CurseurSouris=curAide ALORS
MoiMême..Bulle="Cliquez dans le champs pour obtenir de l'aide"
FIN

Et je me vois pas coller ça dans tous mes champs. Une idée pour
contourner cela ??

--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Pascal F
Le 21/07/2004, Roumegou a supposé :
(supersedes )

Après mure réflexion, Roumegou a écrit :
Jamais fait avec WD.
Je voudrais faire un bouton d'aide contextuel. On clique sur le bouton et
l'on déplace un curseur sur une zone.
Et je vais lire dans une table s'il y a de l'aide associé à cette zone.

Un bout de code tout fait ????



Et bien cela déchaîne les passions ;-))

Merci de vos réponses



Et bien j'ai réussi comme un grand Na ! C'est vrai que Windev pour ce genre
de choses depuis la 7.5, c'est génial.
Mais ...

Mon bouton marche bien. Le curseur se change bien en point d'interrogation
(curAide) et quand je clique dans ma zone, j'ai bien ma fenêtre avec la doc.
Mon souci est qu'il faut que je colle le code dans chaque champs de saisie
Bouton gauche Enfoncé (WM_LBUTTONDOWN) de MonChamp
SI MoiMême..CurseurSouris=curAide ALORS
Ouvre(VIEWDOCSUP,Rtv_DOCSUP(gOwner,MyTable,MoiMême..Nom))
EteintAideCtx()
FIN
Survol de la souris (WM_MOUSEMOVE) de MonChamp
SI MoiMême..CurseurSouris=curAide ALORS
MoiMême..Bulle="Cliquez dans le champs pour obtenir de l'aide"
FIN

Et je me vois pas coller ça dans tous mes champs. Une idée pour contourner
cela ??



Bonjour,
Une solution que j'utilise pour afficher une aide dans un panneau
d'info lors du survol des champs:


dans l'initialisation de la fenetre, mais pour ton cas peut être
initialisé par l'appui sur le bouton d'aide
//Branchement de l'évènement de survol des champs qui affiche
l'utilisation du champ et on débranche les bulles d'aide
intEvenement=Evénement("Survol_champ", ".*", WM_MOUSEMOVE)
BulleActive(Faux)

proedure survol_champ:
// Description des paramètres d'entrée/sortie de 'Survol_champ' :
//
// Syntaxe :
//Survol_champ ()
//
// Paramètres :
// Aucun
// Valeur de retour :
// Aucune
// Notes :
// Cette procédure permet d'afficher dans le panneau gauche le
descriptif de l'action
// a prendre sur le champ survolé.
// Précisez les cas particuliers et les limites.
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
// Aucune documentation n'a été saisie par le concepteur (PF)
PROCEDURE Survol_champ()
cNomChamp est une chaîne

cNomChamp=MoiMême..Nom
SI {cNomChamp}..Bulle<>"" ALORS
SI {cNomChamp}..Type=typBouton ALORS
Titre_Info..Libellé=RC+"Ce bouton permet de :"
SINON
Titre_Info..Libellé=RC+"Vous allez saisir :"
FIN
Panno_Info..Libellé={cNomChamp}..Bulle
SINON
Titre_Info..Libellé=RC+"Vous allez saisir :"
Panno_Info..Libellé=Panno_Info..Note
FIN


je mets mon aide dans les bulles par l'éditeur, mais tout autre méthode
est possible. Tire_Info est un champ de titre pour l'aide. Si aucune
aide dans la propriété ..Bulle, un texte générique stocké dans
Panno_Info..note est affiché.

Voilà. Enespérant que celà corresponde à ton besoin.

--
Pascal Ferracci
efpé