Discussion :

[christie10101]

Bonjour,
Je reçois ces coordonnées (X,Y) facilement avec le curseur dans la procédure ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  XVal: Double;
  YVal: Double;
begin
  XVal := Chart1.Axes.Left.CalcPosPoint(X);
  YVal := Chart1.Axes.Left.CalcPosPoint(Y);
  Label1.Caption := FormatFloat('#.##', XVal);
  Label2.Caption := FormatFloat('#.##', YVal);
end;

Mais j'aimerais avoir les mêmes coordonnées de cette seule valeur en cliquant sur un bouton séparé (et non pas par le mouvement de la souris au-dessus de ce point). J'ai ce code ci-dessous, mais il y a ici une erreur. Pourriez-vous m'aider en corrigeant ce code ci dessous? Merci pour votre aide à l'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  XVal: Double; 
  YVal: Double;
begin
////// Il y a ici un problème...
  XVal := Series1.CalcXPosValue(0);
  YVal := Series1.CalcYPosValue(0);
  Label3.Caption := FormatFloat('#.##', XVal);
  Label4.Caption := FormatFloat('#.##', YVal);
///////////
end;

[Charly910]

Bonjour,

quel est ton message d'erreur ?

il faut surement que tu mettes :

Code :

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

   XVal := Chart1.Series1.CalcXPosValue(0);

A+

Charly

PS : n'oublie pas aussi d'indenter ton code

[christie10101]

Merci pour la réponse.
J'ai deux gaugeSeries (Teechart). Avec la procédure MouseMove, dans le cas de GaugeSeries1.Value (en déplaçant le curseur au-dessus) - par exemple - 'X' est '101' 'Y' est '24', dans le cas de GaugeSeries2.Value, 'X' est '56' et 'Y' est '79'. Et ces coordonnées sont correctes, sans doute.
Mais en utilisant la seconde méthode (Button1.Click), ces coordonnées sont toujours '66' et '5', pour tous les GaugeSeries. Non-sens.
En fait, ce que je veux, c'est de lier GaugeSeries1.Value et GaugeSeries2.Value
avec une ligne; mais pour dessiner une ligne, j'ai besoin des coordonnées (X et Y) de ces 'values'.
S'il y avait un autre méthode de dessiner une ligne entre GaugeSeries1.Value et
GaugeSeries2.Value (TeeChart.Gauge), je ne persisterais dans ce problème, mais je n'ai aucune idée...

[tourlourou]

quid de http://www.steema.com/support/faq/Ne...AX_DRAWING.htm :

Code :

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

Chart1.Axis.Bottom.CalcXPosValue(Chart1.Series(0).XValues.Value(10))

[Charly910]

Désolé, mais je ne dois pas avoir les mêmes composants que toi. Ton code ne compile pas sur mon D7. Je n'ai pas de "Axes.Left" dans mon TChart (mais "LeftAxis" par exemple)

Charly