Bonjour tous le monde.

Dès fois en a besoin de distinguer les ventes d'une journée des autres ventes.
Pour cela en va utiliser trois couleurs bleue,rouge et verte.(car si on utilise uniquement 2 couleurs, le premier jour
de la semaine va avoir la même couleur que le dernier de la semaine précédente).
Et on insert le code suivant.


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 TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
  Column: TColumn; AState: TGridDrawState);
begin
  
if Ventes.FieldValues['DAT_VNT']<> Null then
if Int((Date-Ventes.FieldValues['DAT_VNT'])/3)=((Date-Ventes.FieldValues['DAT_VNT'])/3) then
dbgrid1.Canvas.Font.Color:=clblue;

if Ventes.FieldValues['DAT_VNT']<> Null then
if Int((Date-Ventes.FieldValues['DAT_VNT']+1)/3)=((Date-Ventes.FieldValues['DAT_VNT']+1)/3) then
dbgrid1.Canvas.Font.Color:=clred;

if Ventes.FieldValues['DAT_VNT']<> Null then
if Int((Date-Ventes.FieldValues['DAT_VNT']+2)/3)=((Date-Ventes.FieldValues['DAT_VNT']+2)/3) then
dbgrid1.Canvas.Font.color:=clgreen;

end;
merci à tous.