Allow Panning TChart

Version imprimable

08/09/2008, 12h07
jehrikhan

Allow Panning TChart

Bonjour a tous,
Alors voila j'ai un petit problème avec TChart.

J'ai plusieurs TChart sur ma form et elles ont toutes l'option AllowPanning pour me permettre de déplacer les Series.

Pour le moment pas de soucis je peux bouger les series de chaque Chart.
Mais ce que je souhaiterais c'est que lorsque je déplace les series d'un Chart, cette modification s'applique aux autres TChart de la form.

Je ne sais pas si c'est possible, et l'aide de ce composant est très light :/

Enfin voila, si quelqu'un a une petite idée sur quelle propriété utiliser pour fixer la positions des series sur un chart ça m'aiderait bien :mrgreen:

Merci d'avance

Salut,
l'idée serait de recopier les propriétés min et max des axes:

Code:

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
 
    TChart *Charts[] = {Chart1,Chart2};
    #define NB_Chart 2
 
    int BottomMin = ((TChart*)Sender)->BottomAxis->Minimum;
    int BottomMax = ((TChart*)Sender)->BottomAxis->Maximum;
    int LeftMin   = ((TChart*)Sender)->LeftAxis->Minimum;
    int LeftMax   = ((TChart*)Sender)->LeftAxis->Maximum;
 
    for(int i=0;i<NB_Chart;i++)
    {
        if(Charts[i] != Sender)
        {
            Charts[i]->BottomAxis->Automatic = false;//pour prendre la main dessus
            Charts[i]->LeftAxis->Automatic = false;
 
            Charts[i]->BottomAxis->Minimum = -999999;//pour ne pas avoir d'erreur min > max
            Charts[i]->BottomAxis->Maximum = 999999;
            Charts[i]->LeftAxis->Minimum = -999999;
            Charts[i]->LeftAxis->Maximum = 999999;
 
            Charts[i]->BottomAxis->Minimum = BottomMin;//recopie
            Charts[i]->BottomAxis->Maximum = BottomMax;
            Charts[i]->LeftAxis->Minimum = LeftMin;
            Charts[i]->LeftAxis->Maximum = LeftMax;
        }
    }

C'est une fonction qu'il faut faire dans les évènement OnScroll/OnZoom/OnUndoZoom, pour être sûr qu'à chaque changement des propriétés des axes, les TCharts se resynchronisent.

C'est une fonction un peu faite à l'arrache, mais qui fonctionne, à toi de la faire plus propre ;).

Merci de ta réponse Bandit Boy, Mais j'avais trouvé ça entre temps en fait :oops:

ma fonction donne ça au final :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
void __fastcall TForm1::ChartScroll(TObject *Sender)
{
  if(Sender->ClassNameIs("TChart"))
  {
    TChart *ChartTemp,*ChartTemp2;
    ChartTemp=dynamic_cast<TChart*>(Sender);
    double Minimum=ChartTemp->BottomAxis->Minimum;
    double Maximum=ChartTemp->BottomAxis->Maximum;
 
    for(int i=0; i<ComponentCount; i++)
    {      
      if(Components[i]->ClassNameIs("TChart"))
      {
        ChartTemp2=dynamic_cast<TChart*>(Components[i]);
        if(ChartTemp!=ChartTemp2)
          ChartTemp2->BottomAxis->SetMinMax( Minimum, Maximum);
      }
    }
  }
}