Date en Axe X sur TChart

Version imprimable

24/08/2010, 17h00
byakuichi

Date en Axe X sur TChart

Bonjour,
je voulais savoir si il était possible de mettre des dates en données X d'un TChart ?

Car je sais qu'avec un : Series.AddXY() on peut mettre des nombres mais pas de string.
et le Series.Add() non plus je crois...

Si quelqu'un peut me rensiegner la dessus ?
25/08/2010, 08h49
redoran

salut ; avec tchart ont peut afficher toutes informations même des dates , voila un lien http://line.berjoan.free.fr/delphi/R34/tChart.htm peut être que vous trouverai ce que vous chercher. ;)
sinon : http://delphipage.free.fr/teechart.html
26/08/2010, 00h53
byakuichi

Bon je n'ai pas trop eu le temps de me pencher dessus, mais je suppose que je dois utilise le chart.bottomAxis et chart.canvas.

Je verrais demain matin.

Les dates sont des nombres.

Il faut juste paramétrer l'axe du bas, par exemple (sinon tu peux le faire directement avec l'éditeur graphique, c'est plus simple):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  BottomAxis.DateTimeFormat := 'hh:mm:ss';
  BottomAxis.ExactDateTime  := True;
  BottomAxis.Increment      := DateTimeStep[dtFiveMinutes];
 
  BottomAxis.LabelsAngle := 90;
  BottomAxis.LabelsFont.Charset := DEFAULT_CHARSET;
  BottomAxis.LabelsFont.Color   := clBlue;
  BottomAxis.LabelsFont.Height  := -12;
  BottomAxis.LabelsFont.Name    := 'Arial';
  BottomAxis.LabelsFont.Style   := [];
 
  BottomAxis.Title.Angle    := 90;
  BottomAxis.Title.Font.Charset := DEFAULT_CHARSET;
  BottomAxis.Title.Font.Color   := clGreen;
  BottomAxis.Title.Font.Height  := -16;
  BottomAxis.Title.Font.Name    := 'Arial';
  BottomAxis.Title.Font.Style   := [fsItalic];

Voici mon code ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  while not ADOQuery1.Eof do
  begin
    for I := 0 to ADOQuery1.RowsAffected do
    begin
       if(ADOQuery1.Fields.Fields[1].AsVariant < 0)then
       begin
        Serie.Add(ADOQuery1.Fields.Fields[1].AsVariant, ADOQuery1.Fields.Fields[0].AsString);
        Serie.Marks.Style := smsvalue;
       end
       else
       begin
        Serie.Add(ADOQuery1.Fields.Fields[1].AsVariant, ADOQuery1.Fields.Fields[0].AsString, colr);
        Serie.Marks.Style := smsvalue;
       end;
    end;
  ADOQuery1.Next;
  end;

;

Ou tout fonctionne comme prévu ;)