Discussion :

[Lung]

Bonjour,

J'utilise une DBgrid où je permet à l'utilisateur de sélectionner des lignes. Par défaut, un petit point apparaît dans la colonne de gauche pour indiquer les lignes de la sélection. Comme se n'est pas assez visible, je voudrais les faire apparaître en couleur, en utilisant l'évènement OnDrawColumnCell.

Mais, je ne vois pas du tout comment m'y prendre ...
L'aide Delphi sur les bookmarks est peu fournie.

Quelqu'un aurait une idée ?
Merci.

[Wilco]

Bookmark est un marqueur qui te donne l'enregistrement en cours de ton dataSet. Tu ne peux pas l'utiliser dans ton cas.

Voici le code dont tu as besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 
If DBGrid1.SelectedRows.CurrentRowSelected
then Begin
     DBGrid1.Canvas.Brush.Color := clSkyBlue; <- Couleur fond de ligne
     Column.Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;
 
end;

Wilco

[bidochon]

Salut,

...la colonne de gauche...

C'est la colonne de bordure ou la premiere colonne des cellules ?
l'évènement OnDrawColumnCell ne permet de modifier que les cellules, pas la bordure.

@ plus

[Lung]

C'est la colonne de bordure ou la premiere colonne des cellules ?

Pour les points, c'est la bordure.
Mais moi, c'est la couleur du fond des cellules de la ligne que je veux changer.

[Lung]

Mille Wilco !
Ca marche !