Discussion :

[chekkal]

Bonjour à tous,

Jusqu'à maintenant pour afficher la colonne en cour avec une couleur différente j'utilise

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 gdselected in state then
 
TDBGrid(Sender).Canvas.Brush.Color := clnavy
Else 
TDBGrid(Sender).Canvas.Brush.Color := clred;
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;

mais le problème maintenant c'est que je veut que toutes les colonnes prennent la couleur pas seulement la colonne focalisée.

[tourlourou]

Au lieu de tester If gdselected in state then qui restreint la mise en bleu aux cellules sélectionnées, impose la couleur bleue sans condition.

Évidemment, si ton code utilise tantôt une version, tantôt une autre, tu auras :
- soit 2 méthodes à affecter au DBGrid1DrawColumnCell en fonction de ton souhait
- soit une seule méthode DBGrid1DrawColumnCell mais qui fera 2 traitements différents selon une une condition (par ex : If ToutEnBleu or (gdselected in state) then).

[SergioMaster]

Bonjour,

les options de la DBGrid dgRowSelect et dgAlwaysShowSelected à true devrait suffire ?

[chekkal]

ça marche avec "dgRowSelect et dgAlwaysShowSelected à true", merci beaucoup