Remplacer mon composant Chart par un composant TMS Chart ?
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:
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:
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:=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
