Discussion :

[codial]

Bonjour,

Dans un DBGrid, j'essaie d'associer une couleur à chaque enregistrement selon un autre champ, disons le champ catégorie.

Dans une table access j'enregistre donc la catégorie et la couleur.

Dans l'évènement OnDrawColumnCell je n'arrive pas à convertir le nombre de la couleur pour l'associer à ma catégorie.

Code :

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

1
2
3
      Dbgrid1.Canvas.Font.color := clYellow;
      Dbgrid1.Canvas.Brush.Color := DM.tblEvenementsCOULEUR.Value ???

Si quelqu'un peut m'aider d'avance merci!

Bonne journée

Cordialement, codial

[Just-Soft]

Salut;

d'abord il te faut le test sur le champ (sauf si tu l'as omis volontairement), puis je me demande sur le type du champs "DM.tblEvenementsCOULEUR" !!

[codial]

Bonjour,

quel genre de test je peux faire puisqu'il faut associer les couleur à chaque catégorie ??

DM.tblEvenementsCOULEUR.Value est un integer!

Cordialement

[Just-Soft]

couleur est une constante prédéfinie elle ne prend pas des valeurs arbitraires donc dans ta table la couleur doit être renseignée telle quelle, tu peux jeter un oeil dans l'aide delphi pour ça.
le test se fait sur la catégorie, exemple

si categorie = 1 alors couleur = jaune;
si categorie = 2 alotrs couleur = bleu;

et ainsi de suite.

[Andnotor]

Stocker une couleur sous forme d'entier ne pose pas de problème.
Je pense que l'erreur se situe plus au niveau de Value qui renvoi un variant impossible à convertir en TColor.

J'essayerais plutôt d'utiliser AsInteger à la place de Value ou au minimum de passer par un StrToInt(xxx.Value).

[codial]

Bonjour,

merci pour vos réponse. Entre temps, j'ai écrit ça:

Code :

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

1
2
3
 
if DBPlanning.DataSource.DataSet.FieldByName('couleur').Value > 0 then
      DBPlanning.Canvas.Brush.color :=  tcolor('$' + IntToStr(DM.tblEvenementsCOULEUR.Value));

Ce code repère bien les enregistrements concernés mais n'affecte pas la bonne couleur, à savoir dans mon exemple le jaune. De plus chaque champ à une couleur différente.
J'ai essayé avec:

Code :

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

1
2
 
tcolor('$' + IntToStr(DM.tblEvenementsCOULEUR.asInteger))

mais celà me renvoie le même problème.

pour Just-Soft

Code :

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

1
2
3
 
si categorie = 1 alors couleur = jaune;
si categorie = 2 alotrs couleur = bleu;

je ne peux pas car les catégories sont lues dans la table, aussi je ne peux les écrire en dur dans le code.

Une idée pour modifier cette ligne?

Cordialement, codial