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.
merci à tous.
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;
Partager