Discussion :

[Yepazix]

Hello,

Je change les couleurs de mon DBGrid en fonction de ce qu'il ya dedans avec le code suivant :

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
19
20
21
If gdSelected In State Then
                       Begin
                       TDBGrid(Sender).Canvas.Brush.Color := clSilver    {défini la couleur de la cellule active }
                       End
                       Else
                       if Column.Index > 3 then  {IF QUI TESTE LA COULEUR A METTRE EN FONCTION DE LA VALEUR}
                                            Begin
                                            if Column.Field.Asstring = 'Auditorium' then TDBGrid(Sender).Canvas.Brush.Color := clskyblue
                                            else
                                            if Column.Field.Asstring = 'Salle des fêtes' then TDBGrid(Sender).Canvas.Brush.Color := clsilver
                                            else
                                            if Column.Field.Asstring = 'Foyer' then TDBGrid(Sender).Canvas.Brush.Color := clMoneygreen
                                            else
                                            if Column.Field.Asstring = 'Salle d exposition' then TDBGrid(Sender).Canvas.Brush.Color := clteal
                                            else
                                            if Column.Field.Asstring = 'Salle du conseil' then TDBGrid(Sender).Canvas.Brush.Color := clcream
                                            else
                                            {TDBGrid(Sender).Canvas.Brush.Color := clWhite;  {défini la couleur de la cellule qui n'a pas de valeur}
                                            end;
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end; {FIN DE procedure DBGrid1DrawColumnCell}

Comme on le voit au début du code on s'intéresse à ce qu'il ya dans la quatrième collone du DBGRID et c'est en fonction de ce qu'on y touve que le fond de cette colonne change de couleur.

Il y a une autre partie du code qui s'occupe de faire varier la couleur des colonnes 4,5,6,7,8,9,10,11 et 12 en fonction du chiffre qui s'y trouve.

par contre les collones 0,1,2 et 3 ne changent pas de couleur (pour le moment).

Ce que je voudrais faire c'est que les collones 0,,1,2 et 3 changent de couleur en fonction de ce qu'on trouve dans la colonne 4.

Je ne sais pas comment faire ca !

[John Fullspeed]

Je ne suis pas un spécialiste du DBgrid mais à lire ton code tu ne traites que le cas ou index>3 pas lles colonnes 1,2,3

L'expérience que j'ai est de changer les couleurs dans les drawitems de la GRID

John

[Yepazix]

oui je ne traite que index > 3, mais c'est parceque je ne m'intéresse qu'a ce qui a dans la collone 4, mais je veux que les cellules qui sont dans les collones 0,1,2,3 soient dans la même couleur que dans la 4.

Par exemple:

Code :

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

1
2
3
4
 
col 0           col1            col2            col3           col4              col5    
blue            blue            blue           blue           auditorium     normal
green           green           green           green           foyer             normal

Comme on voir dans l'exemple les col 0,1,2,3 prennent la même couleur en fonction de ce qu'il y a dans 4 alors que dans mon code actuel il n'y a que la colonne 4 qui change de couleur en fonction de ce qui s'y trouve.

[Giovanny Temgoua]

mais je veux que les cellules qui sont dans les collones 0,1,2,3 soient dans la même couleur que dans la 4.

La grille dessine ses cellules une par une et ligne par ligne. Ce qui veut dire que la cellule de la colonne 1 de la ligne x est dessinée avant la cellule 4 de la même ligne.

Ce qui fait que pour peindre la grille comme tu veux le faire, il te faudra dessiner la grille normalement, c'est à dire en donnant aux cellules de la colonne 4 les couleurs que tu veux qu'elles aient et ensuite forcer la grille à se redessiner (repaint).

Qu'est ce que tu en penses ?

[oceane]

Voici ma technique qui consiste a redessiner les cellules avec l'évènement ondrawcolumnCell :

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
//****************************
with (sender as TDBGRID).canvas do
     begin
     if (Datacol <= 4 ) then
        begin
        if (sender as Tdbgrid).columns[4].field.asstring= .... then
           brush.color := .....
        else
        if (sender as Tdbgrid).columns[4].field.asstring = .... then
           brush.color := .....
        else
          .....
        fillrect(rect); // remplie le rect avec la couleur du brush
        textrect(rect,rect.left +2 ,rect.top+2,column.field.asstring); // ecrit la valeur de la cellule dans un rectangle correspondant a la cellule sans deborder
        end;
     end;

[Balise code ajoutée par King Kaiser]

[Bloon]

Il faut accéder à la zone correspondante dans le dataset :

Code :

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

1
2
3
4
5
6
7
8
// traitement des colonnes 0 à 3 en fonction de la colonne 4
if (Column.Index >= 0) and (Column.Index <= 3) then
begin
  if TDBGrid(Sender).DataSource.DataSet.FieldByName('zone de la colonne 4').AsString = '' then
    ...
  else
    ...
end;

Bloon