Discussion :

[wwilly17]

Bonjour, comme expliqué dans le titre, j'aimerais changer la couleur d' une ligne de mon Tdbgrid en fonction de la valeur d' une cellule...
J'ai cherché sur le net mais je n'ai pas trouvé de réponse adéquate...
Pourriez-vous m'aider ?
Merci d'avance

[wwilly17]

voici le code j ai mis :

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
 
 
procedure Tfrm_liste_complete.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
      if (tdbgrid(sender).DataSource.dataset.Fields[11].AsString<>'') then
     tdbgrid(sender).Canvas.Brush.color:=ClYellow
  else
         begin
         tdbgrid(sender).Canvas.brush.color:=ClBlue;
 
         end;
  Tdbgrid(sender).DefaultDrawColumnCell(rect,datacol,column,state)
 
end;

resultat il ne passe rien sur les lignes ..elles restent blanches il ne le colorie pas d aucune couleur

[gvasseur58]

Bonjour, comme expliqué dans le titre, j'aimerais changer la couleur d' une ligne de mon Tdbgrid en fonction de la valeur d' une cellule...
J'ai cherché sur le net mais je n'ai pas trouvé de réponse adéquate...
Pourriez-vous m'aider ?
Merci d'avance

Bonjour,

As-tu pensé à passer la propriété DefaultDrawing de TBDGrid à False ?

[wwilly17]

oui j y ai penser je l ai mis à false, mais entre temps j ai trouver en passant par l' evenement PrepareCanvas du Tdbgrid , a ce niveau il me prend en compte le canvas.brush chose qu il ne faisait pas dans l evenement que j' utilisai ( il ne me prenait en compte que le canvas.font.color )

[FOCUS77]

Bonsoir,

1. Le Dbgrid possède une propriété: AlternateColor que tu peux utiliser on cas de besoin.

2. Si tu veux changer la couleur de la sélection (par défaut bleue marine), tu peux ajouter ce
bout de code à ton code.

Code :

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

1
2
 if (gdfocused in Astate) then
 dbgrid1.Canvas.Brush.Color:=clgreen;

merci.