Discussion :

[Bruno13]

Bonjour,

je butte sur un truc tout simple en voulant tester les composants Chart de TMS.

Comment faire pour avoir un histogramme avec en X les intitulés de chaque barre ?

Bref le truc de base ?!

Par exemple :
toto = 10
titi = 8
tutu = 5

donc avoir sur l'abscisse toto titi tutu.

Merci pour vos réponse,

Amicalement,
Bruno

[Bruno13]

Bonjour à tous,

voici la réponse obtenu par le support mais le problème c'est que je ne sais pas ajouter un évènement à un composant, je re-fais donc appel à votre aide !

for the X-axis, you'd need to write an event handler like
for example:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm81.XAxisDrawValue(Sender: TObject; Serie: TChartSerie;
  Canvas: TCanvas; ARect: TRect; ValueIndex, XMarker: integer; Top: Boolean;
  var defaultdraw: Boolean);
var
  s:string;
begin
  defaultdraw := false;
  s := TGraphicData(list.items[valueindex]).Name;
  Canvas.TextOut(XMarker, ARect.Top, s);  
end;

[anapurna]

salut

tu peut le marquer résolue même si ce n'est pas ici que la réponse a été faite

pour info

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
 
Unit
   AdvChart
....
 
 
 procedure TForm81.XAxisDrawValue(Sender: TObject; Serie: TChartSerie;
   Canvas: TCanvas; ARect: TRect; ValueIndex, XMarker: integer; Top: Boolean;
   var defaultdraw: Boolean);
 var
   s:string;
 begin
   defaultdraw := false;
   s := TGraphicData(list.items[valueindex]).Name;
   Canvas.TextOut(XMarker, ARect.Top, s);
 end;

Tu dois affecter ce gestionnaire à l'Axe X de ton Chart :

Code :

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

  AdvChartview.Panes[0].Series[0].OnXAxisDrawValue := XAxisDrawValue;

@+ Phil