Discussion :

[c@pu]

Bonjour,

Je suis entrain de développer un logiciel pour un matériel médical et j'ai donc 3 graphiques sur les quelles j'affiche des courbes.

Je dois pouvoir faire un zoom sur une certaine partie de ses graphiques. J'ai trouvé comment faire pour un graphique mais je voudrais quand modifiant un des 3 graphiques les 3 se mettent sur le meme zoom donc la meme echelle.

Si qq1 peut m'aider merci beaucoup.

De plus, je dois pouvoir créer des zones délimitées sur un TImage j'ai réussi a les faire apparître pas de souci a les redessiner mais quand je trace un carré par exemple, je voudrais qu'il apparaisse en pointillé kan je déplce la souris ( même système que quand on trace une zone de texte sous Word par exemple)

Merci beaucoup si vous pouvez m'aider.

[Cybher]

Salut,

Pour faire un zoom, tu fais comment?
un truc du genre : Chart->View3DOptions->Zoom = valeur du zoom?

Moi je fais les zoom de cette facon. dans ce cas pourquoi ne donne tu pas la meme valeur à tes autre graphiques?
dis en un peu plus.

bye

Michel

[c@pu]

salut,

merci pour ta reponse mais en fait pour faire mon zoom je le fais automatiquement, vu que j'utilise un tchart il suffit juste de lui dire qu'en fesant un clic gauche ca zoom.
Du coup je n'ai aucune ligne de code pour le faire.
C'est pour ca que je ne sais pas comment le programmer pour que ce zoom s'effectue sur les 3 graphiques en meme temps.
Si tu peux m'aider merci

Bye

[Cybher]

Dans ce cas, je ne vois pas trop.

Moi j'utilisais des scrollbars pour faire varier la taille du zoom.
Sinon quand, tu fais un clic gauche, tu lance une action zoom? Mais tu ne peux pas lancer la même action zoom sur les autres TChart?

Elle est définit comment ta taille de zoom?

[Xavier]

J'ai fait un programme similaire qui marche: Zoom sur les deux Chart simultanément (voir codes ci-dessous).
Tu peux modifier un peu pour les trois charts.

Dans tous les charts il faut mettre:
OnUndoZoom: appeler la fonction UnZoom;
OnZoom: appeler la fonction Synchronier;

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
void __fastcall TForm1::UnZoom(TObject *Sender){
      AnsiString name =((TChart*)Sender)->Name;
      if( name =="Chart1" && fst_uz ){
          Chart2->BottomAxis->Automatic = true;
          fst_uz = false;
          Chart2->UndoZoom();
          fst_uz = true;
      }
      else if(name =="Chart2"&&fst_uz){
          Chart1->BottomAxis->Automatic = true;
          fst_uz = false;
          Chart1->UndoZoom();
          fst_uz = true;
      }
}
 
 
void __fastcall TForm1::Synchroniser(TObject *Sender){
    if(((TChart*)Sender)->Name =="Chart1"){
       Chart2->BottomAxis->Automatic = false;
       Chart2->BottomAxis->SetMinMax(Chart1->BottomAxis->Minimum,Chart1->BottomAxis->Maximum);
    } if(((TChart*)Sender)->Name =="Chart2"){
       Chart1->BottomAxis->Automatic = false;
       Chart1->BottomAxis->SetMinMax(Chart2->BottomAxis->Minimum,Chart2->BottomAxis->Maximum);
    }
}

[Xavier]

Il y a deux lignes manquées. le variable (bool) fst_uz est à déclarer avec une valeur initiale = true.

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
void __fastcall TForm1::UnZoom(TObject *Sender){ 
      AnsiString name =((TChart*)Sender)->Name; 
      if( name =="Chart1" && fst_uz ){ 
          Chart1->BottomAxis->Automatic = true;
          Chart2->BottomAxis->Automatic = true; 
          fst_uz = false; 
          Chart2->UndoZoom(); 
          fst_uz = true; 
      } 
      else if(name =="Chart2"&&fst_uz){ 
          Chart1->BottomAxis->Automatic = true;
          Chart2->BottomAxis->Automatic = true;  
          fst_uz = false; 
          Chart1->UndoZoom(); 
          fst_uz = true; 
      } 
} 
 
 
void __fastcall TForm1::Synchroniser(TObject *Sender){ 
    if(((TChart*)Sender)->Name =="Chart1"){ 
       Chart2->BottomAxis->Automatic = false; 
       Chart2->BottomAxis->SetMinMax(Chart1->BottomAxis->Minimum,Chart1->BottomAxis->Maximum); 
    } if(((TChart*)Sender)->Name =="Chart2"){ 
       Chart1->BottomAxis->Automatic = false; 
       Chart1->BottomAxis->SetMinMax(Chart2->BottomAxis->Minimum,Chart2->BottomAxis->Maximum); 
    } 
}