Discussion :

[Delphi-ne]

Bonjour,

Je voudrais construire un histogramme avec TChart mais avec les deux impératifs suivants :
que l'échelle du TChart varie de 1 à 500
que l'histogramme varie de 100 à 300

Concrêtement cela veut dire que l'histogramme ne touche pas le bas du graphe.

J'ai essayé ce code mais l'origine de Y est toujours liée à l'origine du graphe

Code :

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

1
2
3
4
5
6
7
8
var
   LT_S1 :  TBarSeries;
begin
   LT_S1 := TBarSeries.Create(Self);
   Chart1.addSeries(LT_S1);
   LT_S1.UseYOrigin := false;
   LT_S1.YOrigin := 100;
   LT_S1.AddXY(1, 300, '', clred);

Si quelqu'un a déjà été confronté à ce besoin merci d'avance

[Delphi-ne]

Ce doit être totalement stupide ce que je demande pourtant cela bloque mon projet.

Je vais poser la question autrement :
est-ce qu'il existe une version téléchargeable de l'aide sur le composant TChart de la VCL de Delphi ?
Les recherches que j'ai faites aboutissent à des téléchargements de composant.

Merci d'avance

[Gilbert Geyer]

Bonjour,

est-ce qu'il existe une version téléchargeable de l'aide sur le composant TChart de la VCL de Delphi ?

Comment ça ? Cliquer sur TChart + touche-clavier F1 ne te donne pas suffisamment d'Aide ?

A+.

[Delphi-ne]

J'avais pensé à appuyer sur F1.
Cela m'a permis d'identifier les propriétés YOrigin et UseYOrigin

Malgré cela je n'arrive pas à avoir un graphe ayant une échelle de 0 à 10000 et une barre variant de 2000 à 5000 c'est à dire ne partant pas de 0.

A défaut de quelqu'un ayant déjà rencontré et résolu ce besoin j'espérais donc trouver une aide plus détaillée.
Faute de trouver je vais essayer d'ajouter mes barres d'histogramme via le canvas du TChart mais c'est plutôt du bricolage.

[Linkin]

Est-ce que ce code fait ce que tu veux? (Testé sous Delphi XE2)

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
16
 
var
 LT_S2:TBarSeries;
begin
  chart1.LeftAxis.Visible := True;
  Chart1.LeftAxis.AutomaticMinimum := False;
  Chart1.LeftAxis.AutomaticMaximum := False;
  Chart1.LeftAxis.Maximum := 500;
  Chart1.LeftAxis.Minimum := 000;
 
 LT_S2 := TBarSeries.Create(Self);
 LT_S2.VertAxis := aLeftAxis;
 LT_S2.YOrigin := 100;
 Chart1.addSeries(LT_S2);
 LT_S2.AddXY(2, 300, '', clred);
end;

[Delphi-ne]

Génial !

Merci beaucoup c'est exactement ce qu'on me demande de produire.
En dehors du fait que dans votre code les bornes Mini et Maxi du graphe ne sont pas automatiques je ne vois pas de différence avec ce que j'essayais de faire.
Je ne pensais pas que juste cala suffisait.

Vous m'avez vraiment rendu un grand service.