Discussion :

[FOCUS77]

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.

[Ph. B.]

Bonjour,

Merci pour le tuyau que vous fournissez à la communauté , mais je vais y ajouter quelques remarques:

1. Pensez que vous vous adressez potentiellement à des personnes qui sont moins chevronnés que vous.
   Il faut indiquer que cette procédure doit être rattachée à l’évènement OnPrepareCanvas du contrôle DBGrid1 :
   
   • lors de la conception, depuis le concepteur visuel de la fiche
   • lors de l’exécution par code : DBGrid1.OnPrepareCanvas := DBGrid1PrepareCanvas;
   . Cette instruction pourra être intégrée dans le code appelé par l'évènement OnCreate de la fiche Form1.
2. Pensez à fournir un code clair et concis en évitant des copier coller sources de bugs.
   Vous voulez afficher les lignes de 3 couleurs différentes en faisant une rotation en fonction de la date. Cela peut s'écrire plus simplement et comme suit :
   

   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.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
     Column: TColumn; AState: TGridDrawState);
   var
     FontRowColor: TColor;
   begin
     if Ventes.FieldValues['DAT_VNT'] <> Null then
     begin
       case Trunc(Ventes.FieldValues['DAT_VNT']) mod 3 of
         0: FontRowColor := clBlue;
         1: FontRowColor := clred;
         2: FontRowColor := clgreen;
       end;
       dbgrid2.Canvas.Font.Color := FontRowColor;
     end;
   end;