TChart und Marks aus Gallerie

[Sidi61]

hallo zusammen,

war da wohl ein wenig schnell bin gerade am experimentieren wie TChart angesteuert werden kann, bei der Übernahme des Codes von Günther wurde angezeigt das er TTeeGradientColors nicht kennt und ich wusste mal eben nicht was ich hier in die uses aufnehmen muss.

Meine Fortschritte sind für den geplanten Zweck schon fast ausreichend, es fehlt mir lediglich noch die Gestaltung der Balkenbeschriftung, das habe ich immer noch nicht hinbekommen und wie gesagt bei dem Beispiel von Günther fehlt mir noch der Hinweis was ich in die uses aufnehmen muss.

Hier mal ein Beispiel wie ich TChart bis jetzt befülle:

Delphi-Quellcode:

procedure TFormKunden.Button1Click(Sender: TObject);
var i : integer;
    BS1, BS2 : TBarSeries;
begin

  chart1.ClearChart;
  BS1 := TBarSeries.Create(self);
  BS1.ParentChart := Chart1;
  BS1.Active := false;
  BS1.SeriesColor := clBlue;
  BS1.Title := 'Umsatz';
  //BS1.Marks.Style := smsValue;
  BS1.Marks.Callout.ArrowHead := ahsolid; //zeichnet einen Pfeil von der Beschriftung zum Balken
  Chart1.AddSeries(BS1);

  BS2 := TBarSeries.Create(self);
  BS2.ParentChart := Chart1;
  BS2.Active := false;
  BS2.SeriesColor := clRed;
  BS2.Title := 'Vorgänge';
  Chart1.AddSeries(BS2);

  Chart1.Series[0].AddXY(1,20,'',clTeeColor);
  Chart1.Series[0].AddXY(2,25,'',clTeeColor);
  Chart1.Series[0].AddXY(3,15,'',clTeeColor);
  Chart1.Series[0].AddXY(4,30,'',clTeeColor);
  Chart1.Series[0].AddXY(5,25,'',clTeeColor);
  Chart1.Series[0].AddXY(6,20,'',clTeeColor);
  Chart1.Series[0].AddXY(7,25,'',clTeeColor);
  Chart1.Series[0].AddXY(8,22,'',clTeeColor);
  Chart1.Series[0].AddXY(9,28,'',clTeeColor);
  Chart1.Series[0].AddXY(10,21,'',clTeeColor);
  Chart1.Series[0].AddXY(11,18,'',clTeeColor);
  Chart1.Series[0].AddXY(12,15,'',clTeeColor);

  Chart1.Series[1].AddXY(1,3,'',clTeeColor);
  Chart1.Series[1].AddXY(2,5,'',clTeeColor);
  Chart1.Series[1].AddXY(3,8,'',clTeeColor);
  Chart1.Series[1].AddXY(4,7,'',clTeeColor);
  Chart1.Series[1].AddXY(5,2,'',clTeeColor);
  Chart1.Series[1].AddXY(6,6,'',clTeeColor);
  Chart1.Series[1].AddXY(7,5,'',clTeeColor);
  Chart1.Series[1].AddXY(8,7,'',clTeeColor);
  Chart1.Series[1].AddXY(9,6,'',clTeeColor);
  Chart1.Series[1].AddXY(10,10,'',clTeeColor);
  Chart1.Series[1].AddXY(11,9,'',clTeeColor);
  Chart1.Series[1].AddXY(12,11,'',clTeeColor);

  chart1.Legend.Alignment := laBottom;

  BS1.Active := true;
  BS2.Active := true;
end;

Wäre schön wenn ich das Problem noch gelöst bekommen würde

Gruße
Sidi61