Hi,
also hab es mal getestet und noch einige Fragen:
Ich habe ja mit TBARSerie eine neue Serie Created. ( oder PIE )
Wenn ich nun den Chart per doppelclick auf eine neue Form wo ich vorher die Serie createt habe nochmas aufmache kommt nen Fehler das die Serie BarChart schon existiert.
Was auch logisch ist.
Die Form57 bleibt auch auf,also ich habs so gedacht das ich auf mehrere charts doppelclicke und die Form 57 geht dann auf mit dem cahrt wo geclickt wurde.
Damit man die chart nebeneinander vergleichen oder größer ansehen kann.
Hier mal mein Source:
Delphi-Quellcode:
var
ps: TBarSeries;
begin
form57 := tform57.Create(self);
form57.AdvToolBarPager1.caption.caption:='Chart # '+chart8.Title.text.text+' #';
ps := TBarSeries.Create(self);
with ps do
begin
Name := 'BarSeries';
ColorEachPoint := True;
Marks.Style := smsValue ;
ParentChart := form57.Chart1;
end;
for i:= 0 to chart8.SeriesCount -1 do
begin
Form57.Chart1.Series[i].SeriesColor := Chart8.Series[i].SeriesColor;
Form57.chart1.Series[i].Clear;
Form57.chart1.Series[i].ShowInLegend:=false;
Form57.chart1.Series[i].Title:=chart8.Series[i].title;
for j:= 0 to chart8.Series[i].Count -1 do
begin
Form57.chart1.Series[i].Add(chart8.Series[i].YValue[j],chart8.Series[i].XLabel[j], chart8.Series[i].SeriesColor);
end;
end;
form57.show;
end;
Die Eigenschaft ColorEachPoint nimet der chart auch nicht an.
Diese macht ja das alle Balken in verschiedenen Farben angezeigt werden.
Wie kann ich den die Eigenschaft besser setzen?
ZB: Will ich auch die Bar Style in der Laufzeit ändern .
Danke