Changer la couleur de fond d'une ligne dans une table memoire

**Techys** · 15/07/2011, 13h02

Bonjour a tous, besoin d'aide j'essaie de changer la couleur de fond d'une ligne de ma table memoire en cliquant dans un interupteur mais sa ne fonctioone pas.
Voici le code que j'ai mis en entrée de mon interrupteur.

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE AfficheCouleurClient()
 
t est un entier
 
POUR t=1 A TableOccurrence(CLIENT)   //parcourir la table memoire
 	SI CLIENT.TypeClientId[t]..Valeur=1 ALORS  // Si valeur colonne type=1
	CLIENT.TypeClientId[t]..CouleurFond=iJauneFoncé // la couleur de fond jaune
 
	FIN
FIN

merci pour votre aide

**tatayo** · 15/07/2011, 13h15

Bonjour,
Dans ta capture d'écran, la table est vide, donc il me semble normal que ça ne fonctionne pas...

Tatayo.

**Techys** · 15/07/2011, 13h32

C'est parceque j'ai copier la fenetre en concetion pas en mode test mais j'ai ajouter 2 clients avec comme valeur de TypeClientId 1 pour prospect et 2 pour Client.
Mais quand je test rien ne change.

**tatayo** · 15/07/2011, 15h09

Essaie de mettre un point d'arrêt au début de la procédure, puis trace en pas à pas l'execution, ainsi tu auras (peut-être) un début de piste.

Tatayo.

**hpascal** · 15/07/2011, 15h22

Bonjour
Il faut vérifier que tes valeurs sont bien celles attendues, dont comme le dit tatayo mets un point d'arrêt
ou ajouter l'instruction

Code :

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

Trace(CLIENT.TypeClientId[t]..Valeur)

dans ta boucle

Sinon tu peux aussi faire ça dans le code d'affichage d'une ligne de ta table :

Code :

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

CLIENT.TypeClientId[CLIENT]..CouleurFond = (CLIENT.TypeClientId..Valeur = 1 ? JauneFonçé SINON CouleurDéfaut)

**Raptor92** · 15/07/2011, 15h40

Envoyé par Techys

Bonjour a tous, besoin d'aide j'essaie de changer la couleur de fond d'une ligne de ma table memoire en cliquant dans un interupteur mais sa ne fonctioone pas.
Voici le code que j'ai mis en entrée de mon interrupteur.

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE AfficheCouleurClient()
 
t est un entier
 
POUR t=1 A TableOccurrence(CLIENT)   //parcourir la table memoire
 	SI CLIENT.TypeClientId[t]..Valeur=1 ALORS  // Si valeur colonne type=1
	CLIENT.TypeClientId[t]..CouleurFond=iJauneFoncé // la couleur de fond jaune
 
	FIN
FIN

merci pour votre aide

Bonjour,

Quant vous dites "a l'entrée de l'interrupteur", cela veut il dire qu'à chaque modification ou autre chose
Sinon, vous deviez essayer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
PROCEDURE AfficheCouleurClient()

t est un entier
POUR CHAQUE LIGNE DE CLIENT
POUR t=1 A TableOccurrence(CLIENT)   //parcourir la table memoire
 	SI CLIENT.TypeClientId[t]..Valeur=1 ALORS  // Si valeur colonne type=1
	CLIENT.TypeClientId[t]..CouleurFond=iJauneFoncé // la couleur de fond jaune
         
	FIN
   FIN
FIN

Mais si cela est à chaque modification de l'interrupteur, alors votre code n'est pas à la bonne place
Bonne après midi

**tatayo** · 15/07/2011, 16h03

Petite correction

Code :

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

1
2
3
4
5
6
7
8
 
PROCEDURE AfficheCouleurClient()
 
POUR CHAQUE LIGNE DE CLIENT
 SI CLIENT.TypeClientId..Valeur=1 ALORS  // Si valeur colonne type=1
	CLIENT.TypeClientId..CouleurFond=iJauneFoncé // la couleur de fond jaune
 FIN
FIN

"POUR CHAQUE LIGNE" parcours déjà la table, inutile de faire 2 boucles imbriquées.

Tatayo.

**hpascal** · 15/07/2011, 16h13

Petite correction aussi

Code de tatayo :

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

1
2
3
4
5
6
7
PROCEDURE AfficheCouleurClient()

POUR CHAQUE LIGNE DE CLIENT
 SI CLIENT.TypeClientId..Valeur=1 ALORS  // Si valeur colonne type=1
	CLIENT.TypeClientId[CLIENT]..CouleurFond=iJauneFoncé // la couleur de fond jaune
 FIN
FIN

Il faut indiquer l'indice en cours pour le ..CouleurFond sinon c'est toute la colonne qui est modifiée

**tatayo** · 15/07/2011, 16h26

Effectivement, j'ai tellement l'habitude de ne pas mettre d'indice avec les boucles POUR TOUT que je suis tombé dans le piège... A trois, on devrait trouver la bonne syntaxe

Tatayo.

**Techys** · 15/07/2011, 16h37

Merci pour toutes ses réponses je les teste et je vous informe.

Code :

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

A chaque modification modification de l'interrupteur

Au fait chaque interrupteur représente une catégorie de client (Prospect, Nouveau client, Client, Client avec remise) et chaque catégorie est représenté par une couleur fixe donc chaque fois que l'on sélectionne une catégorie( donc clique dans un interrupteur) les ligne du tableau correspondant a cette categorie de client doivent changer de fond de couleur.

j'espere que je pu me suis comprendre.

merci encore pour l'aide.

**Raptor92** · 15/07/2011, 17h56

Envoyé par Techys

Merci pour toutes ses réponses je les teste et je vous informe.

Code :

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

A chaque modification modification de l'interrupteur

Au fait chaque interrupteur représente une catégorie de client (Prospect, Nouveau client, Client, Client avec remise) et chaque catégorie est représenté par une couleur fixe donc chaque fois que l'on sélectionne une catégorie( donc clique dans un interrupteur) les ligne du tableau correspondant a cette categorie de client doivent changer de fond de couleur.

j'espere que je pu me suis comprendre.

merci encore pour l'aide.

Bonjour

Dans ce cas votre code doit se trouver dans la rubrique "A chaque modification de...."
A vous de choisir l'interrupteur déclencheur

Et pour tatayo et Hpascal (que je salue cordialement), en effet, vous avez raison....comme....

Bonne soirée

**Techys** · 21/07/2011, 12h30

Merci a tous pour vos réponses finalement j'ai tester les codes et j'ai pu avoir un qui marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
t est un entier
 
POUR t=1 A TableOccurrence(TABLE_CLIENT)
//	info("numero ligne"+ +t)
	SI TABLE_CLIENT.TypeClientId[t]=2 ALORS
//	info("la valeur de  typeclient est "+ +TABLE_CLIENT.TypeClientId[t])
	TABLE_CLIENT[t]..CouleurFond=iJauneFoncé
	SINON
//	info("la valeur de  typeclient est n'est pas un")
	FIN
 
FIN

Je l'ai installer derrier les modification comme l'a suggeré RAPTOR et sa marche

Mais il reste deux soucis.
1 . La couleur de selection de la table memoire est prioritaire sur la couleur la couleur de fond de ma procedure. Donc je voudrait savoir comment désactivé la couleur de section par programmation.
j'ai essayé dans IHM mais il ne me permet plus de sélectionner une ligne apres.

2. Comment faire pour rétablir la couleur par défaut des lignes dont la couleur de fond a été modifier quand je sort d'un interrupteur.

Merci encore pour toute vos idées.

**tatayo** · 21/07/2011, 16h57

Bonjour,
Pour le point 1, en fait tu peux toujours sélectionner une ligne, mais tu ne le vois pas. Il faut choisir

. Tu peux toujours t'en sortir avec une colonne Interrupteur pour la sélection, à voir.

Pour le point 2, je dirai que la couleur idefaut (ou iCouleurDefaut, j'ai un doute) fera bien l'affaire.

Tatayo.

**EDM-TAHITI** · 21/07/2011, 17h06

Hello,
Effectivement, c'est prioritaire. aussi, je te donne ce que je fais pour mes programmes. Le but est de visualiser pour certains clients le taux de risques possible lors de la facturation... Plusieurs états sont possibles:
- Sans risque (par defaut)
- Risques minimes (jauneclair)
- Risques importants (orange foncé)
- comptes bloqués (rouge clair)
Et comme toi, j'utilise un flag d'etat...
Pour réaliser ce que tu veux, tu dois créer une petite procédure qui sera appelée dans 'affichage ligne table' et pour 'chaque modification de tes flags' (Dominique - Raptor92 - a raison sur le sujet - helllo Dom)...
Et pour répondre en code

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
16
17
18
 
// procedure qui affiche les lignes en couleurs
procedure affiche_ligne()
 
selon TABLE_CLIENT.TypeClientId[indiceencours()]
 
     cas 2
      // info("la valeur de typeclient est "+ +TABLE_CLIENT.TypeClientId[t])
      TABLE_CLIENT[indiceencours()]..CouleurFond=iJauneFoncé
 
     cas 3
       // si il y a....
 
     autres cas
       // info("numero ligne"+ +t)
      TABLE_CLIENT[indiceencours()]..CouleurFond=icouleurdefaut
 
FIN

De plus, je te conseille de déclarer dans l'entete de fenetre des variables qui stockeront les couleurs de type

CouleurFlag2 est un entier = rvb(...,...,..)

Ainsi, un seul et unique endroit pour modifier les couleurs que tu souhaites voir apparaitre... et multiplier ainsi les controles pour les lignes de couleurs...

Plus maintenable a mon avis....

**Jon Shannow** · 22/07/2011, 08h49

Pour ne pas changer de couleur en sélection, il faut utiliser couleurbandeau, regardes dans l'aide pour la syntaxe de cette fonction, je n'ai pas Windev sous la main

**Techys** · 22/07/2011, 19h33

Merci a tous pour votre aide.

EDM TAHITI je teste le code et je te fait des retour.
Mais concernant les couleur je ne comprend pas trop le principe. Puis je avoir un peu plus d'eclairage.

Merci encore.

**EDM-TAHITI** · 22/07/2011, 20h07

Hello,
Dans la déclaration de ta fenetre (ou de ta table écran), détermine les couleurs dans des variables

MaCouleurDanger est un entier = rvb(155,155,155)

Et ensuite, quand tu en as besoin, tu fais

MaTable.monchamps[indiceencours()]..icouleurfond = MaCouleurDanger

et si tu as plusieurs procedures, tu fais de même et la couleur sera identique dans chaque procédure...

plus facile et plus maintenable

**Techys** · 22/09/2011, 11h12

Merci EDM TAHITI j'ai tester c'est ok.

Encore Merci

Changer la couleur de fond d'une ligne dans une table memoire [WD10]

WinDev

Discussions similaires

Partager

Partager