Discussion :

[tarmo57]

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]

Salut,

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

[djeckelle]

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

[Cl@udius]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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.

[djeckelle]

je peux si tu veux en contre partie te parler du LRM40BM21 que je connais bien

Alors parles moi un peut de ce truc là ..je t'écoute je suis complètement débutante dans le domaine et j'aime me coucher moins bête le soir

[tarmo57]

Alors parles moi un peut de ce truc là ..je t'écoute je suis complètement débutante dans le domaine et j'aime me coucher moins bête le soir

apellé plus communément les Rampes de Staline
LRM
Lance Rocquette Multiple
40
40 rocquettes
BM21
Chassi du camion russe

[Andnotor]

Fort intéressant!

Aurait Peut-être plus sa place dans le forum Hardware --------,