Bonjour,
Je débute en Delphi 6 Pro et je cherche le moyen d'avoir une alternance de couleur à la lecture du DBGRID.
J'ai recherché sur le forum et vu 5 ou 6 messages qui traitaient du problème, mais sans succès pour moi.
Celui ci me donne tout le fond en jaune:
et avec ce code, le tableau est tout en gris:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TFormAfficher.DBGridAffichageDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin With DbGridAffichage do Case Odd(DataSource.Dataset.Recno) of //Ligne impaires en jaune true : Column.Color:= clYellow; //Lignes paires, couleur par défaut False : Column.Color:= clNavy; end; end;
J'ai lu un autre post qui parle du composant RXDbGrid, mais je ne sais pas quel code lui mettre pour avoir l'alternance de couleurs.
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
16
17 procedure TFormAfficher.DBGridAffichageDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if DBGridAffichage.datasource.dataset.recno mod 2 = 0 then // change de couleur 1 ligne sur 2 begin DBGridAffichage.Canvas.Brush.Color:=clRed; end else begin DBGridAffichage.Canvas.Brush.Color:=clGray; end; DBGridAffichage.DefaultDrawColumnCell(Rect,Datacol,Column,State); // dessine les valeur des cellules end; end.
Merci de votre aide
Partager