J'utilise un DBGRID et j'ai réussi à colorier les lignes avec 2 couleurs alternées différentes. Seulement, voila je ne sais pas comment savoir la ligne courante pour lui attribuer la 3eme couleur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm10.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If Odd(RechercherArticleSp.RecNo) Then Begin DBGrid1.Canvas.Brush.Color:=$00EBC4A4; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); End Else Begin DBGrid1.Canvas.Brush.Color:= $00F7EAD9; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); End; end;
Partager