Admin
Fondateur
Nombre de messages : 197
Age : 40
Localisation : Tlemcen ( Algérie )
Date d'inscription : 04/12/2006
 |  Sujet: dessiner des lignes de couleurs sur un DBGrid  Mer 14 Fév - 2:51 | |
| Pour modifier le dessin du DBGrid, utiliser l'évènement OnDrawColumnCell. Il est possible de définir le dessin en fonction des donnée de la ligne en cours : - Code:
-
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If gdSelected In State Then
Begin
TDBGrid(Sender).Canvas.Brush.Color := clNavy
End Else
Begin
If TDBGrid(Sender).DataSource.DataSet.FieldByName('Indice').Value=1 Then
TDBGrid(Sender).Canvas.Brush.Color := clLime
Else
TDBGrid(Sender).Canvas.Brush.Color := clWhite;
End;
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end; | |
|
