Discussion :

[kurul1]

Bonjour à tous

J'utilise le composant TChart pour dessiner des graphiques représentant des données que j'ai récupérer.

Je voudrais pouvoir obtenir la position de la souris sur ce graph non pas en coordonénes pixels mais en coordonnées réelles (position sur le graph).

J'ai vu qu'il y avait des fonctions comme CalcPosPoint ou CalcPosValue sur les axes mais cela ne me donne pas ce que je veux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TPrincipalForm::OnMouseMoveTChart(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 
        // On va calculer les coordonnées réelles
        int xreel = Chart->LeftAxis->CalcPosPoint(X);
        int yreel = Chart->BottomAxis->CalcPosPoint(Y);
 
        PanelDuree->Caption = "(" + AnsiString(xreel) + "," + AnsiString(yreel) + ")";
}

Merci d'avance pour votre aide.

[bandit boy]

Tu utilises pourtant les bonnes fonctions mais le soucis est que la fonction retourne un double, pas un int.
J'ai testé avec le code suivant et ca marche très bien:

Code :

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

1
2
3
4
5
6
7
 
void __fastcall TForm1::Chart1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
   Label1->Caption = "X = " + FloatToStr(Chart1->BottomAxis->CalcPosPoint(X))
                 + ", Y = " + FloatToStr(Chart1->LeftAxis->CalcPosPoint(Y));
}

[kurul1]

Je comprend pas, moi j'ai des valeurs complètements abérantes.

Quand je me rapproche de l'axe des x, les x augmentes.

Voilà mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TPrincipalForm::OnMouseMoveTChart(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        // On va calculer les coordonnées réelles
        float xreel = Chart->LeftAxis->CalcPosPoint(X);
        float yreel = Chart->BottomAxis->CalcPosPoint(Y);
 
        PanelDuree->Caption = "(" + FormatFloat("0.0", xreel) + "," + FormatFloat("0.0", yreel) + ")";
}

[Masmeta]

Je comprend pas, moi j'ai des valeurs complètements abérantes.

Quand je me rapproche de l'axe des x, les x augmentes.

Voilà mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TPrincipalForm::OnMouseMoveTChart(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        // On va calculer les coordonnées réelles
        float xreel = Chart->LeftAxis->CalcPosPoint(X);
        float yreel = Chart->BottomAxis->CalcPosPoint(Y);
 
        PanelDuree->Caption = "(" + FormatFloat("0.0", xreel) + "," + FormatFloat("0.0", yreel) + ")";
}

Pour l'écriture dans ton caption, tu peux utiliser ca aussi :

Code :

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

PanelDuree->Caption =  "(" + FloatToStrF(xreel,ffFixed,7,2) + "," + FloatToStrF(yreel,ffFixed,7,2) + ")";

FloatToStrF permet de mettre le nombre après la virgule comme tu le désires.

[kurul1]

Merci Masmeta je ne l'a connaissait pas cette fonction. FormatFloat le fait très bien également.

[bandit boy]

sur quel type de graphique travails tu?
As tu d'autres évennements sur TChart en plus ?
Y'aurais pas moyen que tu donnes un peu plus de codes?