Discussion :

[wiski08000]

bonjour les amis

mon problème c'est lorsque je clic sur un enregistrement d'un dbgrid
je change la couleur de la ligne avec :

Code :

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

1
2
3
4
If DBGrid1.SelectedRows.CurrentRowSelected
  then Begin
     DBGrid1.Canvas.Brush.Color := clRed;//clSkyBlue;  // <- Couleur fond de ligne
     Column.Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);

sauf qu’après que je clic sur un autre enregistrement et sur le même dbgrid
la couleur que j'ai donner au premier enregistrement disparaisse
alors je veux cmt les lignes de mon dbgrid maintiennes leurs couleur

même Apres que je sélectionne un autre, ou bien comment désactiver la ligne
du dbgrid après avoir séléctionné.

merci et j'éspere que vous maviez compris

[Charly910]

Bonjour,

pour mes StringGrid, j'ajoute une colonne 1 qui contient # ou ' ' selon que j'ai sélectionné ou désélectionné la ligne à la souris (la colonne peut être visible ou invisible comme on veut).

Ensuite dans le OnDrawCell, je fais :

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
26
27
28
29
With Sender As TStringGrid Do With Canvas Do
   Begin
     { sélection de la couleur de fond }
     If ((gdFixed in State) or (ARow = 0)) Then
        Begin
          Brush.Color := clBtnFace ;   // 1ere ligne
        End
     Else
        Begin
           If gdSelected In State Then     // ligne courante
              Begin
                 Brush.Color := clNavy ;
              End
           Else
              Begin
                 If Cells[1,Arow]= '#' Then Brush.Color := clRed     // Ligne déjà sélectionnée
                                       Else Brush.Color := clLime ;  // Ligne non sélectionnée
              End ;
        End ;
 
     { Dessin du fond }
     FillRect(Rect);
     { Sélection de la couleur d'écriture }
     If gdSelected In State
       Then Font.Color:=clWhite
       Else Font.Color:=clBlack;
     { Dessin du texte }
     TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
   End;

Pour le DbGrid, je pense que tu peux faire un peu la même chose en ajoutant un champ à la table liée au DbGrid.

C'est pas génial, mais pour le StringGrid ça marche bien !

A+

Charly

[chekkal]

moi j'utilise l’événement OnDrawColumnCell et ça marche très bien voici l'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.DBGDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 
     if ((sender as Tdbgrid).DataSource.DataSet.fieldvalues['PRO']<>null)and((sender as Tdbgrid).DataSource.DataSet.fieldvalues['QTE']>0) then
         TDBGrid(Sender).Canvas.Brush.Color :=$00A6FFFF
    else
    if ((sender as Tdbgrid).DataSource.DataSet.STATE<>DSINSERT)and((sender as Tdbgrid).DataSource.DataSet.fieldvalues['PRO']<>null)and((sender as Tdbgrid).DataSource.DataSet.fieldvalues['QTE']<0) then
         TDBGrid(Sender).Canvas.Brush.Color :=$009B9BFF
    else  TDBGrid(Sender).Canvas.Brush.Color :=$00A6FFFF;
    if (gdSelected	 in state) then   TDBGrid(Sender).canvas.brush.color:=CLTEAL;
     TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;

[SergioMaster]

Bonjour ,

La dbgrid a une posssibilité de sélectionner plusieurs lignes (option multiselect=true) c'est peut être plutôt par là qu'il faudrait chercher .

Si j'ai bien compris

alors je veux cmt les lignes de mon dbgrid maintiennes leurs couleur