Discussion :

[paradise]

Bonjour,

Sur mon graphe j'ai donc une courbe TLineSeries sur laquelle sont positionnés des points (TPointSeries).
Je voudrais qu'en bougeant ces points à la souris leurs coordonnées suivent celles de la courbe ! Puisqu'un exemple vaut toujours mieux que maints discours : comme ceci (survolez le graphe à la souris).

Alors rien de plus simple pour le X :

Code :

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

1
2
3
4
procedure TfrmMain.ChartMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  SeriesPoints.XValues[iIndexDuPoint] := SeriesLine.XScreenToValue(X);
end;

...mais pour l'ordonnée ça se complique : il faut trouver le Y correspondant au X dans le vecteur YValues de SeriesLine, autrement dit connaitre l'index du point X dans XValues et récupérer la valeur correspondante dans YValues.
Ce qui donnerait ça :

Code :

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

SeriesPoints.YValues[iIndexDuPoint] := SeriesLine.YValues[index_du_X];

Mais je n'arrive pas à récupérer cet index même si la méthode Locate est prévue pour ça :

Code :

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

index_du_X := SeriesLine.XValues.Locate(SeriesLine.XScreenToValue(X));

Tout simplement parce que mes valeurs sont de l'ordre de e10-5 (le pas entre 2 points est aux alentours de 2,5.10-5) et qu'un Locate(0,006574123), forcément, ne donne rien.

Des idées svp ?

[paradise]

Bon pour info et faute d'autre solution : je retrouve l'indice à l'aide d'une boucle.

Quelques optimisations cependant :

• parcours de la moitié des éléments seulement (détection du X : "début" ou "fin" de graphique)
• stockage de l'écart à chaque itération : s'il diminue on continue, dès qu'il augmente on s'arrête

Voilà c'est pas folichon mais ça fonctionne et c'est réactif...

[jbdel]

Est-t-il possible d'utiliser l'évènement onClickSeries au lieu de onMouseMove ?
L'index du point est fourni à la procédure de réaction :

Code :

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

1
2
3
4
 
procedure TForm1.Chart1ClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);