Discussion :

[freud]

Bonjour,

J'essaye de faire un diagramme de Gantt avec un TeeChart sans arriver à un résultat. J'utilise pour cela l'exemple fourni dans le dossier DEMO de D7 en utilisant les données de ma propre table déjà chargée. Il s'agit d'imprimer les différentes tâches d'un projet avec date de début et de fin.

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
18
19
20
21
 
procedure TForm1.DrawGantt;
VAR
y1,m1,d1,y2,m2,d2:word;
tmp1, tmp2 : Longint;
NomTache:string;
begin
 
  While NOT cdsListe.Eof do
  begin
   NomTache:=cdsListe.FieldByName('nom_tache').AsString ;
   decodedate(cdsListe.FieldByName('DEBUT_DATE').AsDateTime,y1,m1,d1);
   decodedate(cdsListe.FieldByName('FIN_DATE').AsDateTime,y2,m2,d2);
   Series1.AddGantt(EncodeDate( y1, m1, d1),EncodeDate( y2, m2, d2),0,NomTache);
 
  // tmp1:=Series1.AddGantt(EncodeDate( y1, m1, d1),EncodeDate( y2, m2, d2),0,NomTache);
//   tmp2:=Series1.AddGantt(EncodeDate( y1, m1, d1),EncodeDate( y2, m2, d2),0,NomTache);
//   Series1.NextTask[ tmp1 ] := tmp2 ;
   cdsListe.Next;
  end;
End;

J'ai trois taches qui ne s'impriment que dans la légende sans les barres de plus j'ai les dates (debut et fin) en 2019 et ca me met en 2012
Si quelqu'un(e) SVP maitrise ce composant et en vous remerciant de bien vouloir m’éclairer sur son fonctionnement.
Je joins une capture du résultat de l'impression.