Admin
Fondateur
Nombre de messages : 197
Age : 40
Localisation : Tlemcen ( Algérie )
Date d'inscription : 04/12/2006
 |  Sujet: changer la couleur de toutes les lignes d'un DBGrid  Mer 14 Fév - 3:18 | |
| Il peut arriver qu'on ait besoin de donner une couleur particulière à toutes les lignes d'un DBGrid. Il convient de rappeler que pour pouvoir sélectionner plusieurs lignes, il est nécessaire de passer à true l'option dgMultiSelect de notre DBGrid. Nous allons exploiter l'évènement OnDrawColumnCell et la propriété SelectedRows.CurrentRowSelected. Cette dernière est de type booléen renvoyant true si la ligne en cours de dessin est sélectionnée. Voici un exemple d'utilisation : - Code:
-
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; | |
|
