Discussion :

[melles]

Bon!

Je ne comprend pas grand chose a ce tutoriel:
http://delphi.developpez.com/faq/?pa...#couleurdbgrid

Il faut déclarer DBGrid1DrawColumnCell en tant que procedure au debut du code et par la suite utiliser l'évènement OnDrawColumnCell qui est un re-dessinateur de cellule.
Okay tres bien!! c'est fait mais par la suite, ça n'explique toujours pas comment colorier les celules de mon DbGrid.

Supposons que j'ai un DbGrid avec un champs 'Prenom' et que je souhaite colorier toutes les lignes dont la valeur du champs 'Prenom' valent 'Julien'

Code :

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

dbgrid2.OnDrawColumnCell:= ????

Enfin, je ne capte pas trop le procédé et les posts precedant sont pas mal complexes... (pour moi), quelqu'un aurait une explication simple
Ou alors un exemple de code complet pour que je puisse decortiquer le tout!!!

Merci

[defluc]

vas voir sur net, il y a des d'exemples si tu formules une recherche adhoc sur google.

[melles]

J'en ai un peu marre de tomber sur des truk foireux !!
Donne moi un lien s'il en existe tant que cela.

[Graffito]

Bonjour,


Un meilleur exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
var 
  s: String; 
begin 
  if (ACol = 2) and (ARow = 3) then 
  with Sender as TStringGrid do 
  begin 
    s := Cells[ACol, ARow]; 
    Canvas.Brush.Color := clRed; 
    Canvas.FillRect(Rect); 
    Canvas.Textout(rect.left+3,Rect.top+3,s) ; 
  end; 
end;

Je te suggere d'utiliser la propriété Objects des cellules (ou d'une seule cellule de la ligne) afin d'y mettre le style.
Ensuite dans l'événement onDrawCell, tester cette propriété afin de faire le fillrect et le textout suivant le style désiré.

[melles]

Sorry mais je ne comprend absolument rien de tout cela!!!

Tu travaille avec des TstrinGrid??? Que tu as l'air de considerer comme une matrice!!!

Ce que je ne comprend pas c'est le developpement!
Pour reprendre mon exemple précedent : comment faire comprendre au system qu'on veut colorier en bleu, noir ou maron devant et rose derriere les ligne dont le nom vaut "Jules", "henry" ou meme "Marie-antoinette"?

Y'a pas un truk plus simple du genere

Code :

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

if table1.fieldbyname('prenom').value = 'Morisse' then cellule:= blue;

By the way, je n'ai toujours pas réussi à trouver une source complete

[melles]

Bon OK! Je pose ma question d'une autre façon alors :

Avec ce 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
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
var 
  s: String; 
begin 
  if (ACol = 2) and (ARow = 3) then 
  with Sender as TStringGrid do 
  begin 
    s := Cells[ACol, ARow]; 
    Canvas.Brush.Color := clRed; 
    Canvas.FillRect(Rect); 
    Canvas.Textout(rect.left+3,Rect.top+3,s) ; 
  end; 
end;

Les lignes du Dbgrids se re-dessinent toutes seules?
Y'a l'air que oui, c'est ce que j'ai constaté dans les autres posts du forum!
Il doit bien y avoir un moment donné ou on affecte quelque chose a quelqun quand meme??
A part trois heures de recherche non fructueuse et l'envi de balancer l'ordi par la fenetre.... je n'ai pas avancé d'un poil... donc si qulqun a une idée MERCHI

[Lung]

Supposons que j'ai un DbGrid avec un champs 'Prenom' et que je souhaite colorier toutes les lignes dont la valeur du champs 'Prenom' valent 'Julien'

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
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
   OldColor: TColor;
begin
   OldColor := (Sender as TDBGrid).Canvas.Brush.Color;
 
   //.Surligne la ligne sélectionnée.
   if(gdSelected in State) then
   begin
      (Sender as TDBGrid).Canvas.Font.Color := clBlack;
      (Sender as TDBGrid).Canvas.Brush.Color := clSkyBlue;
   end
   else if not (gdFixed in State) then
      (Sender as TDBGrid).Canvas.Brush.Color := OldColor;
 
   //.Si PRENOM = Julien
   if((Sender as TDBGrid).DataSource.DataSet.FieldByName('PRENOM').AsString = 'Julien') and not(gdSelected in State) then
   begin
      (Sender as TDBGrid).Canvas.Brush.Color := clYellow;
      (Sender as TDBGrid).Canvas.Font.Color := clBlack;
   end;
 
   //.Affichage.
   Column.Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[melles]

Merci Lung pour ta reponse... je commence à y voir un peu plus clair sauf que ça ne fonctionne pas

1. Cette procedure se lance automatiquement ou alors il faut l'appeler sur une table donnée??
   
2. Comment se fait il que lorsque je clique sur F1 sur DBGridDrawColumnCell l'aide ne me donne rien du tout??
   DBGridDrawColumnCell est considerée comme une procedure?? si c'est le cas, il faut l'appeler, non?
   
3. Autre question : a quoi sert le
   

   Code :

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

   and not(gdSelected in State)

Thanx in advance

[anapurna]

salut

c'est un evenement de la dbgrid OnDrawColumnCell

@+ Phil

[Graffito]

Autre question : a quoi sert le and not(gdSelected in State)

Comme on redessine complétement à la place de la procedure de draw standard, il faut savoir si la ligne est sélectionnée ou non, afin de tracer de façon spéciale la ligne selectionnée (exemple blanc sur fond bleu).

[LadyWasky]

Salut melles,

Au lieu de t'énerver sur certaines choses que tu ne comprends pas et de t'en prendre à la terre entière parce que personne ne se met à ton niveau :
1) Fait une recherche dans les fichiers d'aide de ton Delphi, on ne va tout de même pas tout te recopier sur le forum.
2) Ton premier problême est de répondre à la question :
- c'est quoi un évènement ? (aide de Delphi, recherche sur le forum, merci)
3) et : - OnDrawCell, ça sert à quoi (aide de Delphi aussi).
4) Qu'est ce qu'un Canvas, à quoi ça me sert, est ce qu'un DBGrid (par exemple), possède un Canvas ? (Delphi, recherche sur le forum, FAQ)

Déjà, avec ces lectures patientes, tu auras répondu à pas mal de tes questions : ça sert à rien de se jeter à l'eau sans avoir appris à nager .