Discussion :

[fz.saida]

bonjour
je voudrais bien savoir si il y a une possibilité de affecter des séries a une liste d' absorbances (ttreeview ) puis les affichez sous un graphe ? voila ce que j ai pu réalisé mais j ai un souci que j arrive pas a a faire la liaison entre Tlineseries et le ttreeview afin que sa soit compatible

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TFResultats.BoutonDEtudeAmantClick(Sender: TObject);
 var
   listresultats1: TobjectList;
   i,j,NombreDePoints: integer;
  NRames: TTreeNode;
  Resultat,ObjetResultats: TObjetResultats;
  ListeDesResultats1:TobjectList;
  serieMrT:Tlineseries;
  Result:TObjectList;
 
 begin
   inherited;
listresultats1:=ResultatsSelectionnes();
if Tobjetresultats(listresultats1.items[0]) is TObjetResultatsMRTemps then
BEGIN
 //if (listresultats1.Count= 1) then
FicheDEtudeAmant:= TFicheDEtudeAmant.create (nil,OrdonneeSelectionnee,Tobjetresultats(listresultats1.items[0]),Tfprofilenlong(ligne.TLigne).SerieCourbures);
FicheDEtudeAmant.remplirligne1 ();
FicheDetudeAmant.dessinergraphe();
   // REMPLIRE LA LIGNE OU ILA YA LES TRAIN
  serieMrT:=tlineseries.create(self);
  self.Simulation:=TSimulation(ComboSimulations.Items.Objects[ComboSimulations.ItemIndex]);
  FicheDEtudeAmant.Arborescence1.Items.Clear;
  NRames:=FicheDEtudeAmant.Arborescence1.Items.Add(nil,'Rames');
  for i:=0 to Simulation.ListeDesResultatsMRTemps.Count-1 do
  begin
 for j:=0 to TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).getTaille-1 do
   begin
   SerieMrT.AddXY(TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).DistanceLigne [j],TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).Vitesse[j]);
   end;
  Resultat:=TObjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]);
  FicheDEtudeAmant. Arborescence1.Items.AddChildObject(NRames,Resultat.Nom,Resultat);
   ficheDEtudeAmant. Arborescence1.Selections[i].Data:= SerieMrT; // dans cette ligne j arrive pas a faire la passage entre tlineseries et les élément de mon absorbance  
   end;
 end;
  FicheDetudeAmant.show;
end;

[ShaiLeTroll]

Qu'est qu'un Graphe pour toi ?
Graphe en Mathématique voir 1)
Graphe, juste un TChart voir 2)

1)
Avec un TTreeView tu seras limité à un arbre (arborescence), tu ne pourrais pas faire de graphe !

Pour résumé honteusement, le graph c'est comme un arbre mais où les noeuds peuvent se connecter entre-eux en plus de la relation branche-feuille ...
tu confirmes cette vulgarisation ?

En réalité, c'est que l'arbre est un cas particulier restreint d'un graphe

2)
Quel serait le lien entre le TTreeView et le TChart ?
Tu veux le TChart change d'aspect (echelle, couleur, ...) en fonction de la selection dans le TTreeView

[fz.saida]

en faite moi j ai crée une arborescence qui copie le contenue d'une autre dans je veux lui affecter des série pour chaque arborescence après les affichez dans le graphe (tchart) avec un seul clic sur les absorbance .

en bref le résultat que je veux TTreeview (contiens des arborescences --> leurs affecter des séries )--> puis après chaque clic sur une arborescence il m'afihe la série sous forme de graphe (tchart)

mon soucis c est que dans cette parti de mon programme j 'arrive pas a faire le lien entre le Tlineseries et tchart

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  for i:=0 to Simulation.ListeDesResultatsMRTemps.Count-1 do // le nombre de mes arborescence
  begin
 for j:=0 to TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).getTaille-1 do // le nombre de point de chacune de mes arborescences
   begin
   SerieMrT.AddXY(TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).DistanceLigne [j],TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).Vitesse[j]);///je remplie chaque seriserie 
   end;
  Resultat:=TObjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]);
  FicheDEtudeAmant. Arborescence1.Items.AddChildObject(NRames,Resultat.Nom,Resultat);
   ficheDEtudeAmant. Arborescence1.Selections[i].Data:= SerieMrT;// cest dans cette ligne ou je veux affecter ma série  pour chacune
   end;
 end;

après j’utiliserais une arborescencechange pour que chaque clic sur l'une des arborescence affiche la série sous forme de graphe