couleur de font dans un dbgrid

**tarmo57** · 21/10/2008, 16h31

salut tous j'ai un petit bout de code (qui ne marche pas lol)

Code :

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

1
2
3
4
5
6
7
procedure TOperation.SMDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if (Table1.FieldByName('Total').AsInteger < 0) then
    Canvas.Font.Color := clRed;
end;

voila je voudrais si possible avoir la couleur rouge sur la sommes qui se trouve dans la cellule de mon DBgrid
une idée ?

**djeckelle** · 21/10/2008, 16h39

Salut,

Tu veux que le texte soit en rouge ou que la cellule soit surlignée en rouge ?

**djeckelle** · 21/10/2008, 17h15

Tu peux aller voir ceci :
http://delphi.developpez.com/faq/?pa...leurstringgrid

**Cl@udius** · 21/10/2008, 18h09

Salut

Si ton SMDBGrid hérite de DBGrid, comme je le suppose, il doit te manquer un DefaultDrawColumnCell.

Tu peux t'inspirer de cette Q/R de la FAQ: Comment dessiner des lignes de couleurs sur un DBGrid ?

@+ Claudius

**tarmo57** · 21/10/2008, 19h43

Envoyé par djeckelle

Salut,

Tu veux que le texte soit en rouge ou que la cellule soit surlignée en rouge ?

oui je veux que le texte

**djeckelle** · 22/10/2008, 09h07

Salut, es tu aller voir les liens que nous t'avons indiqué?
Car la réponse est dedans ...sur l'événement OnDrawCell de la grille

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
With Sender As TStringGrid Do With Canvas Do
  Begin
    { sélection de la couleur de fond }
    If gdFixed in State
      Then Brush.Color := clBtnFace
      Else If gdSelected In State
        Then Brush.Color := clNavy
        Else If Odd(ARow)
          Then Brush.Color := $FFE0FF
          Else Brush.Color := $FFFFE0;
    { Dessin du fond }
    FillRect(Rect);
    { Sélection de la couleur d'écriture }
    If gdSelected In State
      Then Font.Color:=clWhite
      //Une condition de test
      Else  if Cells[ARow,ACol] = 'Cellule 13'
       then Font.Color:=clred
       else Font.Color:=clBlack;
    { Dessin du texte }
    TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
  End;

**tarmo57** · 22/10/2008, 22h02

Envoyé par djeckelle

Salut, es tu aller voir les liens que nous t'avons indiqué?
Car la réponse est dedans ...sur l'événement OnDrawCell de la grille

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
With Sender As TStringGrid Do With Canvas Do
  Begin
    { sélection de la couleur de fond }
    If gdFixed in State
      Then Brush.Color := clBtnFace
      Else If gdSelected In State
        Then Brush.Color := clNavy
        Else If Odd(ARow)
          Then Brush.Color := $FFE0FF
          Else Brush.Color := $FFFFE0;
    { Dessin du fond }
    FillRect(Rect);
    { Sélection de la couleur d'écriture }
    If gdSelected In State
      Then Font.Color:=clWhite
      //Une condition de test
      Else  if Cells[ARow,ACol] = 'Cellule 13'
       then Font.Color:=clred
       else Font.Color:=clBlack;
    { Dessin du texte }
    TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
  End;

désolé mais le code que tu donne marche bien sur un stringgrid
mais pas sur un Dbgrid

**SergioMaster** · 23/10/2008, 07h47

Envoyé par tarmo57

désolé mais le code que tu donne marche bien sur un stringgrid
mais pas sur un Dbgrid

parcequ'il t'était difficile de remplacer ?

Code :

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

With Sender As TStringGrid Do With Canvas Do

par

Code :

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

With Sender As TDBGrid Do With Canvas Do

**djeckelle** · 23/10/2008, 09h24

Envoyé par tarmo57

désolé mais le code que tu donne marche bien sur un stringgrid
mais pas sur un Dbgrid

Ha oui il y a du niveau là....désolée de ne pas avoir complètement mâché le travail

SergioMaster merci je me sens moins seule sur ce coup là

**tarmo57** · 23/10/2008, 16h47

Envoyé par SergioMaster

parcequ'il t'était difficile de remplacer ?

Code :

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

With Sender As TStringGrid Do With Canvas Do

par

Code :

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

With Sender As TDBGrid Do With Canvas Do

mais la fonction d'un StringGrid et d'un DBGrid n'est pas la méme

Code :

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

1
2
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

et pour DBGRID

Code :

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

1
2
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

donc pour un StringGrid
Acol Arow et Rect pas de probléme .mais pour un DBGrid il y a d'autres modif !
je regarde je cherche je suis dans débutant ,excusez moi
je peux si tu veux en contre partie te parler du LRM40BM21 que je connais bien

**Cl@udius** · 23/10/2008, 16h51

Salut

As-tu regardé le lien vers la FAQ que je t'ai proposé ici ?

Cela expose le principe de fonctionnement, tu devrais pouvoir en tirer quelque chose.

@+ Claudius

**tarmo57** · 23/10/2008, 17h48

Envoyé par Cl@udius

Salut

As-tu regardé le lien vers la FAQ que je t'ai proposé ici ?

Cela expose le principe de fonctionnement, tu devrais pouvoir en tirer quelque chose.

@+ Claudius

oui je cherche merci clodius

**SergioMaster** · 24/10/2008, 07h52

effectivement , il n'y a ni col,ni row dand le onDrawColumnCell on accède aux valeurs grace a la proprité column

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If gdSelected In State
      then Font.Color:=clWhite
      //Une condition de test
      Else  
    if Column.Field.asString='O'    // un exemple de test sur la valeur de la cellule
{ou  if Table1.FieldByName('monchampTest').value=valeurrouge}       
       then Font.Color:=clred
       else Font.Color:=clBlack;
       TextOut(Rect.Left, Rect.Top,Column.Field.AsString);
end;

nota , le seul hic de ce code c'est pour les valeurs numériques qui se retouvreront cadrées à gauche (mais ça c'est une autre histoire

)

**djeckelle** · 24/10/2008, 10h03

Je ne pensais pas que trouver l'identifiant d'une colonne et d'une ligne serait un problème une fois que j'avais fournit l'algo et les attributs utiles.