Bonjour à tous,
pour afficher les lignes dans un Tdbgrid avec des couleurs différentes j'utilise ce code
jusqu'a là c'est bon. Maintenant, j'ai un champs année ,qui peut prendre la même valeur sur plusieurs enregistrement et je voudrais pouvoir mettre la première ligne avec un changement d'année en une couleur différente.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 procedure TForm1.dbgDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If gdSelected In State Then TDBGrid(Sender).canvas.Brush.color := clblue; Else Begin IF TDBGrid(Sender).datasource.dataset.fieldvalues[column.fieldname] =1 then TDBGrid(Sender).canvas.Brush.color := clLime Else TDBGrid(Sender).canvas.Brush.color := clWhite; End; TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
Partager