Discussion :

[okparanoid]

J'utilise le code que j'ai trouve dans la faq pour changer la couleur de fond des cellules dans un dbgrid :

http://delphi.developpez.com/faq/?pa...#couleurdbgrid

Ca marche pas mal sauf que du coup, au premier affichage la premiere ligne est dessinee selectionnee, je suppose que ca doit venir du faite que le datasource (un composant TAdoQuery) pointe sur la premiere ligne du resultat de la requete. Toujours est-il que par defaut il ne me dessinait pas cette selection d'office. Y a t'il une solution pour qu'elle n'apparaisse qu'apres un clic de l'utilisateur ? Je pourrais utiliser une variable qui m'indiquerait s'il s'agit du premier affichage ou non mais je trouve pas ca tres propre. Merci pour vos reponses !

[okparanoid]

Desole de revenir a la charge mais j'ai tjs pas trouve de solution a ce petit probleme...

Il n'y a pas de solution pour que mon datasource pointe sur aucun des champs du resultat de la requete au depart ? Ce serait peut-etre une solution pour eviter d'avoir cette selection d'office...

Comment se fait-il que ca ne produise pas la meme chose si on laisse la maniere de gerer l'affichage du dbgrid d'origine ?

[Andry]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    If TDBGrid(Sender).DataSource.DataSet.FieldByName('Indice').Value=1 Then
      TDBGrid(Sender).Canvas.Brush.Color := clLime
    Else
      TDBGrid(Sender).Canvas.Brush.Color := clWhite;
  TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;

Teste avec ce code pour voir.

A+

[Rayek]

Il n'y a pas de solution pour que mon datasource pointe sur aucun des champs du resultat de la requete au depart ?

Non, il n'y a pas de possibilité, un datasource pointera toujours sur un enregistrement quand il y en a.

[Andry]

C'est juste Malatar.
Néammoins, dans le code de la FAQ

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 TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If gdSelected In State Then
  Begin
    TDBGrid(Sender).Canvas.Brush.Color := clNavy
  End Else
  Begin
    If TDBGrid(Sender).DataSource.DataSet.FieldByName('Indice').Value=1 Then
      TDBGrid(Sender).Canvas.Brush.Color := clLime
    Else
      TDBGrid(Sender).Canvas.Brush.Color := clWhite;
  End;
  TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;

Si je comprends bien ce ligne

Code :

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

1
2
3
4
If gdSelected In State Then
  Begin
    TDBGrid(Sender).Canvas.Brush.Color := clNavy
  End Else

La ligne selectionné est toujours en clNavy.
Essaie avec le code que je t'ai fourni pour voir si ça marche.
A+

[okparanoid]

Merci pour ta reponse

Le probleme c'est que si je vire cette ligne avec gdselected (j'ai essaye suite a ton indication) je n'affiche plus correctement la lignes selectionnée, alors que je souhaite qu'une fois un clic effectue on materialise bien la ligne sur laquelle l'on a clique...

En faite ce que je pige pas c'est comment l'affichage non "surcharge" se debrouille pour n'afficher aucune ligne selectionnee d'entree de jeu...