[WD16] Surlignage d'un libellé [Résolu]

[GCASPIC10]

Bonjour,
Sans doute un cas d'école pour vous !

Je souhaite surligner l'un des libellés se trouvant dans la zone "incluant" à chaque sélection de ligne de la table au dessus.

1ère situation: A l'ouverture de la fenêtre, le surlignage en jaune de GAMBARO James correspond bien à une personne absente (voir ci-dessous).

x.jpg


2ème situation : Après la sélection d'une autre personne (fenêtre restée ouverte), le surlignage en jaune de BOURGOUIN Aurèle aurait dû être activée sur adhérent dans la zone "incluant" (voir ci-dessous).
Malheuresement, ce qui n'est pas le cas !

y.jpg

Finalement, le changement de surlignage de ces libellés ne se fera qu'à la fermeture puis à la réouverture de la fenêtre (le nom sélectionné ayant été mémorisé).

Pour info, l'appelant placé dans les 2 évènements de la dite table à :
- l'Initialisation de la table
- la Sélection d'une ligne de la table

Code :

PersonneAffichageLibellé(TABLE_PERSONNE.COL_Couleur,"FEN_TABLE_PERSONNES.LIB_Localisation","FEN_TABLE_PERSONNES.LIB_Titre")

Pour info, la procédure :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe : PersonneAffichageLibellé (<CouleurModifiée> est entier, <sLibelléConcernée> est chaîne, <sLibelléType> est chaîne)
// Paramètres : CouleurModifiée (entier) : <indiquez ici le rôle de CouleurModifiée>
//				sLibelléConcernée (chaîne) : <indiquez ici le rôle de sTableConcernée>
//				sLibelléType (chaîne) : <indiquez ici le rôle de sLibelléType>
//				sLibelléType (chaîne) : <indiquez ici le rôle de nLibelléType>
// Valeur de retour : 	Aucune
// Exemple : Indiquez ici un exemple d'utilisation.
//
PROCEDURE PersonneAffichageLibellé(CouleurModifiée est entier, sLibelléConcernée est chaîne, sLibelléType est chaîne)

// Pour le cas d'une archive
{sLibelléConcernée}..PoliceBarrée = Faux

// Surligne le type de personne activé
{sLibelléType+1}..CouleurFond = Transparent
{sLibelléType+2}..CouleurFond = Transparent
{sLibelléType+3}..CouleurFond = Transparent
{sLibelléType+4}..CouleurFond = Transparent
{sLibelléType+5}..CouleurFond = Transparent

SELON CouleurModifiée
	
	CAS 1 // Vert
		{sLibelléConcernée}..Couleur = VertFoncé
		{sLibelléConcernée}..Libellé = " Adhérent "
		sLibelléType = sLibelléType+"1"
		
	CAS 2 // Bleu
		{sLibelléConcernée}..Couleur = BleuFoncé
		{sLibelléConcernée}..Libellé = " Invité "
		sLibelléType = sLibelléType+"2"
				
	CAS 3 // Gris
		{sLibelléConcernée}..Couleur = GrisFoncé
		{sLibelléConcernée}..Libellé = " Externe "
		sLibelléType = sLibelléType+"5"
		
	CAS 4 //Rouge
		{sLibelléConcernée}..Couleur = RougeClair
		{sLibelléConcernée}..Libellé = " Absent "
		sLibelléType = sLibelléType+"3"
	
	CAS 5 //Rouge & Barré
		{sLibelléConcernée}..Couleur = RougeClair
		{sLibelléConcernée}..PoliceBarrée = Vrai
		{sLibelléConcernée}..Libellé = " Archivé"
		sLibelléType = sLibelléType+"4"		
		
	CAS 6 //Gris & Barré
		{sLibelléConcernée}..Couleur = GrisFoncé
		{sLibelléConcernée}..PoliceBarrée = Vrai
		{sLibelléConcernée}..Libellé = " Archivé"
		sLibelléType = sLibelléType+"5"
					
	AUTRE CAS
		SI gbTrace THEN Info ("Pas de personnes correspondante !")
FIN

// Surligne en jaune le type de personne sélectionnée
{sLibelléType}..CouleurFond = JauneClair

Le but n'étant pas de rafraichir la fenêtre en fermant et réouvrant celle-ci, Y a t'il un ordre de rafraichissement applicable après sélection d'une ligne ?

Merci à vous

[GCASPIC10]

Oups,

Juste pour info...

La couleur qui est passée en paramètre est une valeur enregistrée dans une colonne de la table et lue pour chaque personne sélectionnée.

Lorsque je suis le debug, la couleur du libéllé est bien orienté et passée en revue, mais au retour de la procédure, pas de changement... comme si un rafraichissement de la fenêtre était nécessaire, mais sur quel ordre ?

[miripesage]

Bonjour, MultitâcheRepeint() ou FenRepeint()

[GCASPIC10]

Ca ne marche pas ! Merci qu'en même

Dans "Sélection d'une ligne de Table_Personne"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Modifie l'enregistrement dans un fichier (Mémorise la personne nouvellement sélectionnée)
HLitRecherche(PARAMETRES,NomVariable,"gnPersonneEncours",hIdentique)
SI HTrouve() ALORS
	
	gnPersonneEncours = TABLE_PERSONNE.COL_IDPERSONNE..ValeurAffichée
	PARAMETRES.ContenuVariable = gnPersonneEncours
	HModifie(PARAMETRES)
	
FIN

// Renseigne et surligne le libellé de la personne en cours
PersonneAffichageLibellé(TABLE_PERSONNE.COL_Couleur,"FEN_TABLE_PERSONNES.LIB_Localisation","FEN_TABLE_PERSONNES.LIB_Titre")

//FenRepeint(FEN_Table_PERSONNES)
MultitâcheRepeint(FEN_Table_PERSONNES)

[frenchsting]

un simple tableaffiche(TABLE_PERSONNE) ?

[Nicolas_Jeanneau]

Bonjour,

dans chacun des cas, faire {sLibelléType+XXX}..CouleurFond = JauneClair devrait suffire.

à bientôt,

Nicolas

[GCASPIC10]

Sympa Frensting,

1°) ne perd pas de temps à répondre pour mettre çà !

2°) Tu n'a pas regardé les modèles miniaturisés...

Ce n'est pas une action sur la table que je souhaite, mais une action (affichage couleurfond) sur les 5 libellés affichés en dessous de cette table faisant suite bien sûr à une sélection d'une des personnes de la table.

[GCASPIC10]

Merci nicolas,

C'est ce que je fais, mais il n'y a pas rafraichissement du surlignage ... (obligé de fermer et reouvrir la fenêtre)

[GCASPIC10]

Excuses moi Frensting,

Je n'avais pas vu que ton message faisant appel à l'aide F1 et google était un générique...

[frenchsting]

No prob. L'erreur est humaine.

Question : à la fin de ton code de modification, pourquoi ne refaistu pas appel à ton code d'initialisation de ta table : executetraitement(table_personne,trtinit) ou le code (ou une partie) d'init de ta fenêtre te permettant de charger les infos (et couleurs) de ta table ?

[miripesage]

Bonjour, puisque le changement s'opère dès la réouverture de la table, ajouter ceci (à voir) :

Envoyé par GCASPIC10

Ca ne marche pas ! Merci qu'en même

Dans "Sélection d'une ligne de Table_Personne"

Code :

@Claude : même pensée, en retard ! Oups

[GCASPIC10]

Merci les amis,
j'ai trouvé et c'est vraiment très c..

Code :

1
2
3
4
// Remets à transparent le surlignage de l'ensemble des types de personne activés dans la zone "Incluant :"
{sLibelléType+"1"}..CouleurFond = Transparent
{sLibelléType+"1"}..Couleur = VertFoncé
{sLibelléType+"1"} = "Adhérent"

Il suffit de mettre les actions dans le bon ordre...

Parfois je mettais la couleur, puis le texte et ensuite le fond couleur et d'autre fois, je mettais le texte, la couleur puis le fond.

Windev ne tolère pas ce désordre et veut absolument le texte en fin d'action.

Donc, pour éviter tout problème, RESPECTONS cet ordre !

Ouf, j'ai tourné comme une bourrique sur ce coup là...

Sinon, pour info dans mon exemple, le tainit n'est pas nécessaire car je lit simplement le contenu de ma table (pas de modif ni ajout) uniquement pour faire afficher certains affichages visuels (couleur etc...).

Par contre, dès lors qu'il y a filtre, ajout ou modif, j'utilise tainit sans soucis.

BREF, tout va mieux là !
merci à tous

[Nicolas_Jeanneau]

Bonjour,

en fait ces lignes de codes ne font pas partie de ce que tu nous as mis dans tes posts donc on ne sait pas si c'est ce qui a corrigé ton problème. Pourrais-tu nous mettre ce que tu as maintenant ?

Merci,

Nicolas

[channibal]

Oui je voulais bien savoir ce que t'as changé exactement dans ton code, parce que javais le même problème avec les libellés ombres flou (pour un libellé simple ça marche sans problème)

[GCASPIC10]

Oui, en fait c'est même plus vicieux que celà car çà marchait et après quelques modif dans les textes de mes libellés à afficher (avec un surlignage changeant selon le choix de la personne), çà ne marchait plus...

Vous avez bien compris que le seul changement que je souhaitais faire etait un surlignage en jaune d'un texte libéllé et bien en plus il faut IMPERATIVEMENT changer le texte.

Je pense que c'est un bug et que pour mon cas par exemple ...

(Externe deviendra EXTERNE surligné en jaune) = Majuscule
ou
(Archivé devienfrait Achivé...) = différents caractères supplémentaires (... ou xxx)

Constat bizarre ! Faites l'essai et dites moi si c'est pareil pour vous !

[Nicolas_Jeanneau]

D'où la nécessité d'avoir le code que tu as mis dans ton projet pour savoir ce que tu as maintenant ....

[GCASPIC10]

Désolé Nico,

Et il est vrai que j'ai ce problème en utilisant l'ombre flou...

Donc pour finaliser le code ...

... à l'initialisation de la Table_PERSONNE
mais aussi
... à la sélection d'une ligne de la Table_PERSONNE

j'appelle la procédure suivante :

Code :

1
2
// Renseigne et surligne le libellé de la personne en cours
PersonneAffichageLibellé(TABLE_PERSONNE.COL_Couleur,"FEN_TABLE_PERSONNES.LIB_Titre")

La procédure de traitement du texte libéllé et de surlignage est la suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
// Résumé : Affiche tous les types de personne en fonction des options gbAfficheTout OU gbAdminTout et surligne le type de la personne sélectionnée)
// Syntaxe : PersonneAffichageLibellé (<CouleurModifiée> est entier, <sLibelléType> est chaîne)
// Paramètres :	CouleurModifiée (entier), 
//				sLibelléType (chaîne) : <indiquez ici le rôle de sLibelléType>
// Valeur de retour : Aucune
// Exemple : Indiquez ici un exemple d'utilisation.
//
PROCEDURE PersonneAffichageLibellé(CouleurModifiée est entier, sLibelléType est chaîne)

// Remets à transparent le surlignage de l'ensemble des types de personne activés dans la zone "Incluant :"
{sLibelléType+"1"}..CouleurFond = Transparent
{sLibelléType+"1"}..Couleur = VertFoncé
{sLibelléType+"1"} = "Adhérent"
{sLibelléType+"2"}..CouleurFond = Transparent
{sLibelléType+"2"}..Couleur = BleuFoncé
{sLibelléType+"2"} = "Invité"
{sLibelléType+"3"}..CouleurFond = Transparent
SI gbAfficheTout OU gbAdminTout THEN 
	{sLibelléType+"3"}..Couleur = RougeClair
	{sLibelléType+"3"} = "Absent"
SINON 
	{sLibelléType+"3"}=""
FIN
{sLibelléType+"4"}..CouleurFond = Transparent
SI gbAfficheTout OU gbAdminTout THEN 
	{sLibelléType+"4"}..Couleur = RougeClair 
	{sLibelléType+"4"} = "Archivé"
SINON 
	{sLibelléType+"4"}=""
FIN
{sLibelléType+"5"}..CouleurFond = Transparent
SI gbAdminTout THEN 
	{sLibelléType+"5"}..Couleur = GrisFoncé
	{sLibelléType+"5"} = "Externe"
SINON 
	{sLibelléType+"5"} =""
FIN

// Redéfinit la couleur et le libellé à surligner selon le type de personne sélectionné
SELON CouleurModifiée
	
	CAS 1 // Vert
		{sLibelléType+"1"}..CouleurFond = JauneClair
		{sLibelléType+"1"}..Libellé = "ADHERENT"
		
	CAS 2 // Bleu
		{sLibelléType+"2"}..CouleurFond = JauneClair
		{sLibelléType+"2"}..Libellé = "INVITE"
						
	CAS 3 // Gris
		{sLibelléType+"5"}..CouleurFond = JauneClair
		{sLibelléType+"5"}..PoliceBarrée = Faux
		{sLibelléType+"5"}..Libellé = "EXTERNE"
		
	CAS 4 //Rouge
		{sLibelléType+"3"}..CouleurFond = JauneClair
		{sLibelléType+"3"}..Libellé = "ABSENT"
	
	CAS 5 //Rouge & Barré
		{sLibelléType+"4"}..CouleurFond = JauneClair				
		{sLibelléType+"4"}..Libellé = "ARCHIVE"
		
	CAS 6 //Gris & Barré
		{sLibelléType+"5"}..CouleurFond = JauneClair
		{sLibelléType+"5"}..PoliceBarrée = Vrai
		{sLibelléType+"5"}..Libellé = "ARCHIVE"		
					
	AUTRE CAS
		SI gbTrace THEN Info ("Pas de personnes correspondante !")
FIN