Dessiner une ligne de DBGrid suivant critères

Version imprimable

14/06/2006, 16h15
nbutin

Dessiner une ligne de DBGrid suivant critères

Bonjour,
Je voudrais à l'éxécution que les lignes d'un DBGrid aient une couleur vairable suivant la valeur qu'elles contiennent :mrgreen: .
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

Salut,
Un bout de code :

Code:

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...
@ + ;)

14/06/2006, 17h42
nbutin

Merci beaucoup. Je vais adapter et tester. En attendant je considère la question comme résolue.
15/06/2006, 17h43
Sunchaser
Alerte !!

J'ai encore fais une boulette en postant cette réponse....:oops:
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:

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...