Discussion :

[petitours]

Bonjour,

Jusqu'à maintenant, je me débrouillais avec l'aide de www.teemach.com et en me promenant dans les propriéts des composants Tchart pour faire les quelques graph dont j'avais besoin mais là je calle, je galère trop...

Mon plus gros problème avec ce site est que mon BCB est en francais et que du coup je n'arrive pas à décrire mes problèmes par manque de vocabulaire adapté C'est idiot comme problème, mais pour le débutant que je suis, il y a déjà assez à faire avec la programmation...pas besoin des problèmes de langue.

J'ai besoin de faire 2 choses en particulier :
Tracer plusieurs courbes sur le même graph avec le même abscisse mais pas les même échelles en ordonnées.
Modifier une courbe en déplacant directement les points de cette courbe avec la souris

Pour mon second problème, je n'arrive même pas à savoir si c'est faisable !

merci mille fois d'avance

Titre édité par Ricky81
Ancien titre : autre chose que www.teemach.com pour l'aide sur Tchart ?

[eternal11]

tiens regarde toujours ce lien

http://users.skynet.be/gleblanc/CPPB/chart.htm

par contre modifier les points avec la souris je ne pense pas que cela soit possible, mais je peut me tromper

[Nicolas]

Bonjour,

Voici la méthode que j'utilise pour déplacer les points d'une courbe :

1. Tout d'abord, je sélectionne le point à déplacer lors d'un clic sur un point de la série :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TMyForml::ChartClickSeries(TCustomChart *Sender,	TChartSeries *Series, int ValueIndex,  TMouseButton Button, TShiftState Shift, int X, int Y)
{
	if (iCurrentPoint != -1)
		{
		Series->ValueColor[iCurrentPoint] = clRed;
		}
 
	iCurrentPoint = ValueIndex;
	Series->ValueColor[ValueIndex] = clGreen;
}

Dans cet exemple, je met simplement à jour une variable qui m'indique si un point est sélectionné et je met ce point en vert.

2. Lorsqu'un point est sélectionné ET qu'on relache le bouton droit de la souris, alors je déplace le point et je le désélectionne :

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
 
void __fastcall TMyForm::ChartMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
	TChartSeries *MySerie = Chart->GetASeries(); // récupère la série active
 
	if ( MySerie && (iCurrentPoint != -1) && (Button == mbRight) )
		{
		MySerie->XValue[iCurrentPoint] = Chart->BottomAxis->CalcPosPoint(X);
		MySerie->YValue[iCurrentPoint] = Chart->LeftAxis->CalcPosPoint(Y);
 
		MySerie->ValueColor[iCurrentPoint] = clRed;
 
		iCurrentPoint = -1;
		}
}

Voilà, en espérant que cela répond à ton problème...

Nicolas

[petitours]

Bonjour,

Merci eternal 11 pour ce lien très interessant...pas que pour le Tchart d'ailleur

Merci Nicolas pour ton code ; Je ne le comprends pas vraiment (mais je vais le comprendre bientot...), mais ce que tu decris comme comportement me vas très bien.
Il ne me reste qu'à comprendre le code et à l'adapter à mon application...Tu m'aides considérablement ici ! MERCI

Je donnerai des nouvelles sur l'etat de ma courbe bientot

Merci encore !

[petitours]

A partir du code de Nicolas, j'ai trouvé mon bonheur !
Quand je clique sur le graph :
clic droit, la valeur en Y de la courbe s'ajuste sur la position de la souris.
clic gauche la valeur en Y s'incremente ou se decrement d'une unité suivant que la souris est en dessus ou en dessous de la courbe.

Je ne révais pas mieux ! 8)

merci encore !

Par contre, comment faire deux (ou plus) courbes sur le meme graph avec des echelles en Y différentes pour chaque courbe...je ne trouve pas ...même avec le lien de eternal 11...