Discussion :

[forstera]

Bonjour à tous,

J'ai une fenêtre interne affichée plusieurs fois (cf image ci-dessous). Ces fenêtre sont remplies par programmation. Pour cela, j'ai créé une procédure locale AfficheMaTableLecons() à ma fenêtre interne qui remplit mon champ table.
Lorsque je modifier une valeur dans un champ, je demande à l'utilisateur s'il faut le modifier pour chaque fenêtre. Le cas échéant, je souhaite ensuite réafficher les fenêtres avec les nouvelles valeurs.



La solution la moins élégante consisterait à supprimer les fenêtre est les réafficher. Mais j'aimerais essayer de régénérer l'affichage de chaque Fenêtre interne. A l'intérieur de l'événement "Demande de mise à jour de l'affichage de FI_MaFenetre", j'ai simplement insérer le code

Code :

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

AfficheMaTableLecons()

Je souhaite maintenant déclencher l'événement et c'est là que je bloque ...

j'ai tenté de connaitre le nombre de widgets disposé sur mon champ tableau de bord
puis (j'ai essayé plusieurs syntaxes)

Code :

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

1
2
3
4
5
6
7
8
9
10
nBwidgets est un entier
nIndice est un entier
nBwidgets = FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs.Occurrence(toTotal)
 
POUR nIndice = 1 À nBwidgets
//	FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs[nIndice].ExécuteTraitement(AfficheMaTableLecons(),trtProcédure)
//	FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs.ExécuteTraitement()
//	FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs(inndice).affiche()
	ExécuteTraitement(FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs(nindice).AfficheMaTableLecons,trtProcédure)
FIN

mais rien de valide pour l'instant...
si quelqu'un à une idée, je suis preneur
Merci d'avance

[Narwe]

Je n'ai pas réussi à appeler l'événement de mise à jour de l'affichage (j'ai essayé avec un PostMessage(Handle(MaFenêtre), WM_SIZE, 0, 0) sans succès)
Donc j'ai créé un autre événement, propre à l'application.

Le bouton pour réafficher l'affichage contient ce code :

Code :

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

PostMessage(Handle(MaFenêtre), 1500, 0, 0)

Sur les fenêtres internes, j'ai ce code

Code :

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

1
2
3
4
5
6
Evénement("testaff", "*.*", 1500)
 
PROCÉDURE testaff()
 
Trace("hop", MoiMême..Nom)
MaFenêtreInterne..CouleurFond	= VertPastel

Que le bouton soit placé sur la fenêtre mère ou les fenêtres filles, cela semble fonctionner.
Le 1500 est une valeur arbitraire. Windev conseille dans l'aide de la fonction "événement" d'utiliser une valeur comprise entre "WM_USER + 1300" à "WM_USER + 1400" où WM_USER = 1024).

J'utilise PostMessage mais cela dirait aussi fonctionner avec SendMessage (mais SendMessage est bloquant tant que le message n'est pas traité donc cela pourrait être problèmatique)

[Voroltinquo]

Bonjour,
Pourquoi ne pas tout simplement utiliser TDBAffiche ?
La 2° syntaxe te permet même de ne raffraichir qu'une classe (e.g. via un clic droit)

[forstera]

Merci à vous deux, je vais tenter vos différentes options et mettre le(s) résultats.

La problématique que j'avais était d'atteindre une fenêtre interne en particulier. Je n'avais, me semble-t-il, pas d'autre option que de travailler avec son indice.. je vous redis.
Merci à tous

[kunnskap]

Comme le disait @Voroltinquo, TDBAffiche() avec les codes adéquats placés dans les évènements "Rafraichissement du Widget" de chaque fenêtre interne devraient bien aller.

[forstera]

Comme le disait @Voroltinquo, TDBAffiche() avec les codes adéquats placés dans les évènements "Rafraichissement du Widget" de chaque fenêtre interne devraient bien aller.

Ok merci mais la problématique que j''ai est : comment déclencher depuis "l'extérieur' le rafraichissement des différents Widgets

[tbc92]

Je viens de tester ceci :

Code :

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

1
2
3
4
5
6
7
8
j, i est un entier 
i = TDBOccurrence(TableauDeBord1,toAffichée)
ch est une chaîne 
POUR j = 1 À i
	ch = TableauDeBord1[j]..Nom
        trace ( ch) 
	ExécuteTraitement(ch, trtInit)
FIN

Ceci exécute la procédure Init de chaque widget (= la portion de code qu'il y a sous la bannière 'fin d'initialisation de fi_xxxxx')
Je n'ai pas trouvé comment pointer la portion de code sous 'demande de mise à jour de l'affichage de fi_xxxxx'.

Variante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
j, i est un entier 
i = TDBOccurrence(TableauDeBord1,toAffichée)
ch est une chaîne 
Info(i)
POUR j = 1 À i
	ch = TableauDeBord1[j]..Nom
	ExécuteTraitement(ch, trtInit)
	ch = ch + ".FF_TEST"
	QUAND EXCEPTION DANS 
		ExécuteTraitement(ch , trtProcédure)
	FAIRE
		trace (  ch+ " inexistant")
	FIN
FIN

Si la procédure FF_TEST existe dans le widget , elle est exécutée, sinon on a juste le message d'info pour dire qu'elle n'existe pas.

Ici, je boucle sur tous les Widgets, mais évidemment, on n'est pas obligé.

[forstera]

Wow !

ça l'air génial, je vais tester tout ça, merci beaucoup

je butais sur cette syntaxe que je n'arrivais pas à trouver ...

Code :

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

ch = TableauDeBord1[j]..Nom

[forstera]

J'ai donc testé la solution de tbc92 (que je remercie encore) , à savoir :

Code :

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

1
2
3
4
5
6
7
8
j, i est un entier 
i = TDBOccurrence(TableauDeBord1,toAffichée)
ch est une chaîne 
POUR j = 1 À i
	ch = TableauDeBord1[j]..Nom
        trace ( ch) 
	ExécuteTraitement(ch, trtInit)
FIN

Mais cela ne fonctionne pas chez moi.. enfin cela fonctionne mais seulement pour le premier Widget.
Sachant que mes widgets sont tous basés sur une Fenêtre interne, la commande

Code :

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

 ch = TableauDeBord1[j]..Nom

me donne toujours la même valeur, à savoir le nom de ma fenêtre interne de base
L'exécution du traitement se déroule bien ensuite, mais uniquement sur le premier widget qui porte ce nom... donc toujours le premier widget.

j'ai donc essayé de stipuler l'indice du Widget pour l'exécution du traitement mais cela me génère une erreur :

Code :

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

ExécuteTraitement(FEN_CreationNouvelleAnnee.TableauDeBord[nIndice],trtInit)

[tbc92]

... erreur.

[forstera]

Finalement, j'ai repris la solution de Voroltinquo et cela fonctionne.

j'ai donc un parcours des widgets par leur indice selon la proposition de tbc92 et pour chacun, j'exécute la commande TDBAffiche

Code :

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

1
2
3
4
5
nBwidgets = FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs.Occurrence(toTotal)
 
POUR nIndice = 1 À nBwidgets
	TDBAffiche(FEN_CreationNouvelleAnnee.TDB_DetailCoursEffectifs,nIndice)
FIN

Dans ma fenêtre interne, sous l'événement 'Rafraichissement du widget FI_MaFenetreInterne j'ai simplement un appel à une procédure

Code :

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

AfficheLecons()

et dans cette procédure, je vide mon champ table et je le reconstruit (pour rappel, ce dernier est rempli par programmation)

Merci à tous pour votre aide et votre temps

[forstera]

... erreur.

Merci pour ta grande analyse que j'ai reçue ..

En fait je n'ai pas de champs fenêtre interne mais un tableau de bord sur lequel sont ajoutées mes fenêtre internes (la quantité est variable) ...

Merci encore pour ton temps

[Voroltinquo]

Tu peux même éviter la boucle en écrivant tout simplement :

Code :

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

1
2
 
TDBAffiche(TDB_DetailCoursEffectifs)

Remarque
Il est inutile de préfixer les champs quand il n'y a pas d'ambigüité possible.

[forstera]

Tu peux même éviter la boucle en écrivant tout simplement :

Code :

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

1
2
 
TDBAffiche(TDB_DetailCoursEffectifs)

Remarque
Il est inutile de préfixer les champs quand il n'y a pas d'ambigüité possible.

.. donc sans préciser de widget, cela signifie-t-il que tous seront concernés par défaut ?

[Voroltinquo]

C'est cela. Quelle que soit la syntaxe, le 2° paramètre est optionnel et, je cite :

Si ce paramètre n'est pas précisé, toutes les fenêtres internes/pages internes manipulées par le champ Tableau de bord seront mises à jour.

[forstera]

C'est cela. Quelle que soit la syntaxe, le 2° paramètre est optionnel et, je cite :

Ok, super, merci pour ta précieuse aide