Discussion :

[kroma23]

Bonjour
Voila pour un autre probleme
et t'il possible de changer la couleur de la ligne selectionner avec le cursseur d'un dbgrid
jai essayé ce code dans l'evenement ONCELCLICK du dbgrid mais ca marche pas il change la couleur de toute les lignes
code

Code :

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

1
2
 
dbgrid1.font.color:=macouleur;

merci

[sat83]

Essai plutôt l'événement OnDrawColumnCell.

En cherchant sur Internet tu trouvera des exemple pour modifier la couleur des lignes de ton DBGrid à ta guise, ce n'est pas très compliqué!

[Just-Soft]

Salut;

non ce ne l'est pas. En fait pour personnaliser le DBGrid tu vas coder l'évènement OnDrawQuelqueChose (j'ai pas de delphi), mais je me souviens que ce sujet a été bien traité et sur le forum et dans la FAQ. Faut y songer à faire un tour

[kroma23]

Re
ce que je veux est de changer la couleur d'une ligne selectionner ave le cursseur est pas changer la couleur de toute les lignes de dbgrid.
je pence que l'evenement OnDrawColumnCell il change la couleur de toute les lignes est pas une ligne selectionner avec le cursseur.

[Charly910]

Bonjour,

il faut utiliser la propriété State (gdSelected si la ligne est sélectionnée)
voici un 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
procedure TF_Princ.GrilleDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 
         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 ;
                 End
              Else
                 Begin
                    If gdSelected In State Then
                       Begin
                          Brush.Color := clNavy ;
                       End
                    Else
                       Begin
                          If Odd(ARow) Then
                             Begin
                                If Cells[1,Arow]=Marque Then Brush.Color := CoulSelec1
                                                        Else Brush.Color := CoulNormal1 ;
                             End
                          Else
                             Begin
                                If Cells[1,Arow]=Marque Then Brush.Color := CoulSelec1
                                                        Else Brush.Color := CoulNormal2 ;
                             End ;
                       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;
      End ;
end;
{ ========================================================================= }

A+
Charly