Comment donne une couleur a une ligne dans un DBGrid

**samy84s** · 13/09/2005, 14h43

Je voudrai s'avoir comment change la couleur d'un DBGrid, si possible pour l'associer au Double Click.
Merci a bientot .

**Rayek** · 13/09/2005, 14h54

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

Ca devrait te donner une piste

**samy84s** · 14/09/2005, 10h24

Merci, j'ai deja telecharge cette page mais elle est trop comppliquer pour moi lol;
Je voudrai la meme chose en plus simple si possible.
Mon probleme est de choisir des fournisseurs pour un meme produit dés que c'est fait je voudrai colorie cette ligne selectionne ou la marquer comme effectue.
Quelle est t'a suggestion

:
Merci

**eponette** · 14/09/2005, 11h30

Je ne comprend rien...

Y a-t-il un problème avec le forum? 8)

**Rayek** · 14/09/2005, 11h46

Il a du faire une erreur entre Nouveau et repondre, son message de base est la : http://www.developpez.net/forums/viewtopic.php?t=395068

Deja il te faut un champ booleen dasn ta base de données, qui par defaut doit être à false et ,quand tu double-clic sur la ligne, va le mettre à vrai.

Apres il te reste plus qu'à modifier ce qu'il y a dans le lien fournit dans l'autre post

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
 
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('LE_CHAMP_BOOLEEN').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;