Bonjour à tous,

Voilà mon petit problème. Je dois donner un coup de jeune à mes graphiques dans un programme que je n'ai pas écrit mais que je dois maintenir. Jusque là j'utilisais les Charts classiques de Delphi 7. Mais on me demande de remplacer ceux-ci pour un essai par les composants TMS Chart.

Mais voilà, il y a un hic dans le programme que je dois modifier. En effet j'ai ceci :

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
17
18
19
20
21
22
23
 
...
// TChartSeries est défini dans TeEngine.pas
 
...
 
procedure TGraphic.UpdateChart;
var
  i: Integer;
  D: TGraphicData;
  S: TChartSeries;
begin
  if (Chart.SeriesCount<=0) then
    Exit;
  S:=Chart.SeriesList[0];
  S.Clear;
  for i:=0 to Datas.Count-1 do
  begin
    D:=TGraphicData(Datas[i]);
    if (D.Counter<=sbMaxForms.Position) and (D.Counter>=sbMinForms.Position) then
      S.Add(D.Counter, D.Name);
  end;
end;
Et il semble que dans les charts classiques on puisse passer directement un Tobjectlist avec les valeurs/noms.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
  TGraphicData = class
    Name: string;
    Counter: Integer;
  end;
Mais hélas avec les Charts de TMS je ne sais pas comment faire ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
  S:=Chart.SeriesList[0];
Je n'ai pas trouvé d'aide à ce sujet, je fais donc appel à vous pour me conseiller ? comment puis-je affecter à ma Series directement un objet contenant les valeurs/noms ?

PS : Si le résultat est concluant, ma société compte acheter les composants TMS Chart


Merci pour votre aide,

Amicalement,
Bruno