Discussion :

[nbutin]

Bonjour,
Je voudrais à l'éxécution que les lignes d'un DBGrid aient une couleur vairable suivant la valeur qu'elles contiennent .
J'arrive à changer la couleur de toute une colonne mais pas celle d'une cellule
ou d'une ligne spécifique (la ligne complète serait ok). J'ai trouvé des soluces en delphi mais je n'arrive pas à les transposer

Merci d'avance

[Sunchaser]

Salut,
Un bout de 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
TCanvas *pCanvas = ((TDBGrid *)Sender)->Canvas;
if ((P.Y%2)==0)pCanvas->Brush->Color = clYellow;
 
if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
{
Form1->DBGrid1->Canvas->Brush->Color = clGreen;
}
        if(State.Contains(odSelected))  //ligne selectionnée
                       {
                        pCanvas->Brush->Color = clRed;
                        pCanvas->FillRect(Rect);
                        pCanvas->Font->Color = clYellow;
                        if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
                        {
                        Form1->DBGrid1->Canvas->Font->Style = TFontStyles() << fsBold;
                        Form1->DBGrid1->Canvas->Font->Color = clRed;
                        }
                       }
        else
        {
                if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
                {
                Form1->DBGrid1->Canvas->Font->Style = TFontStyles() << fsBold;
                Form1->DBGrid1->Canvas->Font->Color = clRed;
                }
                pCanvas->FillRect(Rect);  //Les autres lignes
        }
 
switch (DataCol)
{
case (0):
Column->Alignment = taRightJustify;
break;
case (1):
Column->Alignment = taCenter;
break;
}

a réadapter en fonction de tes besoins...
@ +

[nbutin]

Merci beaucoup. Je vais adapter et tester. En attendant je considère la question comme résolue.

[Sunchaser]

Alerte !!

J'ai encore fais une boulette en postant cette réponse....
Ben ouais, j'ai oublié une ligne ! Et évidemment, personne ne dis rien et a mon avis il est pas prêt de marcher le code si on sait pas a quoi 'P' correspond...
Il faut aujouter, juste avant le premier if(...) :

Code :

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

1
2
 
TGridCoord P = Form1->DBGrid1->MouseCoord(Rect.left,Rect.top);

Mille excuses sir nbutin, en espérant que tu repasses un jour par la...