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

[sat83]

Et un simple :

Code :

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

Dbgrid1.Canvas.Brush.Color := DM.tblEvenementsCOULEUR.AsInteger

[codial]

Bonsoir sat83,

Code :

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

1
2
 
Dbgrid1.Canvas.Brush.Color := DM.tblEvenementsCOULEUR.AsInteger

effectivement celà fonctionne mais surligne en noir au lieu du jaune les enregistrements concernés????

Il doit y avoir une autre astuce je pense !!! Mais laquelle ?

Cordialement, codial

[Just-Soft]

mais peux-tu nous dire la valeur de DM.tblEvenementsCOULEUR.AsInteger, si elle vaut zéro (0) alors c'est bien le noir.

[codial]

Bonjour,

Dans mon enregistrement il y a le nombre de la couleur et la catégorie.
Dans mon DBGrid les bonnes lignes sont sélectionnées mais en noir.

En revanche, j'ai testé ç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 := 65535;   //DM.tblEvenementsCOULEUR.AsInteger;

et là, à l'ouverture du DBGrid, j'ai bien les bonnes lignes en jaunes.

Je pense que mon problème vient de la conversion de DM.tblEvenementsCOULEUR.AsInteger; pour affecter la bonne couleur à gauche de ma ligne.

Il me manque quelque chose..... Mais quoi ???

Cordialement, codial

[Just-Soft]

Dans ce cas autant définir ton champ couleur dans la base de données comme entier pour ne pas passer par la conversion.
En plus, met un showmessage pour savoir le contenu de ta variable à l'instant de l'exécution de la ligne.

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 := DM.tblEvenementsCOULEUR.AsInteger;
ShowMessage(DM.tblEvenementsCOULEUR.AsInteger);

[codial]

Bonjour,

Dans ma base le champ 'coiuleur' est déja un entier long sous la forme 65535

J'ai déja fait un showmessage et il me renvoie bien 65535.

Cordialement

[Just-Soft]

Bonjour,

Dans ma base le champ 'coiuleur' est déja un entier long sous la forme 65535

J'ai déja fait un showmessage et il me renvoie bien 65535.

Cordialement

Bizarre c'est le moins qu'on puisse dire. Une dernière chose, tu déclare une variable locale dans ta procédure que tu lui affecte la valeur du champs couleur puis tu la passe à ton code.

Code :

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

1
2
3
4
5
6
7
 
cl : integer;
..
cl := DM.tblEvenementsCOULEUR.AsInteger;
ShowMessage(DM.tblEvenementsCOULEUR.AsInteger);
if DBPlanning.DataSource.DataSet.FieldByName('couleur').Value > 0 then
DBPlanning.Canvas.Brush.Color := cl;

[edam]

tu as vu ce topique
surtout

// On applique les modifications.
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);

[Just-Soft]

// On applique les modifications.
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);

mais pourquoi le cast ?

[SergioMaster]

TColor étant une valeur Hexadécimale , cela vaudrait peut-être la chandelle d'essayer un formatage ?

[Andnotor]

A ce niveau là, il n'y a qu'une chose qui puisse être fausse:

DBPlanning.DataSource.DataSet <> DM.tblEvenements

[codial]

Bonjour,

Just-Soft, j'ai testé :

Code :

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

1
2
3
4
5
6
7
 
cl : integer;
..
cl := DM.tblEvenementsCOULEUR.AsInteger;
ShowMessage(DM.tblEvenementsCOULEUR.AsInteger);
if DBPlanning.DataSource.DataSet.FieldByName('couleur').Value > 0 then
DBPlanning.Canvas.Brush.Color := cl;

mais celà revient au même, mes champs sont en noirs.

Pour edam
j'ai vu le topic et je sais faire car les couleurs sont dans le code, donc pas de problème.

SergioMaster ta remarque :

Code :

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

1
2
 
TColor étant une valeur Hexadécimale , cela vaudrait peut-être la chandelle d'essayer un formatage ?

Elle rejoint ce que je pense mais je ne trouve pas comment faire le formatage qui puisse être accepté par DBPlanning.Canvas.Brush.Color := !!!

Cordialement, codial

[Andry]

Un vieux code que j'ai utilisé il y a très longtemps pour colorier les ligne d'une grille suivant une valeur d'une colonne :

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
 
var Coul : tColor;
begin
  if AppParams.ApplyColor  then
  begin
    Coul := ClWindow;
    with dsetSav, qryColorbyStatus do
    begin
        if FieldByName('DS_STATUS').AsString = 'N' then Coul := TColor(FieldByName('CL_N').AsInteger);
        if FieldByName('DS_STATUS').AsString = 'P' then Coul := TColor(FieldByName('CL_P').AsInteger);
     .....
    end;
    GrdSav.Canvas.brush.Color := Coul;
  end;
End;

Mes couleurs etant enregistrer sous format entier dans la base en castant en Integer via Integer(cbColorbox.Selected).
Es ça marche.

[codial]

Bonjour Andry,

Merci pour le code, j'essaie de l'adapter mais pourrait tu préciser les variables dsetSav, qryColorbyStatus et m'expliquer AppParams.ApplyColor que je n'ai pas apparemment.

Cordialement, codial