Inicializar Tchart ?

[Aztaroth]

Este codigo yo lo utilizo en uno de mis progs no se si sea lo que andas buscando.


procedure TForm1.setGraphValues;
var
mRow, mColumn : integer;
lastValue : double;
mTitle : String;
begin

Series1.Clear;
Series2.Clear;
Series3.Clear;

grafica.Title.Text.Clear;
grafica.Title.Text.Clear;
if (cbxSpec.KeyValue <> '') and (cbxSpec.KeyValue <> NULL) then
begin
mTitle := 'Inventory Coverage in Spec : ' + cbxSpec.KeyValue ;
end;

if (cbxTHk.KeyValue <> 0) and (cbxTHK.KeyValue <> null) then
begin
if (cbxSpec.KeyValue <> '') and (cbxSpec.KeyValue <> NULL)then
mTitle := mTitle + ' AND THK=' + FloatToStr(cbxTHK.KeyValue)
else
mTitle := 'Inventory Coverage in THK=' + FloatToStr(cbxTHK.KeyValue);
end;

grafica.Title.Text.Add(mTitle);

for mColumn := 2 to totalGrid.Columns.Count - 1 do
begin
With Series1 do
begin
AddXY(mColumn, totalGrid.Cell[mColumn, 0].AsFloat , totalGrid.Columns[mColumn].Header.Caption,clRed);
end;

With Series2 do
begin
AddXY(mColumn, getTotalColumn(intransitGrid, totalGrid.Columns[mColumn].Header.Caption) , totalGrid.Columns[mColumn].Header.Caption, clGreen);
end;

With Series3 do
begin
AddXY(mColumn, getTotalColumn(reqGrid, totalGrid.Columns[mColumn].Header.Caption) , totalGrid.Columns[mColumn].Header.Caption,clYellow);
end;
grafica.BottomAxis.Items. Item[mColumn - 1].Text := totalGrid.Columns[mColumn].Header.Caption;
end;
end;

[elbilla]

muchas gracias. Yo lo q ponia era "Chart1.Series.Clear" y no me funcionaba.
Lo que sigo sin solucionar es lo del color de las barras. Cambiando la propiedad COLOR EACH del format del Chart, he conseguido que me salga en dos colores, pero yo quiero que salgan los q yo le ponga.

Un saludo.
Gracias.

[Rabata]

alguien podría decirme como pùedo utilizar un Chart

Gracias....

[elbilla]

Pues lo q yo he hecho es muy sencillo pero igual te puede valer..Simplemente es asignar el valor de una variable a un Tchart. El mio es de barras horizontales.

chart1.series[0].Add (AQUI, ENTRE LOS PARENTESIS, PONES LA VARIABLE QUE QUIERES QUE TE MUESTRE).
Y así tantos como variables tengas para mostrar.
Luego para borrar el tchart es como bien dijo el amigo Aztaroth, Series1.Clear..

Espero q te haya servido de algo...

Un saludo.