Grace a mon forum favoris, j'ai pu mettre au point la procedure suivante qui permet d'afficher sur 2 couleurs le fond de page d'une GRID
Par contre, lorsque je mets un filtre a true, le fond redevient blanc.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TparentForm.grilleDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var parite: integer; begin parite := grille.DataSource.DataSet.RecordCount mod 2; if (grille.DataSource.DataSet.RecNo mod 2 = parite) and not (gdSelected in State) then grille.Canvas.Brush.Color := colorLignePaire; grille.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
Il faut preciser que je joue ce filtre dans une requete SQL.
Est ce que quelqu'un a une idee pour preserver l'affichage?
Merci
Partager