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 :
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
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;
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
1
2
3
4 TGraphicData = class Name: string; Counter: Integer; end;
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 ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part S:=Chart.SeriesList[0];
PS : Si le résultat est concluant, ma société compte acheter les composants TMS Chart
Merci pour votre aide,
Amicalement,
Bruno
Partager