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;