Discussion :

[Freud44]

bonjour,

J'ai un DBGRid avec des données provenant d'une DB, j'aimerai pour améliorer l'aspect visuel, changer la couleur de mes lignes de mon DBGrid.

Avoir une ligne en blanc et l'autre en vert pale par exemple.

Alors en cherchant sur le forum j'ai trouvé ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
   if (!DBGrid->SelectedRows->CurrentRowSelected)
   {
      if ((DBGrid->DataSource->DataSet->RecNo % 2) == 0)
      {
         DBGrid->Canvas->Brush->Color = clCream;
         DBGrid->Canvas->Font->Color = clBlack;
      }
   }
 
DBGrid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

Le problème est que chez moi il ne fonctionne visiblement pas, ou tout du moins, je ne sais peut être pas l'utiliser ou il faut.
A savoir pour info que je code sur c++ builder 5 et que j'ai mis ce code dans un "DrawColumnCell" de mon DBGrid.

Si je change la valeur dans le if suivant:

Code :

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

1
2
 
if ((DBGrid->DataSource->DataSet->RecNo % 2) == 0)

par celle ci :

Code :

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

if ((DBGrid->DataSource->DataSet->RecNo % 2) == -1)

cela ma modifié toutes les lignes de mon dbgrid...

merci d'avance !

[totoche76]

Hello,

Il semblerait que tu te retrouves systématiquement avec DBGrid->DataSource->DataSet->RecNo = -1 ?
Il semble que RecNo n'est supporté que pour Paradox et DBase dans le BDE.

A moins d'utiliser une couche de base de données qui gère RecNo, tu peux toujours essayer de rajouter dans ta requête un colonne du genre RowNum (par ex avec Oracle), dont tu pourras ensuite relire la valeur au moment du dessin:

Code :

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

if ((DBGrid->DataSource->DataSet->FieldByName("ROWNUM")->AsInteger % 2) == 0)

Mais là ça dépend de ta base de données.

[Freud44]

Je suis sur MySQL.

Le truc qui est possible serait de compter le nbre de lignes devant s'afficher et ensuite de modifier mes couleurs en fonction?

[totoche76]

Pour chaque ligne tu veux calculer le nombre de lignes déjà affichées ?? ouch

Avec MySQL, ceci devrait marcher:

Code sql :

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

1
2
select @rownum:=@rownum+1 rownum, mytable.*
from (select @rownum:=0) r, mytable;

[Freud44]

Si tu veux, mon DBGrid me sert à faire une recherche multi-critère sur ma base.

Donc dans mon code, je récupère à un endroit le nombre d'enregistrement/lignes que mon dbgrid possèdera.

Par conséquent, c'est pas compliqué pour moi de retrouver ce nbre de lignes .


Donc si 'jai ce nombre de lignes, je dois pouvoir dire "par rapport à NbreTotalLigne, changer la couleur des lignes, 1 sur 2" ...non?

Le hic c'est que je ne sais pas trop comment faire..

[totoche76]

Donc si 'jai ce nombre de lignes, je dois pouvoir dire "par rapport à NbreTotalLigne, changer la couleur des lignes, 1 sur 2" ...non?

Ouaip, mais on en revient au problème de départ: savoir sur quel enregistrement (ou quelle ligne de la grille) on se trouve lors du DrawColumnCell...

Une solution pas terrible qui ne se base que sur la position dans la grille:

Code :

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

      if ((Rect.Top / (Rect.Height()+1) % 2))

Bof bof quand tu scrolle verticalement dans ta grille

[Freud44]

peut être que l'on peut se placer sur la première ligne par défaut ?

Sachant qu'a chaque modification de mes critères de recherches, le DrawColumnCell sera ré appelé...

[totoche76]

Pour le scroll dans la grille ?

Evénement OnDataChange de l'objet TDataSource:

Code :

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

1
2
3
4
void __fastcall TForm1::ds1DataChange(TObject *Sender, TField *Field)
{
  dbgrd1->Invalidate();
}

[say]

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
void __fastcall MyGraphics::DBG_BiColor(TObject *Sender,
      const TRect &Rect, TField *Field, TGridDrawState State)
{
    try
    {
        if(State.Contains(gdSelected))  //Enregistrement sélectionné
        {
                dynamic_cast<TDBGrid *>(Sender)->Canvas->Brush->Color = clHighlight;
                dynamic_cast<TDBGrid *>(Sender)->Canvas->Font->Color = clHighlightText;
                dynamic_cast<TDBGrid *>(Sender)->Canvas->FillRect(Rect);
 
        }
        else
        {
        if (dynamic_cast<TDBGrid *>(Sender)->DataSource->DataSet->RecNo % 2 == 0) //Un enregistrement sur 2 est coloré
            {
               dynamic_cast<TDBGrid *>(Sender)->Canvas->Brush->Color = (TColor)0x00f8ffff;
               dynamic_cast<TDBGrid *>(Sender)->Canvas->Font->Color = clBlack;
               dynamic_cast<TDBGrid *>(Sender)->Canvas->FillRect(Rect);
            }
        else
            {
               dynamic_cast<TDBGrid *>(Sender)->Canvas->Brush->Color = (TColor)0x00fbf0e9;
               dynamic_cast<TDBGrid *>(Sender)->Canvas->Font->Color = clBlack;
               dynamic_cast<TDBGrid *>(Sender)->Canvas->FillRect(Rect);
            }
        }
        dynamic_cast<TDBGrid *>(Sender)->DefaultDrawDataCell(Rect, Field, State);
 
 
    }
    catch(Exception &E)
    { //Do Nothing
    }
}

et tu l'appelles MyGraphics:BG_BiColor(Sender, Rect, Field, State); dans le OnDrawDataCell de ton DBGrid

Il semble que RecNo n'est supporté que pour Paradox et DBase dans le BDE.

pas que je sache...et en l'occurrence, je bosse avec PostgresSQL