Discussion :

[Mophus]

Bonjour,

comment faire clignoter le libellé d'un bouton, au survol de celui-ci, pour attirer l'attention de l'utilisateur; Est-ce possible sur WD17 ?
J'ai vu que cela était paramétrable pour un champ libellé mais je n'ai pas trouvé pour un bouton.
merci par avance

[hpascal]

Bonjour

Ça se fait très facilement par un timer

[Mophus]

Bonjour,

Surement quand on sait déclarer le survol de la souris et le timer.
Ce qui n'est pas mon cas.
Si tu pouvais m'orienter un peu cela pourrait m'aider, je rame dans les recherches de l'aide WD et n'ai rien trouvé à ce propos sur l'aide en ligne.
Merci par avancce

[Invité]

Bonjour, pour le survol, clic droit sur un bouton, code, tu cliques sur les 3 points de suspension, tu coches les options "entrée en survol" et "sortie du survol".

[hpascal]

Pour le survol c'est un évènement accessible dans le code du bouton. Sélectionne le bouton et fait F2 ou clique droit "Code", comme indiqué par romulus001
Certains évènements sont déjà affichés (initialisation, clic..), il suffit de cocher les autres en bas de cette fenêtre.
Dans ton cas "entrée en survol" et "sortie du survol"

En entrée du survol il faut démarrer le timer (TimerSys) et l'arrêter en sortie (FinTimerSys)

TimerSys va lancer une procédure qui va, à intervalle régulier, changer la couleur de ton bouton

Si tu es programmeur, tu sais ce que c'est qu'un timer et un évènement. Si ce n'est pas le cas il faut le préciser dans ton message

[Mophus]

Bonjour,

Merci pour votre aide.
Je ne suis pas programmeur seulement un amateur de WD, qui essaye de développer une gestion de commande (exemple WD17) amélioré gestion commerciale ( autre exemple WD17). Avec gestion des devis, des stocks ne figurant pas dans l'exemple gestion de commande avec un autre style d'IHM et des options qui me paraissent manquer dans ces exemples et pour mes besoins.
Je développe cette appli. pour ma compagne qui monte une entreprise commerciale. Donc j'essaye de faire au mieux et de sécuriser l'utilisation de cette appli.
Je suis à mille lieues de me considérer "programmeur" et n'ai aucune prétention dans ce sens.

[Mophus]

Bonjour,

Il y a apparemment une procédure à créer, je ne sais pas si elle doit être locale ou globale, ni ce qu'il faut y mettre dedans comme code ????
C'est la galère pour un truc qui doit être évident mais pas pour moi...

[hpascal]

Ok
C'est pour ça que c'est important de préciser, ça permet à ceux qui répondent d'adapter leur réponse

Il y a toujours plusieurs façons de faire. En voici un exemple uniquement par programmation (car on peut aussi utiliser les automatismes de procédures par exemple)

Tous les codes sont déclarés dans la fenêtre qui contient le bouton Bt_Test

*** "Déclarations globales" de la fenêtre ***

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
eNumTimer est un entier	// Un numéro pour le timer (qui sera retourné par Timersys)
eDureeTimer est un entier = 50	// fréquence en centièmes de seconde

*** "Entrée en survol" de Bt_Test ***

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
// On lance le timer qui appelle la procédure locale PL_Clignotement à intervalle régulier (eDureeTimer)
eNumTimer = TimerSys(PL_Clignotement, eDureeTimer)

*** "Sortie du survol" de Bt_Test ***

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
// On arrête le timer
FinTimerSys(eNumTimer)

*** Code de la procédure PL_Clignotement ***

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROCEDURE PL_Clignotement()
 
// On arrête le timer
FinTimerSys(eNumTimer)
 
// On change la couleur de texte
SI Bt_Test..Couleur = Noir ALORS
	Bt_Test..Couleur = RougeClair
SINON
	Bt_Test..Couleur = Noir
FIN
// Ce qui peut aussi s'écrire comme ça :  Bt_Test..Couleur = (Bt_Test..Couleur = Noir ? RougeClair SINON Noir)
 
// On relance le timer
eNumTimer = TimerSys(PL_Clignotement, eDureeTimer)

Je teste la couleur du bouton afin d’appliquer l'autre couleur, on pourrait aussi mémoriser l'état dans une globale, mémoriser la couleur à appliquer dans un tableau associatif etc ...
Là j'ai fais simple pour que tu vois le principe, ensuite c'est à adapter

On peut bien sur faire d'autre choses dans cette procédure : changer la couleur ou l'image de fond du bouton, rendre visible un autre champ, jouer un son etc ... les possibilités sont infinies

Je te souhaite une très bonne année et de bons développements

[Mophus]

Merci et bonne année à toi aussi,

le clignotement ne s'arrête pas en sortie de survol ???
J'ai reproduit tes données et pense ne pas m'être trompé.
La procédure finale doit être locale ? Je l'ai renommée BTN_CLI. et ai changé le timersys en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

eNumTimer = TimerSys(BTN_CLI, eDureeTimer)

Ainsi que BT_Test par BTN_Suppression libellé de mon BTN dans la procédure locale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROCEDURE BTN_CLI()
// On arrête le timer
FinTimerSys(eNumTimer)
 
// On change la couleur de texte
SI BTN_Suppression..Couleur = Noir ALORS
	BTN_Suppression..Couleur = RougeClair
SINON
	BTN_Suppression..Couleur = Noir
FIN
// Ce qui peut aussi s'écrire comme ça :  Bt_Test..Couleur = (Bt_Test..Couleur = Noir ? RougeClair SINON Noir)
 
// On relance le timer
eNumTimer = TimerSys(BTN_CLI, eDureeTimer)

[jurassic pork]

hello and happy new year,
chez moi en windev16 cela fonctionne. BTN_CLI est en procédure locale. Il n' y qu'un problème c'est quand on finit le survol, le texte du bouton peut rester en rouge. Il faut forcer dans la fin du survol le texte en noir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// On arrête le timer
FinTimerSys(eNumTimer)
BTN_Suppression..Couleur = Noir

Peux-tu mettre toutes tes procédures (entrée en survol, sortie de survol) et les déclarations globales de la fenêtre.

Ami calmant, J.P

[hpascal]

Ça fonctionne parfaitement sous Windev 17
Vérifie bien que tous les codes sont placés au bon endroit
La procédure est bien sur locale, sinon tu n'aurait pas accès au bouton Bt_Test (à moins de mettre le nom complet : NomFenetre.NomBouton)

Juste un détail en sortie de survol le bouton peut rester en rouge selon son état, il faut donc le remettre en noir en sortant

*** "Sortie du survol" de Bt_Test ***

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// On arrête le timer
FinTimerSys(eNumTimer)
Bt_Test..Couleur = Noir   // on restaure la couleur initiale en sortie du survol

PS : je viens de voir que jurassic pork a évoqué le texte qui peut rester en rouge à la sortie

[Mophus]

Merci à tous pour votre aide, cela fonctionne.
Bonne année 2016