Gracias, realmente el problema es el siguiente, tengo varios graficos en una misma pantalla y quiero que todos ellos los pueda modificar (el color de las series, las formas de las barras, etc), con los mismos controles. Se me ocurrio duplicar el grafico seleccionado, que el usuario cambie las propiedades del grafico en el duplicadO, y luego devolverlas al grafico seleccionado. Pude duplicar el grafico y que sobre este se hicieran las modificaciones, pero al momento de devolverlo al grafico seleccionado, me da error, pues los componentes de las series ya estan creadas. Lo que hice fue lo siguiente
valor :Tchart
valor: Create.Tchart(nil)
procedure ChartTClick(Sender: TObject);
begin-->PARA SELECIONAR EL GRAFICO EN LA PANTALLA
CopiarSeries(Valor,ChartT,self);
end;
Procedure CopiarSeries(DestChart,SourceChart:TChart;
AOwner:TComponent);
Var tempSeries:TChartSeries;
tempS:TChartSeriesClass;
t,y:Longint;
begin--> PARA DUPLICAR EL GRAFICO
for t:=0 to SourceChart.SeriesCount-1 do
begin
tempS:=TChartSeriesClass(SourceChart.Series[t].ClassType);
tempSeries:=tmpS.Create(AOwner);
tempSeries.Assign(SourceChart.Series[t]);
tempSeries.Name:=(SourceChart.Series[t].Name);
DestChart.AddSeries(tmpSeries);
end;
---PARA CAMBIAR EL COLOR DE LA SERIE
procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
With valor.Series[ComboBox1.ItemIndex] do
SeriesColor:=EditColor(Self,SeriesColor);
CopySeries(ChartT,Valor,self); -->AQUI ME DA EL ERROR DE QUE YA EXISTE LA SERIE
Pero aqui me da el error